Discussion :

[mjpmjp]

bonjour,

j'ai noté que systématiquement, "End(xlUp).Row" était utilisé (dans le cas ou "End(xlDown).Row" aurait pu être utilisé...je précise )

je suis sous excel 2010 et 2016, avec 2007 ce code fonctionne également :

Code :

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

1
2
 
MsgBox Cells(1, 1).End(xlDown).Row & vbCrLf & Cells(Rows.Count, 1).End(xlUp).Row

pourquoi cette question ?
logique ?
parcourir de 1 à 20000 lignes avec "xlDown" me parait plus logique que
parcourir de 1048576 à ligne 20000 avec "xlUp"

une fin annoncée ?
dans la complétion du code , l'aide ne propose plus "xlDown" (reste dans le "vertical" uniquement "xlUp")
je n'arrive plus à actionner cette complétion ... à vérifier donc...

voila , qu'en pensez vous ?

@+JP

[Jean-Philippe André]

Bonjour,

le fait de partir "d'en bas pour remonter" au lieu "d'en haut pour descendre" est tout simplement la pour eviter les lignes vides.

Tu peux essayer en mettant des donnees dans cellules A1, A2 et A4 par exemple

Code :

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

Range("A1").End(xldown).Row

te retournera une valeur differente de

Code :

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

Range("A65536").End(xlup).row

Il reste evident que si toutes les lignes sont remplies, le resultat sera identique

[mjpmjp]

bonjour,
merci pour cette précision,

qu' en est il de la complétion ?, vba te propose encore "xlDown" ?

@+JP

[Jean-Philippe André]

J'ai bien les 4 directions qui s'affichent.

Mais je t'avoue qu'avec pres de 15 ans de VBA dans les pattes, je tape a la volee :/

[78chris]

Bonjour

...
parcourir de 1 à 20000 lignes avec "xlDown" me parait plus logique que
parcourir de 1048576 à ligne 20000 avec "xlUp"...

Le mot parcourir me gêne : ce n'est pas une boucle : c'est instantané comme manuellement CTRL flèche vers le haut ou vers le bas.

Par ailleurs j'ai longtemps utilisé Xldown (sur des colonnes sans trou) jusqu'à ce que je tombe sur un fichier ou seule le ligne de titre existait : là on comprends l'intérêt de le faire dans l'autre sens...

[mjpmjp]

bonjour,

je me suis positionné dans le vba d'un onglet et j'ai pu activer cette complétion


en fait "xlDown" est sous le rectangle jaune (ordre alphabétique !!!)

en conclusion donc "xlUp" c'est pour éviter les lignes vides DANS une liste

OK, merci à toi, Jean-Philippe André

@+JP

[mjpmjp]

bonjour 78chris,

Le mot parcourir me gêne : ce n'est pas une boucle : c'est instantané comme manuellement CTRL flèche vers le haut ou vers le bas.

il serait amusant de mesurer ce temps instantané
je pensais à l'organisation "interne" de excel...
s'il est instantané comme tu dis, çà laisserait penser que excel "borne" les listes (les tableaux peut être)

je retiens donc que "xlDown" doit être utilisé sur des "key" qui ne tolèrent aucun vide...

@+JP

[Patrice740]

Bonjour mjpmjp,

il serait amusant de mesurer ce temps instantané
je pensais à l'organisation "interne" de excel...
s'il est instantané comme tu dis, çà laisserait penser que excel "borne" les listes (les tableaux peut être)

Je dirais même que c'est très instructif, essaies ce code :

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 test()
Dim i&, r&, n&, t1!, t2!, t3!
  n = 20000
  t1 = Timer
  For i = 1 To n
    r = Range("A1").End(xlDown).Row
  Next i
  t2 = Timer
  For i = 1 To n
    r = Range("A" & Rows.Count).End(xlUp).Row
  Next i
  t3 = Timer
  MsgBox "xlDown : " & Format(t2 - t1, "0.######") & vbCrLf & _
         "xlUp      : " & Format(t3 - t2, "0.######") & vbCrLf
End Sub

Chez moi, dès que la colonne contient plus de 1024 lignes, xlUp est plus rapide que xlDown !!!

[Marc-L]

Bonjour,

et se rappeler cette propriété End pouvant être facilement induite en erreur par la conception même de la feuille de calculs
(formatage des cellules), alors la seule voie viable est la méthode Find comme démontré dans un tutoriel ou la FAQ,
c'est un cas régulier, étant encore tombé dessus hier …

___________________________________________________________________________________________________________

Je suis Paris, Manchester, Egypte, Stockholm, London, Istanbul, Berlin, Nice, Bruxelles, Charlie, …

[mjpmjp]

bonjour,

exact !!!

sur 2000 lignes 3x plus rapide !!!

@+JP

[Patrice740]

Re,

Et dans ce cas (2000 lignes), à condition d'arrêter l'actualisation de l'écran, Find est un peu plus rapide :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Sub test()
Dim i&, r&, n&, t1!, t2!
  Application.ScreenUpdating = False
  n = 20000
  t1 = Timer
  For i = 1 To n
    r = Columns("A:A").Find("*", , , , , xlPrevious).Row
  Next i
  t2 = Timer
  Application.ScreenUpdating = True
  MsgBox " Find : " & Format(t2 - t1, "0.000000")
End Sub