Insertion ligne à chaque changement d'intitulé dans colonne A

[ungarospy]

Bonjour,

J'essaie en vain de créer une macro pour pouvoir inserer une ligne vierge à chaque fois que l'intitulé de la colonne A change.

Dans la colonne A , j'ai ce type d'information
3027320401
3028320401
3028320401
3028320403
3028320403
3048440001

Et je souhaiterais obtenir

3027320401

3028320401
3028320401

3028320403
3028320403

3048440001


Pour info le tableau fait plus de 10.000 lignes et comporte 25 colonnes

Merci pour votre aide

 

[Papou-net]

Re : Insertion ligne à chaque changement d'intitulé dans colonne A

Bonsoir ungarospy,

Voici un exemple de macro à tester sur ton fichier:

Private Sub AjoutLigne()
Application.ScreenUpdating = False
With ActiveSheet
  For y = .Range("A" & Rows.Count).End(xlUp).Row To 2 Step -1
    If .Cells(y, 1) <> "" Then
      If .Cells(y, 1) <> .Cells(y - 1, 1) Then .Rows(y).Rows.Insert
    End If
  Next
End With
Application.ScreenUpdating = True
End Sub

Espérant avoir répondu.

Cordialement.

 

[ungarospy]

Re : Insertion ligne à chaque changement d'intitulé dans colonne A

Super, juste ce qu'il me fallait
Merci pour l'aide