bouton d'or

[brunette]

bonjour à tous,

quel est le prog VBA a tapé derrière un bouton.

en fait je veux qu'il y ait 3 boutons, si on coche sur le premier

une cellule prend la valeur 1

sur le deuxième 2

sur le troisième 3

merci d'avance

brunette

 

[Robert]

Bonjour Brunette, bonjour le forum

Si ce sont des CommandButton de la barre d'outil Boîte à Outils Contrôle et en adaptant l'adresse de la cellule à ton cas (A1 dans l'exemple, ça donne :

Private Sub CommandButton1_Click()
Range('A1').Value = 1
End Sub
Private Sub CommandButton2_Click()
Range('A1').Value = 2
End Sub
Private Sub CommandButton3_Click()
Range('A1').Value = 3
End Sub

Si ce sont des bouton de la barre d'outils Formulaire:

Sub Bouton1_QuandClic()
Range('A1').Value = 1
End Sub
Sub Bouton2_QuandClic()
Range('A1').Value = 2
End Sub
Sub Bouton3_QuandClic()
Range('A1').Value = 3
End Sub

Message édité par: Robert, à: 21/06/2005 13:36