Discussion :

[Harry Covair]

Bonjour le forum,
J'ai créé un bouton en suivant scrupuleusement les conseils donnés dans le post
http://www.developpez.net/forums/d13...argeur-bouton/
La procédure appelée par le bouton est définie dans la création du bouton.

Code :

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

    ProcName_LstBx = "btn_init_Lbx_Click"

. Cette procédure se trouve dans la feuille du bouton.
Je ne comprends pas pourquoi le bouton reste inactif. Quand je demande de montrer le code, une procédure btn_init_Lbx_Click est créée dans un nouveau module.
Un membre du forum pourrait-il m'aider à raisonner pour résoudre ce problème?

D'avance merci

Harry

[VinceVBA]

Mets ta procédure dans la procédure "btn_init_Lbx_Click" du module et le problème est réglé.

[Harry Covair]

Bonjour VinceVBA,

Merci d'avoir répondu.
J'ai suivi le conseil mais, après sauvegarde et fermeture, à l'ouverture suivante du fichier, le bouton reste inopérant.

Bonne Journée

Harry

[Harry Covair]

Le motif de la non-réactivité du bouton était dû à la propriété "visible = false" qui suivait la propriété "onAction". J'ignorais que l'état visible ou non affectait les autres caractéristiques.

Bonne journée

Harry

[PMO2017]

Bonjour,

Une autre piste en utilisant un Contrôle ActiveX CommandButton plutôt qu'un Contrôle de formulaire bouton

Copiez le code suivant dans un module standard

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
28
29
30
31
32
Sub CreateCommandButton()
Const NOM_BOUTON As String = "MonBoutonPerso"
Dim OL As OLEObject
Dim CB As CommandButton
 
On Error Resume Next
ActiveSheet.OLEObjects(NOM_BOUTON).Delete
On Error GoTo 0
 
Set OL = ActiveSheet.OLEObjects.Add(ClassType:="Forms.CommandButton.1", _
    Left:=400, Top:=10, Width:=0, Height:=0)
OL.Name = NOM_BOUTON
 
Set CB = OL.Object
With CB
  .Caption = "Autant en emporte le vent"    'myText
  With .Font
    .Name = "Century Schoolbook"
    .Bold = True
    .Size = 12
  End With
  .AutoSize = True
 
  '--- Couleurs du fonds et du texte ---
  .ForeColor = RGB(255, 0, 0)     'texte
  .BackColor = RGB(170, 170, 255) 'fonds
End With
End Sub
 
Sub MaProc()
MsgBox "coucou"
End Sub

Copiez le code suivant dans la fenêtre de code de la feuille concernée

Code :

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

1
2
3
Private Sub MonBoutonPerso_Click()
Call MaProc
End Sub

Je joins un classeur exemple pour plus de facilité.

[Harry Covair]

Bonjour PMO2017,

Merci pour cette intéressante approche.
En testant le fichier xslm téléchargé, je suis surpris qu'en exécution pas à pas (F8), une erreur est donnée sur l'instruction

Code :

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

1
2
3
Set OL = ActiveSheet.OLEObjects.Add(ClassType:="Forms.CommandButton.1", _
    Left:=400, Top:=10, Width:=0, Height:=30)
OL.Name = NOM_BOUTON

"Impossible d'entrer en mode arrêt maintenant".
Pas de souci en exécution normale.
Je prends aussi la balle au bond pour poser la question: quelle est la différence (avantage, inconvénient) entre Contrôle ActiveX CommandButton plutôt qu'un Contrôle de formulaire bouton. Si vous aviez quelques pistes à ce sujet, je suis preneur.

Bonne fin de journée

Harry.