insertion de ligne sur excel Résolu

Question

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

eriiic · Answer

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

Insertion de ligne sur excel

1 réponse

Discussions similaires

Newsletters