insertion des lignes entre chaque changement de noms

Question

Bonjour
j'ai un tableau de plusieurs lignes de A1:D1000 et les colonnes A1:A1000 contiennent des différents noms.
j'aimerai bien insérer des lignes entre chaque changement de nom.

cordialement

via55 · Answer

Bonjour

Essaie :

Sub insertion()
For n = 1000 To 2 Step -1
    Rows(n & ":" & n).Select
        If Range("A" & n) <> "" And Range("A" & n) <> Range("A" & n - 1) Then
        Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
        End If
    Next
End Sub

Cdlmnt
Via

choukerb · Answer

merci mr via55

votre aide (macro) est très efficace . c'est ça ce que je cherche

cordialement.

Insertion des lignes entre chaque changement de noms

2 réponses

Discussions similaires

Newsletters