Modifier une macro qui recupere la derniere ligne renseigner

[Meloman]

Bonjour à tous

j'utlise cette macro qui me permet de parcourir toute mes feuilles et de récuperer la derniere ligne renseigner

For Each sht In Sheets
   If Left(sht.Name, 10) = Left(UserForm1.X1, 4) & "_" & DestiNom & "_" Then
' Cherche la dernière ligne du tableau
.ListItems.Add , , "X"
Ind = UserForm1.ListView4.ListItems.Count
.ListItems(Ind).ListSubItems.Add , , sht.Range("A" & DLig)
.ListItems(Ind).ListSubItems.Add , , sht.Range("B" & DLig)
.ListItems(Ind).ListSubItems.Add , , sht.Range("C" & DLig)
.ListItems(Ind).ListSubItems.Add , , sht.Range("D" & DLig)
.ListItems(Ind).ListSubItems.Add , , sht.Range("E" & DLig)
.ListItems(Ind).ListSubItems.Add , , sht.Range("F" & DLig)
.ListItems(Ind).ListSubItems.Add , , ""
.ListItems(Ind).ListSubItems.Add , , ""
.ListItems(Ind).ListSubItems.Add , , sht.Range("H2")
.ListItems(Ind).ListSubItems.Add , , ""
       On Error Resume Next
UserForm1.CalculEvo
On Error Resume Next
   UserForm1.Listview4Color
          End If

Le probleme est que des fois j'ai pas de donner encore present dans la feuille et il la derniere ligne renseigner deviens les entetes qui se trouvent sur la ligne 3

comment modifier ceci

DLig = sht.Range("A" & Rows.Count).End(xlUp).Row

pour que la recherche de la derniere ligne renseigner soit sur une plage comprise entre la Ligne 4 de ma feuille et plus

merci d'avance de votre aide précieuse

 

[Guest]

Re : Modifier une macro qui recupere la derniere ligne renseigner

Bonjour,

DLig = sht.Range("A" & Rows.Count).End(xlUp).Row
if DLig < 4 then Dlig=4

A+

 

[Meloman]

Re : Modifier une macro qui recupere la derniere ligne renseigner

Bonjour hasco et merci grace à toi tous fonctionne parfaitement à trés bientot