Bonjour à Tous;
La colonne H contient les valeurs suivantes :
A
A
A
B
B
B
C
C
C
D
D
D
Mon programme doit inserer une nouvelle ligne après le dernier A, le dernier B et le dernier D.
Ce dernier insère plusieurs Lignes à la fin des valeurs A.
Merci
La colonne H contient les valeurs suivantes :
A
A
A
B
B
B
C
C
C
D
D
D
Mon programme doit inserer une nouvelle ligne après le dernier A, le dernier B et le dernier D.
Code:
Sub test()
Dim valeur As String
Dim i As Integer
Dim j As Integer
Dim p As Integer
Do
' la premère contient le titre de la colonne d'ou un pas de : 2+p
' il s'agit de la colonne 8 d'ou Cells(2 + p, 8).
valeur = Worksheets("Feuil1").Cells(2 + p, 8).value
if Worksheets("Feuil1").Cells(3 + p, 8).value <> valeur then
'insertion de la nouvelle
i=3 + p
j=8
Worksheets("Feuil1").Rows(j & ":" & t).Select
Selection.Insert Shift:=xlDown
End If
p=p+1
Loop while response=0
End sub
Ce dernier insère plusieurs Lignes à la fin des valeurs A.
Merci