Bonjour à tous
j'utlise cette macro qui me permet de parcourir toute mes feuilles et de récuperer la derniere ligne renseigner
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
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
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 IfLe 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).Rowpour 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