Excel Downloads Forums - Afficher un message

pascal21 · 29/04/2006, 11h24

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

Code:

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

29/04/2006, 11h24	#1 (permalink)
pascal21 XLDnaute Accro Date d'inscription: septembre 2005 Localisation: Saint Apollinaire (21) Dijon Version Excel : Excel 2003 (PC) Messages: 1 443	tranformer un code vba pour 40 lignes 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 Code: 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 __________________ Bonne année 2009 à tous