Déplacement relatif sous vba

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.

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:

---

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:

---

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

---

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.

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:

---

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

---

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

C'est plus clair maintenant ?

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.

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 !

Bonjour,
L'utilisation des raccourcis clavier peut s'avérer très intéressante dans bien des cas.
L'une des plus intéressantes est la combinaison Ctrl+Maj+flèche de direction qui permet de sélectionner une colonne ou une ligne entière.
Ainsi si l'on sélectionne la cellule C8 d'une plage de cellule A1:J500 et que l'on combine Ctrl+Maj+flèche Bas, nous allons sélectionner les cellules C8:C500 et si nous continuons en gardant cette sélection en combinant Ctrl+Maj+Flèche droit, c'est maintenant les cellules C8:J500 qui seront sélectionnées

Bonjour,

Citation:

---

Envoyé par Philippe Tulliez

Bonjour,
L'utilisation des raccourcis clavier peut s'avérer très intéressante dans bien des cas.
L'une des plus intéressantes est la combinaison Ctrl+Maj+flèche de direction qui permet de sélectionner une colonne ou une ligne entière.
Ainsi si l'on sélectionne la cellule C8 d'une plage de cellule A1:J500 et que l'on combine Ctrl+Maj+flèche Bas, nous allons sélectionner les cellules C8:C500 et si nous continuons en gardant cette sélection en combinant Ctrl+Maj+Flèche droit, c'est maintenant les cellules C8:J500 qui seront sélectionnées

---

Même que dans cette page qui donne des liens vers des livres électroniques (en anglais) gratuits:

http://blogs.msdn.com/b/mssmallbiz/a...cloud-sql.aspx

Il y en a avec les raccourcis-clavier de Windows 7, Windows 8 et Office 2013. Même si c'est indiqué 2013, je suis prêt à parier que la plupart s'appliquent aussi aux versions précédentes.