colorier une ligne rajoutée

[PHILIP]

Bonjour à tous,

Je souhaite que la ligne rajoutée grace au code
Sub encart()

Dim Lastlig As Long, i As Long
 
      Application.ScreenUpdating = False
   With Worksheets("Viking")   'adapter au nom de la feuille
      Lastlig = .Cells(Rows.Count, "B").End(xlUp).Row
   For i = Lastlig To 3 Step -1
     If .Range("B" & i - 1) <> .Range("B" & i) Then .Rows(i).Insert
     Next i
     
     End With
End Sub

se mette en bleu Pouvez vous m'aider car dans mon écriture ou tous se met en bleu ou seulement la premiere et derniere ligne

Merci

 

[ROGER2327]

Re : colorier une ligne rajoutée

Bonjour PHILIP

Essayez ceci :

Sub toto()
Dim Lastlig As Long, i As Long
  Application.ScreenUpdating = False
  With Worksheets("Feuil1")   'adapter au nom de la feuille
    Lastlig = .Cells(.Rows.Count, "B").End(xlUp).Row
    For i = Lastlig To 3 Step -1
      If .Range("B" & i - 1) <> .Range("B" & i) Then .Rows(i).Insert: .Rows(i).Interior.ColorIndex = 8
    Next i
  End With
End Sub

​

ROGER2327
#4759

Lundi 16 Sable 138 (Saint Nui, exempt, SQ)
26 Frimaire An CCXIX
2010-W50-4T09:33:28Z

 

[PHILIP]

Re : colorier une ligne rajoutée

Merci beaucoup pour ton aide ROGER2327