Discussion :

[jesspaire]

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 :

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

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 :

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

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 :

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

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 ?

Merci

[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

[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

[jfontaine]

double clic sur le le bouton ou sur lefond gris de la userform

[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

[jfontaine]

Ce forum est a utiliser sans moderation alors

Bon courage