Discussion :

[polo92]

Bonjour,

Je me suis construit une petite fonction pour aller récupérer le n° de la dernière ligne non nulle d'une feuille :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Function derniereligne(liste As String) As Long
With Worksheets(liste)
    derniereligne = .Range("A1").End(xldown).Row
    MsgBox "Numéro de la dernière ligne : " & derniereligne
    End With
End Function

et pour une de mes feuilles du classeur, la fonction me renvoie systématiquement la valeur 1 048 576, soit le nombre de ligne max dans excel, alors que la dernière ligne non nulle est la n°70...
D'ou peut venir le probleme?

Merci pour vos lumieres!

[Docmarti]

Bonjour polo92;

Et avec ceci, est-ce mieux ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Sub Dernieres()
 Liste = 1
 
 With Worksheets(Liste)
 
 Set rg = .Cells.Find(what:="*", After:=.[A1], LookIn:=xlValues, LookAt:=xlPart, SearchFormat:=False, SearchOrder:=xlByRows, SearchDirection:=xlPrevious, MatchCase:=False)
If rg Is Nothing Then DernLigne = 1 Else DernLigne = rg.Row
 
 Set rg = .Cells.Find(what:="*", After:=.[A1], LookIn:=xlValues, LookAt:=xlPart, SearchFormat:=False, SearchOrder:=xlByColumns, SearchDirection:=xlPrevious, MatchCase:=False)
If rg Is Nothing Then derniereColonne = 1 Else derniereColonne = rg.Column
 
MsgBox DernLigne & " " & derniereColonne
End With
 
End Sub

Cordialement
Docmarti

[patricktoulon]

Bonjour

en fait pour avoir la derniere ligne utilisée dans une colonne

il faut utiliser un autre argument

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Function derniereligne(liste As String) As Long
With Worksheets(liste)
    derniereligne = .Range("A"& rows.count).End(xlup).Row
    MsgBox "Numéro de la dernière ligne : " & derniereligne
    End With
End Function

xldown part d'en haut vers le bas donc si tu a une cellule vide au milieu la réponse sera fausse

xlup part d'en bas vers le haut

ensuite cette méthode te donne la dernière ligne utilisée dans la colonne précisée ici en l'occurrence la colonne "A"

maintenant si tu cherche la dernière ligne utilisée dans le sheets(feuille)
toute colonne confondues sert toi de usedrange.row

[SfJ5Rpw8]

Bonsoir,

il y as quoi dans la colonne A de la feuille ou cela ne fonctionne pas ? n'est-elle pas vide ?

[polo92]

Merci à vous 3 pour vos réponses.

En fait effectivement, ça va à la derniere ligne quand la colonne est vide...je m'en suis aperçu en faisant des tests.

J'ai repris le code de patricktoulon pour éviter le probleme d'une cellule vide.

[Docmarti]

Bonjour patricktoulon

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

 derniereligne = .Range("A"& rows.count).End(xlup).Row

Cette méthode, très utilisée, est fiable pour trouver la dernière ligne non vide d'une seule colonne.

Mais qu'en est-il si je veux trouver la dernière ligne non vide de plusieurs colonnes? Elle ne fonctionne plus.

C'est pourquoi je préfère utiliser Find qui permet de rechercher sur plusieurs colonnes ou dans un champ spécifique. Voir le classeur joint.

maintenant si tu cherche la dernière ligne utilisée dans le sheets(feuille)
toute colonne confondues sert toi de usedrange.row

UsedRange est à éviter car il est reconnu pour n'avoir aucune fiabilité en ce qui concerne la dernière ligne contenant au moins une valeur.

Cordialement

Docmarti

[patricktoulon]

Bonjour docmarti

je ne suis pas sur que tu es raison

parce que non seulement le résultat est important mais aussi le temps

exemple

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Set r = Worksheets("Feuil1").Range("A:D")

quand tu envoie cette ref de cellule dans ta fonction

la fonction cherche dans les 4 colonnes jusqu'à a la dernière ligne
car l'argument est "*" donc toutes les cellules seront visitée et je dis bien toutes

même si ca n'est pas nécessaire

c'est mon opinion

a méditer

Au plaisir

[Docmarti]

Bonjour patricktoulon

Tu soulèves là une question intéressante : la rapidité de la fonction FIND.

La fonction RECHERCHE de Excel est optimisée pour effectuer une recherche en moins de 1/10 ième de seconde, et cela même si la recherche s'effectue sur 1,048,576 lignes et 16,384 colonnes.

Et comme la fonction FIND de VBA utilise la fonction RECHERCHE de Excel, le résultat est instantané.

De plus la fonction FIND de VBA peut limiter sa recherche à un champ, ce qui est très utile pour connaître la dernière ligne non vide d'un champ.

Cordialement

Docmarti