Prochaine cellule selectionnée

[Borello]

Bonsoir à tous !

Il est dur de commencer autrement que par un 'je' Mais le fait est que...
Enfin dans mon document (xlt) j'ai des commandbuttons transparents(une dixaine) qui me renvoie ailleurs sur la même feuille soit:
Private Sub CommandButton12_Click()
Range('B16').Select
End Sub

Je n'arrive pas à y insérer la 'commande' qui me renverrai sur la prochaine cellule vide en dessous ('B17'... 'B18'... ansi de suite)

Merci de m'aider

A+

 

[Bebere]

bonsoir Borello
si il n'y a pas de cellules vides
Private Sub CommandButton12_Click()
dim L as integer
L=range('B1').end(xldown).row+1
Range('B' & L).Select
End Sub

si il y a des cellules vides
Private Sub CommandButton12_Click()
dim L as integer
L=range('B65536').end(xlup).row+1
Range('B' & L).Select
End Sub


à bientôt

 

[Borello]

Merci !!
C'est cool. J'ai pu faire ce que je voulais.
Je l'ai adaptée à mon document et cela fonctionne à merveille.

A+