Macro_Insertion ligne du tableau (mais pas DerLigne)

[zebanx]

Bonjour,

Pourriez-vous s'il vous plait m'apporter votre aide pour mettre en dynamique sur chaque feuille la première ligne "" du tableau en vue d'insérer un nombre de ligne jusqu'à 300 sachant que ce n'est pas la dernière ligne ?

Merci pour votre aide, bonne fin de journée

 

[Paf]

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+

 

[zebanx]

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