Userform et CommandButton

Version imprimable

J'ai créé une Userforms avec pleins de CommandBbutton. Ce que je voudrais c'est lorsque je clique sur un Button se declenche une procedure.
Voila le code

Code:

1
2
3
4
5
6
7
8
9
Sub Workbook_Open()
        Sheets("Feuil1").Select
        Feuil1.Range("A21:S21").Select
        Phrase = ActiveCell.FormulaR1C1
        Load Touche
        Touche.StartUpPosition = 3
        Touche.Show
 
End Sub

Code:

1
2
3
4
5
6
Private Sub Affiche()
        Feuil1.Range("A21:S21").Select
        ActiveCell.FormulaR1C1 = Phrase
        Reponse = MsgBox(Phrase, vbOKOnly)
        Touche.Show
End Sub

Code:

1
2
3
4
5
6
7
8
9
10
11
Private Sub CdeButtonA_Click()
    Reponse = MsgBox("click bouton A", vbOKOnly)
 
        If Space = 1 Then
           Phrase = Phrase & " A"
           Space = 0
        Else
           Phrase = Phrase & "A"
        End If
        Affiche
End Sub

J'ai mis ces procedures dans ThisWorkbook et ca ne marche pas.
Quelqu'un Peut il me dire ce que je ne fais pas ? :cry:

Merci

27/10/2010, 18h34
jfontaine

Bonjour,

Les codes d'évènements doivent se trouver au niveau de la feuille si ces objets "commandbutton" ou autres se trouvent sur cette feuilles.

Dans ton cas, il faut mettre le code du bouton dans la Userform
27/10/2010, 19h41
jesspaire

Merci de ta reponse
Mais comment je fais car lorsque je clique sur la userform je n'ai que le dessin et pas de possibilite de saisir de code
27/10/2010, 19h47
jfontaine

double clic sur le le bouton ou sur lefond gris de la userform
27/10/2010, 21h26
jesspaire

Merci , un grand merci à Toi
Ca marche
C'est la premiere fois que j'utilise les UserForms
Cela va faire plaisir à une famille car c'est la programmation d'un clavier pour un jeune qui ne parle pas mais qui peut faire bouger une souris et cliquer

Christine
:P
27/10/2010, 21h44
jfontaine

Ce forum est a utiliser sans moderation alors

Bon courage