Insertion de ligne sous condition

Sebastien -  
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

  • Votes
  • Date
  • Date décroissante
  1. gbinforme Contributeur
    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

    Discussions similaires

    Mots de passe Google divulgués en ligne
    Guiem

    1 réponse