Evelynetfrancois
XLDnaute Impliqué
BONSOIR a tous !!
For Each cell In Range("F4", Range("F65536").End(xlUp))
If Not cell.Value = depart Then
Rows(cell.Row).Insert Shift:=xlDown
depart = cell.Value
End If
Next
Insère bien une ligne entre chaque valeur différente de la colonne F , Cependant je souhaiterais que cette ligne (colonnes A :G ) soit coloré (Interior.ColorIndex = 6) , pouvez vous m'aider ?? a positionner ces lignes
je tourne autour sans trouver la bonne sintaxe
merci d'avance pour toutes vos soluces toujours geniales!!!
bonne soirée
E et F
For Each cell In Range("F4", Range("F65536").End(xlUp))
If Not cell.Value = depart Then
Rows(cell.Row).Insert Shift:=xlDown
depart = cell.Value
End If
Next
Insère bien une ligne entre chaque valeur différente de la colonne F , Cependant je souhaiterais que cette ligne (colonnes A :G ) soit coloré (Interior.ColorIndex = 6) , pouvez vous m'aider ?? a positionner ces lignes
je tourne autour sans trouver la bonne sintaxe
merci d'avance pour toutes vos soluces toujours geniales!!!
bonne soirée
E et F