Ajout ligne entre deux infos

[Manu62]

Bonjour à tous,

Je cherche et recherche ce petit truc en vba. mais en vain.

En colonne A j'ai des dates ou des noms.....

Je cherche un code qui permet d'ajouter une ligne entre deux date ou deux nom

Ci joint fichier avec exemple et résultat


Merci bcp

A++

Manu

 

[Efgé]

Re : Ajout ligne entre deux infos

Bonjour Manu62,
Une proposition en pièce jointe.(il faut que les données soient triées)

Private Sub CommandButton1_Click()
For i = Sheets("Feuil1").Range("A" & Application.Rows.Count).End(xlUp).Row To 2 Step -1
    If Cells(i, 1).Value <> Cells(i + 1, 1).Value Then
        Cells(i + 1, 1).Insert Shift:=xlDown
    End If
Next i
End Sub

Cordialement

 

[Manu62]

Re : Ajout ligne entre deux infos

Efgé,

Impect merci

MAnu