Excel : Rendre variable une insertion Résolu/Fermé

Question

Bonjour,
      je voudrais insérer une nouvelle ligne à la fin d'un tableau. J'ai réalisé à partir d'une macro récupérée sur ce forum ce petit code qui permet de réaliser ce que je cherche à l'exception près que cette insertion est fixe car je ne sais comment indiquer dans la commande Rows la ligne ou je suis arrivé. Pouvez-vous m'aider SVP
     Merci d'avance
        Alain

Sub insertion_ligne()

Ligne = 8 'initialisation de la variable

Do
Ligne = Ligne + 1
contenu = Cells(Ligne, 2)
Loop Until contenu = ""
Rows("12:12").Select
Selection.Insert Shift:=xlDown
Rows("11:11").Select
Selection.Copy
Rows("12:12").Select
Selection.PasteSpecial Paste:=xlFormulas, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=False
End Sub

lermite222 · Answer

Bonjour,
Pas clair mais je pense que c'est ca que tu veux...
Rows(Ligne).Select 
Mais il y a des facon plus technique de trouver ta dernière ligne vide.

DerniereLigne = (Range("A1").SpecialCells(xlCellTypeLastCell).Row) +1
Rows(DerniereLigne ).Select 
A+

gbinforme · Answer

bonjour

Si tu veux rajouter une ligne à ton tableau
Sub insertion_ligne()
Dim ligne As Long
    ligne = Cells.SpecialCells(xlCellTypeLastCell).Row 'initialisation de la variable
    Rows(ligne).Resize(2).FillDown
End Sub

cela devrait faire ce que tente ta macro.