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
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
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionIf Cells(x, y).Value = "" Then exit sub
Sub Couleur() Dim Cel As Range For Each Cel In Range("b1:b12222") If Cel.Value = "" Then Value = "" ElseIf Cel.Interior.ColorIndex = 4 Then Cel.Offset(0, 1).Value = 1 Else Cel.Offset(0, 1).Value = 0 End If Next Cel End Sub