Discussion :

[Tinien]

Bonjour , je traite mensuellement un fichier Excel contenant un nombre indéterminés de lignes ( de 500 à 2000 environs )
Je voudrais savoir comment déterminé et créer automatiquement une variable qui permettrait de trouver la derniere ligne rempli et de la mettre en variable pour pouvoir me diriger dans la page en utilisant les formules.

Merci

[melouille56]

Salut!
Je te propose

Code :

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

1
2
Dim i As Long
i = Worksheets("NomDeMaFeuille").UsedRange.Row

et avec ca tu devrais avoir le numéro de la dernière ligne renseignée.
A+

[casefayere]

Bonjour,

fouilles aussi par là, juste pour ta formation
http://www.developpez.net/forums/d33...uille-calculs/

[Tinien]

Ok merci et donc pour remplacer ceci

Code :

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

Range("C2:C2000").Select

je peut utiliser quelque chose du genre :

Code :

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

Range("C2:C&"i"&")

?
Merci pour le lien super intéréssant sa va me servir pour d'autres choses !

[casefayere]

non, non

pas ça

Code :

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

Range("C2:C&"i"&")

si i est ta derniere ligne

Code :

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

Range("C2:C" & i)

[laetitia]

bonjour le fil le forum une autre possibilitée variable i

Code :

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

1
2
dim i as long
i = Cells.Find("*", , , , , xlPrevious).Row

[casefayere]

Bonjour L'amie laetitia

on en apprend encore, je ne connaissais pas cette façon de faire mais c'est aussi un prétexte pour te saluer

Bonne fin de journée

[Tinien]

Bonjour,
aprés en avoir essayer plusieurs j'ai utiliser celle ci :

Code :

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

derniereLigne = Range("J1").End(xlDown).Row

Cependant j'ai un bug apparement puisque environ une fois sur deux il s'arrete à 15990 . pour quelle raison je ne sais pas sachant que c'est toujours sur le même fichier.

Merci

[casefayere]

Bonjour tinien, chere Laetitia re le forum,

essaies celle-ci

Code :

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

derniereLigne = Range("J" & rows.count).End(xlup).Row

bonne journée

[laetitia]

bonjour le fil l' ami casefayere en complement
si tu utilise (xlDown) tu pars du haut vers le bas donc si 15991=vide arret cellule 15990 il faut utiliser le code de l' ami casefayere

Code :

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

Range("J" & rows.count).End(xlup).Row

qui par du bas vers le haut (xlup)
ou

Code :

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

Range("j65536").End(xlUp).Row

attention dans ton exemple tu cherches plus la derniere ligne non vide de ta feuille mais tu cherches la derniere cellule non vide de la colonne j c' est différent

[casefayere]

et pour completer Laetitia
pour la derniere ligne de la feuille, un exemple

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub Macro1()
Dim dc As Integer, dl As Integer, x As Integer, dlf As Integer, col As String
dc = Range("IV1").End(xlToLeft).Column
dlf = 0
For x = 1 To dc
col = Mid(Cells(1, x).Address, 2, 1)
dl = Range(col & Rows.Count).End(xlUp).Row
If dl > dlf Then
dlf = dl
End If
Next x
MsgBox dlf
End Sub

[Tinien]

Merci sa fonctionne parfaitement. Je met le sujet en résolu encore merci pour votre aide