J’utilise actuellement un code pour insérer une ligne en cas d’oublie, celle-ci fonctionne très bien mais j’aimerais rajouter une condition mais la je coince.
J’aimerais modifier mon code afin que l’insertion se fasse bien comme maintenant mais sans les couleurs des colonnes : H, I et L
J’ai essayé de mettre ceci mais ca me supprime toutes les couleurs de la ligne
Code:
Rows(ActiveCell.Row).Interior.ColorIndex = xlNone
Et je ne peux pas définir de plage vu que je ne sais pas quand une ligne sera insérée.
Peut être avec une condition SI mais la c’est mon niveau VBA qui va plus
Si cellules jaune ou rouge alors supprimer la couleur
J’ai essayé ceci mais ca ne fonctionne pas sinon j'aurais vraiment fait des progrès lol
Code:
If Cells = ("yellow ") Or ("red") Then
Cells.Interior.ColorIndex = xlNone
End If
For Each cel In Range("B" & ActiveCell.Row & ":O" & ActiveCell.Row)
If cel.Interior.ColorIndex = 3 Or cel.Interior.ColorIndex = 6 Then
cel.Interior.Color = xlNone
End If
Next cel
Re : Rajouter une condition si insertion lignes[Résolu]
Re,
Problème résolu il manquait simplement "index" dans ton code
Je l'ai modifié comme suis au cas ou une autre personne serait intéressée
Code:
For Each cel In Range("B" & ActiveCell.Row & ":O" & ActiveCell.Row)
If cel.Interior.ColorIndex = 3 Or cel.Interior.ColorIndex = 6 Then
cel.Interior.Color[COLOR="#FF0000"]Index[/COLOR] = xlNone
End If
Next cel