Insertion de ligne sous condition

Sebastien -  
gbinforme Messages postés 14946 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.




A voir également:

1 réponse

Réponse 1 / 1
gbinforme Messages postés 14946 Date d'inscription   Statut Contributeur Dernière intervention   4 724
 
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

Que veut dire "correspondant occupé" lors d'un appel ?
veroaaa -
Pat -

10 réponses