Insertion ligne selon conditions

[paseg]

Bonjour,
Je souhaiterais insérer une ligne vide à chaque changement de nom...
Dans le classeur en pièce jointe, j'ai fait un tri par ordre alphabétique sur la colonne C.
Il faudrait insérer automatiquement une ligne vide (et sans mise en forme, sans couleur ici) à chaque fois que le nom change. Dans l'exemple proposé, cela donne après "Abel", "Christophe" et Drew.
Sachant que j'ai parfois des tableaux de plus de 20 000 lignes et des listes de plus de 300 noms.
Est-ce possible ?
Merci d'avance
Paseg

 

[Fred0o]

Re : Insertion ligne selon conditions

Bonsoir Paseg,

Voici une macro qui fait ce que tu demande.

Sub ChgtNom()
    Dim i As Integer
    For i = Range("D65536").End(xlUp).Row To 2 Step -1
        If Cells(i, 4) <> Cells(i - 1, 4) Then
            Range(i & ":" & i).Insert shift:=xlDown
            Range(i & ":" & i).Interior.ColorIndex = 0
        End If
    Next
End Sub

A+

 

[paseg]

Re : Insertion ligne selon conditions

Bonjour,
Parfait
J'ai oublié... parfois il y a deux prénoms identiques. Comment faire pour prendre en compte les colonnes C et D.
Merci d'avance.
Paseg

 

[Papou-net]

Re : Insertion ligne selon conditions

Bonjour paseg,

En reprenant le code de Fred0o (que je salue également), les prénoms seront pris en compte :

Sub ChgtNom()
    Dim i As Integer
    For i = Range("D65536").End(xlUp).Row To 2 Step -1
        If Cells(i, 4) <> Cells(i - 1, 4) Then
            Range(i & ":" & i).Insert shift:=xlDown
            Range(i & ":" & i).Interior.ColorIndex = 0
            Else
            If Cells(i, 3) <> Cells(i - 1, 3) Then
              Range(i & ":" & i).Insert shift:=xlDown
              Range(i & ":" & i).Interior.ColorIndex = 0
          End If
        End If
    Next
End Sub

Espérant avoir répondu.

Cordialement.

 

[paseg]

Re : Insertion ligne selon conditions

Merci beaucoup à tous les deux,Fred0o et Papou-net
Mon premier problème est résolu
A bientôt
Paseg