Macro_Insertion ligne du tableau (mais pas DerLigne)

Re : Macro_Insertion ligne du tableau (mais pas DerLigne)

Bonjour

pour trouver la dernière ligne remplie avant une ligne vide: (il pourra y avoir d'autres lignes remplies plus loin)
(j'ai mis A2 car dans votre exemple A1 est vide et fausse le résultat)

DerLigne = Range("A2").End(xlDown).Row

rajouter +1 pour se positionner sur la ligne vide qui suit

Dans votre exemple , DerLigne = Range("A2").End(xlDown).Row + 1 donne DerLigne =44

A+

Re : Macro_Insertion ligne du tableau (mais pas DerLigne)

@paf
Merci, cela correspond en tout point à ce que je cherchais.
(un gros loupé de ma part sur la cellule A1 qui était vide, merci pour la remarque !)
Bonne soirée


Le code qui fonctionne :

Sub Macro4()
' Dim i As Integer
Dim Derlign As Double
For i = 1 To Worksheets.Count
Sheets(i).Select
DerLigne = Sheets(i).Range("A2").End(xlDown).Row +1
Rows(DerLigne & ":" & "300").Select
Selection.Insert Shift:=xlDown
Next i
End Sub