XL 2019 macro insérer une ligne automatique

le___destin

XLDnaute Occasionnel
bonsoir tout le monde
quelqu’un peut m'aider de faire un macro si A12 non vide il ajouter un ligne apres puis si A13 non vide il ajoute un autre
 

Pièces jointes

  • destin.xlsm
    22.8 KB · Affichages: 7

Hasco

XLDnaute Barbatruc
Repose en paix
Bonjour,

Proposition dans fichier joint:
VB:
Sub AjoutLignes()
    Dim lo As ListObject
    Dim lx As Long
    Set lo = ThisWorkbook.Sheets("amigo").ListObjects("Tableau3")

    If Not lo.DataBodyRange Is Nothing Then
        On Error GoTo FIN_IF
        Application.ScreenUpdating = False
        For lx = lo.ListRows.Count To 1 Step -1
            If lo.ListRows(lx).Range(1) <> "" Then lo.ListRows.Add lx + 1
        Next
FIN_IF:
        Application.ScreenUpdating = True
    End If
End Sub

Cordialement
 

Pièces jointes

  • destin.xlsm
    25 KB · Affichages: 9

Hasco

XLDnaute Barbatruc
Repose en paix
Re,

C'est une autre question et il faut faire autrement! J'ai répondu à la question telle qu'elle était posée.
Maintenant si la demande évolue, je ne vais pas refaire à chaque fois. A vous de savoir exactement ce que vous voulez et de poser des question claires et précises dès le début.

Bonne continuation
 

Discussions similaires