JoeGillian
XLDnaute Nouveau
Bonjour , amis de MS Excel
Je suis sur Excel 2007, j'ai un tableau de 47 colonnes et 940 lignes .
J'ai six onglets , sur lequels sont rentrés plusieurs projets(intitulés"FPXX") qui diposent tous d'un sous-total.
Je cherche le moyen de colorier et de mettre en gras les lignes de sous-totaux: autrement dit , à chaque fois qu'apparaît dans la colonne A "FPXX" toute la ligne devrait apparaître en vert et en gras.
J'ai un début de code:
Sub Odorer()[j'adore les jeux de mots à deux balles]
Sheets("Détails par projet par équipe").Select
X = Range("A" & Application.Rows.Count).End(xlUp).Row
For Each c In Range("A1: A" & X)
If c.Value = "Total FP07" Then Range("A1", Range("A1").End(xlToRight)).Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.ThemeColor = xlThemeColorAccent3
.TintAndShade = 0.399945066682943
.PatternTintAndShade = 0
End With
Next c
End Sub
Si vous pouviez me dire où ça plante ça m'aiderait vraiment.
Merci!
Je suis sur Excel 2007, j'ai un tableau de 47 colonnes et 940 lignes .
J'ai six onglets , sur lequels sont rentrés plusieurs projets(intitulés"FPXX") qui diposent tous d'un sous-total.
Je cherche le moyen de colorier et de mettre en gras les lignes de sous-totaux: autrement dit , à chaque fois qu'apparaît dans la colonne A "FPXX" toute la ligne devrait apparaître en vert et en gras.
J'ai un début de code:
Sub Odorer()[j'adore les jeux de mots à deux balles]
Sheets("Détails par projet par équipe").Select
X = Range("A" & Application.Rows.Count).End(xlUp).Row
For Each c In Range("A1: A" & X)
If c.Value = "Total FP07" Then Range("A1", Range("A1").End(xlToRight)).Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.ThemeColor = xlThemeColorAccent3
.TintAndShade = 0.399945066682943
.PatternTintAndShade = 0
End With
Next c
End Sub
Si vous pouviez me dire où ça plante ça m'aiderait vraiment.
Merci!