Trouver l'avant derniere cellule non vide

Bonjour,

J'ai en colonne B des informations et dont le nombre de ligne peut etre variable.

je peux tres bien avoir des données en B30.


B1 TEXTE
B2
B3
B4
B5
B6
B7 TEXTE

J'aimerais coller des informations en B2, j'ai voulu utiliser ce code

Code:

---

Range("B1").End(xlDown).Offset(1, 0)

---

mais je tombe en B8

Comment trouver l'avant derniere cellules non vide ?

une fois que les données sont collées en B2, si je réexecute la commande vba, je voudrais qu'il tombe en B3


merci

Bonjour,

Code:

---

1 2	Range("B65000").End(xlUp).Offset(-1).Select

---

Ceuzin

merci mais ça ne fonctionne pas, je tombe en B6, je veux tomber en B2 et ainsi de suite si B2 est non vide, tomber en B3

Bonjour,

Si jamais ça peut aider....

Code:

---

Workbooks("classeur.xls").Worksheets("feuil1").Range("A65536").End(xlUp).Row - 1

---

permet de connaitre le nombre de lignes d'un classeur.

Code:

---

1 2	[B65000].End(xlUp).End(xlUp).Select

---

Ceuzin

Bonjour,

A priori tu recherche la première ligne vide non?
Ton titre correspont-il vraiment à ce que tu souhaites trouver?


Si je regarde ton code, il suffit juste de gérer le cas particulier des premières lignes

Donc: (ce code sélectionne la cellule que tu cherches, à toi de le modifier celon tes besoins)

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

If Range("B1").value = "" then Range("B1").end(xldown).select If selection.offset(1,0).value = "" then selection.offset(1,0).select else selection.end(xldown).offset(1,0).select endif else If Range("B2") = "" then Range("B2").select else Range("B1").end(xldown).offset(1,0).select endif endif

---

merci pour toutes vos réponses,


le code de sophieceuzin est parfait !!

merci