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