Discussion :

[jcs75]

BOnjour,

Dans une feuille à remplir, figure au départ une ligne d'entêtes (style : Range("A1:E1"). Ensuite, le programme ajoutera une ligne après l'autre.
J'utilise la méthode suivante : Range("A1").End(xlDown).Offset(1,0).Select pour indiquer la première cellule de la ligne suivante (celle de l'entête pour le première écriture, celle qui suit la dernière écriture saisie ensuite).
Le problème, c'est qu'avec End(xlDown) Excel envoie le curseur à la dernière ligne de la page et il couine ensuite avec Offset(1,0) qui lui demande d'aller à la ligne suivante qui n'existe pas.

Si je positionne deux lignes d'entêtes (j'ai donc une plage de deux lignes), je n'ai plus ce problème, l'instruction fait pointer le curseur sur la cellule A3 pour la première écriture à saisir et tout se passe bien ensuite. Comment pourrais-je me passer de doubler la ligne d'entêtes ? D'avance merci pour votre aide.

[Philippe Tulliez]

Bonjour,
La propriété End(xlDown) d'un objet Range est l'équivalent d'un Ctrl+flèche bas.
Si on a une seule ligne dans la feuille et que l'on se positionne sur A1 et que l'on fait Crtl+Flèche bas, on arrive immédiatement à la dernière ligne de la feuille.
Soit tu choisis de partir de la dernière ligne et tu utilises End(xlUp) soit et c'est l'option que j'utilise tu emploies la propriété CurrentRegion qui est l'équivalent d'un Ctrl+A
Exemple

Code :

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

1
2
3
4
5
6
7
Sub t()
 Dim rng As Range
 With ThisWorkbook.Worksheets("db")
  Set rng = .Range("A1").CurrentRegion
 End With
 MsgBox "Adresse de la liste de données " & rng.Address
End Sub

ou

Code :

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

1
2
3
4
5
6
7
8
Sub t()
 Dim LastRow As Long
 With ThisWorkbook.Worksheets("db")
  Debug.Print .Rows.Count
  LastRow = .Range("A" & .Rows.Count).End(xlUp).Row
 End With
 MsgBox "Dernière ligne de la liste de données " & LastRow
End Sub

[jcs75]

Bonjour,

Merci pour les astuces mais je n'ai toujours pas compris pourquoi End(xlDown) renvoie en bas de la feuille excel si la plage n'a qu'une ligne d'épaisseur et pourquoi il renvoie à la dernière ligne de la plage si cette dernière fait deux lignes ou plus d'épaisseur. Puisque End(xlDown) équivaut à Ctrl + flèche vers le bas, la commande devrait produire le même résultat dans les deux cas. Merci d'avance pour cette explication.

[Philippe Tulliez]

Bonjour,
Je pense te l'avoir expliqué dans les deux premières lignes de ma réponse.
As-tu fait le test manuellement ?
Le raccourci clavier Ctrl+flèche de direction permet de se déplacer de la cellule active vers la dernière cellule remplie dans la direction choisie.
Si la cellule qui suit est vide, le déplacement s'effectue jusqu'à la prochaine remplie.
Donc si tu n'as qu'une cellule remplie (Exemple A1) et que tu fais Ctrl+Flèche bas) tu iras jusqu'à la dernière ligne alors que si les cellules A1 et A2 sont remplies et que tu fais Ctrl+Flèche bas depuis A1, il s'arrêtera à A2.
En VBA

Code :

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

Range("A1").End(xlDown).Select

est l'équivalent de Ctrl+Flèche bas

C'est plus clair maintenant ?

[Invité]

Salut,

@ jcs75,

Que tu utilise Cells().End(xlDown) ou Cells().End(xlUp), tu doit toujours vérifier si la cellule à laquelle tu fait référence est vide ou non juste avant.

[jcs75]

Bonsoir,

Merci à tous les deux. J'ai fait un test avec le jeu de touches Ctr + Flèche en bas, le curseur s'arrète aux limites des plages utilisées et s'il n'y en a plus descend jusqu'en bas de la feuille. Utilisant plus la souris que le clavier pour couvrir des plages de cellules, je n'avais pas repéré ce manège avec les touches de clavier. Merci beaucoup !