Insertion de ligne sur excel

Résolu
kelyon -  
 kelyon -
Bonjour,



j'ai un problème sur Excel, j'ai une liste filtré et je veux insérer des lignes juste en dessous de chaque lignes déjà filtré sans les sélectionner un par un avec la touche contrôle vu que ces donnée comporte plus de 1500 lignes

Merci

Kelyon
A voir également:

1 réponse

Réponse 1 / 1
eriiic Messages postés 24603 Date d'inscription   Statut Contributeur Dernière intervention   7 275
 
Bonjour,

Une proposition par macro : 
Sub insereLig()
    Dim lig As Long
    For lig = Cells(Rows.Count, 1).End(xlUp).Row To 2 Step -1
        If Not Rows(lig).Hidden Then Rows(lig + 1).Insert Shift:=xlDown
    Next lig
End Sub

https://www.cjoint.com/?BGvmJ4zNTUG

eric
0
kelyon
 
Bonjour,

Merci beaucoup pour votre aide, ça marche!
0