Macro pour sélection d'une colonne sur 3
Résolu/Fermé
Sousha
-
20 janv. 2010 à 20:34
pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 - 21 janv. 2010 à 13:29
pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 - 21 janv. 2010 à 13:29
A voir également:
- Macro pour sélection d'une colonne sur 3
- Déplacer une colonne excel - Guide
- Macro logiciel - Télécharger - Organisation
- Macro word - Guide
- Picasa 3 - Télécharger - Albums photo
- Colonne word - Guide
1 réponse
pijaku
Messages postés
12263
Date d'inscription
jeudi 15 mai 2008
Statut
Modérateur
Dernière intervention
4 janvier 2024
2 741
21 janv. 2010 à 10:44
21 janv. 2010 à 10:44
Bonjour,
Vous dites : et une colonne sur 3 à partir de B. C'est à dire B, E, H, K?
Sinon simplement adaptez ce code :
Vous dites : et une colonne sur 3 à partir de B. C'est à dire B, E, H, K?
Sinon simplement adaptez ce code :
Dim i As Integer, j as Integer Sheets.Add ActiveSheet.Name = "Quater" With Sheets("Month") .Columns(1).Copy Sheets("Quater").Range("A1") j = 2 For i = 2 to 12 Step 3 .Columns(i).Copy Sheets("Quater").Cells(1, j) j = j + 1 Next End With
21 janv. 2010 à 12:28
Je vous remercie infiniment pour votre aide.
La maco marche bien. Cela faisait des jours que je cherchais la solution mais en vain. Grand merci.
Pourrais abuser une dernière fois de vos connaissance svp si vous me le permettez.
J'ai un graphe en Barre avec en abscisse des chiffre et en ordonnée des nom de société et le grand total.
Je cherche à colorier uniquement la barre correspondant au Grand Total en rouge et mon code ne marche pas.
Sub MAJCcyBOP()
Dim SheetInput As String, i As Variant
SheetInput = "Sheet 1"
ActiveSheet.ChartObjects("Chart 1").Activate
ActiveChart.SeriesCollection(1).Select
For Each i In ActiveChart.SeriesCollection(1).Points
If ActiveChart.Axes(xlValues).AxisLabel.Name = "Grand Total" Then
ActiveChart.SeriesCollection(1).Points(i).Select
ActiveChart.SeriesCollection(1).Points(i).Interior.ColorIndex = 3
End If
Next i
End Sub
Je suis débutante et j'ai encore du mal.
Grand MERCI pour votre aide
Sousha
21 janv. 2010 à 13:29
Néanmoins, rien ne vous empêche d'ouvrir un nouveau sujet car la question est différente.
Je place celui ci en "résolu"