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
 

Créez un compte ou connectez vous pour répondre

Vous devez être membre afin de pouvoir répondre ici

Créer un compte

Créez un compte Excel Downloads. C'est simple!

Connexion

Vous avez déjà un compte? Connectez vous ici.

Haut Bas