Microsoft 365 Macro Pour inserer 9 lignes à chaque nouveau matricule

[SEVE95]

Bonjour,
Je voudrais faire une macro qui me permette d'insérer 9 lignes à chaque nouveau matricule
Je vous remercie par avance
Bien cordialement

 

[SEVE95]

Ca m'ajoute que des lignes à chaque matricule et non à chaque ligne Merci beaucoup

 

[vgendron]

Voir code du message 11 ou 12

 

[SEVE95]

tu parles de 5000 lignes.. j'en déduis que finalement, ce n'est pas entre chaque NOUVEAU matricule mais bien entre CHAQUE ligne

Sub InsererEntreChaqueligne()
    Application.ScreenUpdating = False
    With ActiveSheet 'avec la feuille active
        LastLine = .Range("A" & .Rows.Count).End(xlUp).Row 'dernière ligne non vide de la colonne A
      
        Set zone = .Range("A2:F" & LastLine) 'on définit le tableau complet
        .Sort.SortFields.Clear
        .Sort.SortFields.Add2 Key:=zone.Columns(1).Offset(1, 0), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal 'on créé le tri sur la colonne A
        With .Sort 'on applique le tri
            .SetRange zone
            .Header = xlYes
            .MatchCase = False
            .Orientation = xlTopToBottom
            .SortMethod = xlPinYin
            .Apply
        End With

        For i = LastLine To 4 Step -1 'pour toutes les lignes en partant du bas
            'If .Range("A" & i) <> .Range("A" & i - 1) Then 'si on a deux matricules différents
                .Rows(i).Resize(9).Insert
            'End If
        Next i
    End With
    Application.ScreenUpdating = True
    MsgBox "OK"
End Sub

ca Marche merci beaucoup Autre question serait il possible pour les 9 lignes recopier la ligne d'en haut à chaque fois

 

[vgendron]

bah évidemment.. ca m'aurait étonné qu'il faille mettre des lignes vides...
si tu pouvais donner tous les éléments souhaités dès le départ..

 

[SEVE95]

Merci beaucoup Bonne soirée