Modifier une macro qui recupere la derniere ligne renseigner

Meloman

XLDnaute Occasionnel
Bonjour à tous

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

Code:
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

Code:
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
 
G

Guest

Guest
Re : Modifier une macro qui recupere la derniere ligne renseigner

Bonjour,

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

Meloman

XLDnaute Occasionnel
Re : Modifier une macro qui recupere la derniere ligne renseigner

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

Discussions similaires


Haut Bas