bonjour
Code:
Sheets('Feuil1').Select
For i = 2 To 41
If Range('A' & i).Interior.ColorIndex = 3 Then
Range('B' & i & ':G' & i).Interior.ColorIndex = 3
Else
Range('B' & i & ':G' & i).Interior.ColorIndex = xlNone
End If
Next
ce code fonctionne parfaitement sur un classeur d'essai
mais refuce de fonctionner correctement sur mon classeur définitif
en effet la couleur de fond de la colonne A , vient d'une condition MFC
si je mets la couleur manuellement ça
fonctionne normalement
pas d'erreur sur la couleur
le format choisi pour la mfc est rouge et police en blanc gras
voyez-vous où ce trouve le problème
merci