zac.dubeau
XLDnaute Nouveau
Bonjour,
Je cherche à faire une macro pour insérer automatiquement 2 lignes au-dessus des lignes contenant la couleur bleue clair.
Mon code tourne en boucle sur la première ligne avec la bonne couleur. Il passe pas au ligne suivante.
Je cherche à faire une macro pour insérer automatiquement 2 lignes au-dessus des lignes contenant la couleur bleue clair.
Mon code tourne en boucle sur la première ligne avec la bonne couleur. Il passe pas au ligne suivante.
Code:
[/Sub Inser_ligne()
'Pour chaque cellule utilisée dans la feuille
For Each Cellule In ActiveSheet.UsedRange
'Si l'intérieur de la cellule utilisée est de couleur bleue clair
If Cellule.Interior.Color = 16776960 Then
'Insérer une ligne au-dessus
Rows(i + 1).Insert Shift:=xlDown
End If
Next
End Sub
CODE]
Merci
A+