XL 2019 macro insérer une ligne automatique

Hasco

XLDnaute Barbatruc

Repose en paix

• 3 Octobre 2019

• #2

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

Vote positif 0 Vote négatif

le___destin

XLDnaute Occasionnel

• 3 Octobre 2019

• #3

merci Roblochon
ça marche
y'a-t-il une solution pour que cet macro d'éclanche dès que A12 soit non vide
je veut dire sans bouton insérer

 

Vote positif 0 Vote négatif

Hasco

XLDnaute Barbatruc

Repose en paix

• 3 Octobre 2019

• #4

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

 

Vote positif 0 Vote négatif

le___destin

XLDnaute Occasionnel

• 3 Octobre 2019

• #5

merci

 

Vote positif 0 Vote négatif