Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire
190 internautes nous ont dit merci ce mois-ci
je veux integrer cette condition
If Cells(x, y).Value = "" Then exit sub
mais ca me fait tout le temp erreur j'arrive pas a imbriquer deux if en meme temps
Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire
190 internautes nous ont dit merci ce mois-ci
Sub Couleur() Dim Cel As Range For Each Cel In Range("b1:b122") If Cel.Interior.ColorIndex = 4 Then Cel.Offset(0, 1).Value = 1 Else Cel.Offset(0, 1).Value = 0 End If Next Cel End Sub