Utilisation de .end

Bonjour à vous,

J'ai lu cette discussion.
Vous semblez maîtriser .End donc voilà ma question (du même type que celle du sujet) :

J'ai une feuille avec les trois première lignes bloquées, afin qu'elles s'affichent constamment (entête du tableau). Le problème est que quand je veux demande .End d'une des colonnes du tableau (3 premières cellules non vides donc normalement pas de problème) il me donne sans arrêt la première ligne qui n'est pas bloquée (indice 4)...

J'ai essayé de contourner le problème en évitant d'utiliser .End mais ça serait tellement simple avec...


Merci d'avance


Rag

Bonjour

Personnellement, je prefere l'utiliser dans le sens inverse, on se met à la derniere ligne et on remonte

Code:

---

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

---

Merci Wilfried, ça marche mais je ne sais pas pourquoi il se bloque à cet endroit dans l'autre sens, ou du moins je ne sais pas comment le débloquer...

Mon soucis maintenant (suite et fin j'espère...) c'est que je voudrais utiliser cette propriété dans ouvrir le classeur... j'ai lu plein de trucs là dessus mais je ne connais absolument rien à ADO OLE ou SQL et je voulais donc savoir s'il existe une commande directe VBA.

Sinon tant pis je me mettrai au goût du jour :roll:

Merci d'avance.


Rag

Arf... Après quelques tests j'ai compris comment cette défection de .End fonctionne... c'est plus simple et archaïque que les roues carrées...

R.End(xlTruc) : R est une cellule ou un groupe de cellules, Truc soit Down soit Up soit Right soit Left (jusque là c'est simple oui mais je pense aux gens qui vont lire et qui connaissent pas ;)).

1. si R est vide, cela la donne la première cellule non vide au dessus (Up), ou en dessous (Down)... de la première cellule de R,
2. si R est pas vide, ça rend la dernière cellule non vide.....

Comme je l'ai dit plus haut c'est archaïque quand même... si y'a un trou dans les données ben on loupe des trucs...

La solution pour contourner le problème : faire comme Wilfried, ça marche.

Je pense ne pas me tromper en disant que la fonction .End ressemble en gros à ça :

Code:

---

1 2 3 4 5 6 7 8 9

Dim i As Integer, j As Integer i = 1 j = 1 Do While NOT IsEmpty(Cells(i,j)) If Truc = xlUp Then i = i - 1 If Truc = xlDown Then i = i + 1 If Truc = xlRight Then j = j + 1 If Truc = xlLeft Then j = j - 1 Loop

---

Rag