Insertion de ligne sous condition

Sebastien -  
gbinforme Messages postés 14930 Date d'inscription   Statut Contributeur Dernière intervention   -
Bonjour,

Je vous remercie d'abord pour votre aide.

Je voudrai insérer une ligne automatiquement en fonction du nombre de ligne que j'ai dans mon tableau.

Si par exemple j'ai 10 lignes dans mon tableau, je voudrai une macro qui insère une ligne automatique en dessous de la ligne 1, 2, 3 etc... En gros, ligne 1, ligne vide, ligne 3, ligne vide ligne 4, ligne vide et ainsi de suite.

1 réponse

  1.
    gbinforme Messages postés 14930 Date d'inscription   Statut Contributeur Dernière intervention   4 744
     
    Bonjour,

    Cette procédure devrait faire ce que tu veux : 
    Option Explicit
Public Sub insère_ligne()
Dim lig As Long
With ActiveSheet
    For lig = .Cells(Rows.Count, 1).End(xlUp).Row To 2 Step -1
        .Rows(lig).Insert
    Next lig
End With
End Sub
    0

Discussions similaires

Statut « en ligne » alors que non
GgBono -
Slickk -

1 réponse