Prochaine cellule selectionnée

Borello · 16 Novembre 2005

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 · 16 Novembre 2005

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 · 18 Novembre 2005

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

A+

Prochaine cellule selectionnée

Borello

Guest

Bebere

XLDnaute Barbatruc

Borello

Guest

Discussions similaires