Discussion :

[AH...]

Bonjour à tous,

Je viens de crer une userform sous excel, dans laquelle j'ai crée dynamiquement un certains nombre de control, typiquement des commandbutton.
En revanche, je ne parviens pas à créer le code associé à un évènement sur ces boutons (typiquement, commandbutton_click, qui n'est manifestement pas pris en compte)
Quelqu'un peut-il m'aider ?

Merci à tous,
Bonne journée

[Invité]

Bonjour

Double-click sur le bouton quans tu es en mode création

Starec

[AH...]

Bonjour,

Merci de ta réponse.
Malheureusement, ça ne m'aide pas beaucoup.
Mon problème est que, lorsque je crée le commandbutton dynamiquement, il apparait bien dans mon userform (celui qui est affihé à l'écran quand la macro se lance) mais pas dans le mode création...
Donc je ne peux pas accéder au bouton, ni double clicker dessus, ni, donc, le programmer...

Merci de votre aide,
Bon weekend à tous.

[illight]

Va dans le code de ton Userform (clic droit sur le userform > code) et essaye de voit dans les combobox en haut si tu peux pas choisir le commandbutton.

Autre solution : en dessous de où tu as la présentation des modules, en dessous, tu as une combobox aussi ou tu as une liste de tous les controles qui ont été créés regarde s'il est pas dans le coin

[AH...]

Merci de ta réponse. J'ai déjà essayé tout ça, mais ça ne fonctionne pas. le COmmandButton n'existe pas... mais il apparait quand ma userform est lancée... !

[illight]

Tu peux nous joindre ton fichier ?


Question subsidiaire : tu as quelle version de Excel ?

[Speedrman]

Bonjour,

Est ce que c'est ça que tu cherches ?

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
Public Sub SPForm()
 
  Dim x As Variant
 
    WordBasic.BeginDialog 220, 130, "UserForm"
        WordBasic.OKButton 10, 10, 88, 21
        WordBasic.CancelButton 118, 10, 88, 21
        WordBasic.pushbutton 10, 50, 196, 21, "Button 1", "BoutonCmd1"
        WordBasic.pushbutton 10, 90, 196, 21, "Button 2", "BoutonCmd2"
    WordBasic.EndDialog
    Dim dlg As Object: Set dlg = WordBasic.CurValues.UserDialog
    x = WordBasic.Dialog.UserDialog(dlg)
    If x = 0 Then Exit Sub
 
    Select Case x
        Case -1
            'bouton OK traitement voulu...
        Case 1
            'bouton 1 traitement voulu...
        Case 2
            'bouton 2 traitement voulu...
        Case 0
            'bouton annuler
            Exit Sub
    End Select
 
End Sub

Edit:
Désolé, mais c'est pour du VBA word, mais j'imagine qu'avec excel ça doit être le même principe.. (sans WordBasic)

[AH...]

Merci à tous pour vos réponses !!!
J'ai trouvé ma réponse sur le lien suivant :
http://www.developpez.net/forums/sho...ighlight=chkbx

Encore merci pour votre disponibilité et votre aide, et bon weekend à tous.