Colorier une ligne sous condition vba (pas de MEFC, please!)

[JoeGillian]

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!

 

[Paritec]

Re : Colorier une ligne sous condition vba (pas de MEFC, please!)

bonjour Joegillian le forum
alors tu nous envois un petit bout de fichier et on va te faire cela
a+
papou 🙂

 

[JoeGillian]

Re : Colorier une ligne sous condition vba (pas de MEFC, please!)

Salut Paritec , tous les tifosi d'Excel
Voilà le fichier dont vous avez besoin si l'envie vous prend d'y jeter un oeil.
J'ai allégé au maximum (trop) le fichier qui ne contient plus qu'un seul sous-total; l'idée c'est qu'en utilisant la macro donnée précédemment -et corrigée- la ligne correspondant à total FP07 apparaisse en gras et en couleur, et que la manipulation puisse être réitérée pour les autres lignes de sous-totaux.
Les colonnes ne bougeront pas.

Ne pas hésiter à solliciter ma participation.

Merci.

 

[Paritec]

Re : Colorier une ligne sous condition vba (pas de MEFC, please!)

Rebonjour Joegillian
voilà en retour regardes
et dis moi
A+
Papou 🙂

 

[JoeGillian]

Re : Colorier une ligne sous condition vba (pas de MEFC, please!)

Papou, amis guerriers d'Excel

Merci , c'est exactement ce dont il était question.
(Accent Don Corleone)"A charge de revanche".
A+