rows. Interior.ColorIndex = 6

[Evelynetfrancois]

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

 

[fred65200]

Re : rows. Interior.ColorIndex = 6

bonsoir

teste le code suivant

 For Each cell In Range("F4", Range("F65536").End(xlUp))
If Not cell.Value = depart Then
Rows(cell.Row).Insert Shift:=xlDown

Rows(cell.Row - 1 ).interoior.colorindex = 6

 depart = cell.Value
End If
Next

cordialement

 

[Spitnolan08]

Re : rows. Interior.ColorIndex = 6

Bonsoir,

Dim a As Long
For Each cell In Range("F4", Range("F65536").End(xlUp))
    If Not cell.Value = depart Then
        a = cell.Row
        Rows(a).Insert Shift:=xlDown
        Range(Cells(a, "A"), Cells(a, "G")).Interior.ColorIndex = 6
        depart = cell.Value
    End If
Next

Cordialement

Edit : Bonsoir The Revenant!

 

[Evelynetfrancois]

Re : rows. Interior.ColorIndex = 6

MERCI fred65200 Spitnolan08

pour vos propositions super rapide!!!!,
la solution de Spitnolan08 est exactement ce que je souhaitais ............mais ne savais faire !!!
MERCI beaucoup et tres bonne soirée à vous !!!
E et F