tranformer un code vba pour 40 lignes

[pascal21]

bonjour à tous
j'ai ce code qui me permet de teinter en rouge la ligne 2 lorsque a2 est rouge
j'aimerais l'adapter pour que ça fonctionne sur environ 40 lignes
comment faire
merci

Sub test()
Sheets('Feuil1').Select
If Cells(2, 1).Interior.ColorIndex = 3 Then 'Cellule A2
Range('b2:G2').Interior.ColorIndex = 3
End If
End Sub

 

[Davidc57]

Salut Pascal,

Est-ce que ca répond à ta question ?

 Sub test()
 

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
  
 
End Sub

A+
David

 

[Gorfael]

Salut pascal21

Sub test()
If Cells(2, 1).Interior.ColorIndex = 3 Then 'Cellule A2
Range('b2:G2').Interior.ColorIndex = 3
End If
End Sub

:whistle: euh, ce qui me gène dans ce genre de test, c'est que si tu remets A2 en blanc, tes cellule B-G restent rouge
Moi, je verrais mieux

Sub test()
Range('b2:G2').Interior.ColorIndex = Cells(2, 1).Interior.ColorIndex
End Sub

ou pour étendre ta manip

Sub test()
Dim X as integer
For X=2 to 40
Range('B' & X & ':G' & X).Interior.ColorIndex = Cells(x, 1).Interior.ColorIndex
End Sub

A+

 

[pascal21]

bonjour davidc, gorfael
pour david c''st pile poil merci
pour gorfael; je vais rajouter ce que tu m'as donné
merci

 

[pascal21]

bonjour

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

 

[Gorfael]

Salut
Effectivement, ça marche pas. Le format conditionnel n'applique pas le format à la cellule. Le problème est que les propriétés concernent la manière dont on va l'appliquer, et pas comment il est appliqué. J'ai pas trouvé de solution, hormis recréer dans la macro les conditions.

Je pense qu'il doit y avoir un moyen, mais pour l'instant je sèche. Par contre, il traîne sur le forum un panel de triturateur d'Excel et du VBA qui devrait finir par apporter la réponse.
A+

 

[Charly2]

Bonsoir Pascal, bonsoir David, bonsoir Gorfael,
bonsoir à toutes et à tous 🙂

Puisque tes cellules sont adjacentes, pourquoi ne pas étendre ta MEFC jusqu'à la colonne G, sans oublier de mettre la colonne A en références absolues ?

A+ 😉

 

[pascal21]

bonjour à tous
pour charly
je ne peux pas étendre la mfc aux cellules d'à coté car elles ont pour la plupart fait le plein de mfc et je ne peux donc en rajouter
d'où ma demande pour une macro