Discussion :

[teddy72000]

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 :

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

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

[sophieceuzin]

Bonjour,

Code :

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

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

Ceuzin

[teddy72000]

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

[Oreo_]

Bonjour,

Si jamais ça peut aider....

Code :

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

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

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

[sophieceuzin]

Code :

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

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

Ceuzin

[supierre]

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 :

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

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

[teddy72000]

merci pour toutes vos réponses,


le code de sophieceuzin est parfait !!

merci