Création dynamique de boutons

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : Création dynamique de boutons

jacker146

Bonjour,

Dans le code VBA Excel suivant, je suit face à un problème :

Lorsque j'exécute la fonction AjouterBT, je peux observer que l'évènement est chargé dans ma fenêtre d'exécution.

Cependant, le clic sur le bouton créé n'a pas d'action.

Si maintenant j'exécute la fonction InitBouton, le clic affiche bien le nom du bouton !

Module

Code :

Option Explicit
Public Collect As Collection
Sub AjouterBT()
Dim tObject As Object
Worksheets.Add
'Ajout du bouton
Set tObject = ActiveSheet.OLEObjects.Add(ClassType:="Forms.Commandbutton.1", _
Link:=False, _
DisplayAsIcon:=False, _
Left:=1, _
Top:=50, _
Width:=72, _
Height:=24)
tObject.name = "BTest"
tObject.Object.Caption = "Test"
'Destruction du pointeur
Set tObject = Nothing
'Chargement de l'évènement
Call InitBouton
Debug.Print "Vérif création OK : " & Collect.Item(1).GroupBoutons.name
End Sub
Public Sub InitBouton()
Dim Obj As OLEObject
Dim Cl As Classe1
Set Cl = Nothing
Set Collect = New Collection
'boucle sur les objets de la active
For Each Obj In ActiveSheet.OLEObjects
'verifie s'il s'agit d'un bouton
If TypeOf Obj.Object Is MSForms.CommandButton Then
Set Cl = New Classe1
Set Cl.GroupBoutons = Obj.Object
Collect.Add Cl
Debug.Print "Bouton ajouté : " & Obj.name
End If
Next Obj
End Sub
Sub BoutonClick(name As String)
Cells(1, 1).Value = name
End Sub

Module de classe 'Classe1'

Code :

Option Explicit
Public WithEvents GroupBoutons As MSForms.CommandButton
Private Sub GroupBoutons_Click()
Call BoutonClick(GroupBoutons.name)
End Sub

Comment ce fait-il que ma collection reste en mémoire si je lance la fonction InitBouton séparément et pas lorsqu'elle est appelée par la fonction AjouterBT ?!?

Publicité

olivthill

Peut-être que Excel n'a pas le temps de gérer la création car on ne lui redonne pas la main.
Donc, peut-être qu'il faudait ajouter ceci avant Set tObject = Nothing

Call wait_secondes(1)

Et ajouter une procédure qui redonne un peu la main au système

Private Sub wait_secondes(Secondes As Integer)
Dim Début As Long, Fin As Long, Chrono As Long
Debut = Timer
Fin = Debut + Secondes
Do Until Timer >= Fin
DoEvents
Loop
End Sub

Message édité par olivthill le 21-09-2010 à 17:34:52

jacker146

Non, j'ai essayé de rajouter un wait mais sans succès.

olivthill

Un wait comme celui décrit http://msdn.microsoft.com/en-us/li [...] e.11).aspx ?

Je préconiserais plutôt des DoEvents, voir http://support.microsoft.com/?scid [...] 8&x=6&y=16 .

jacker146

Actuellement, je ne pense pas que le problème vienne de la création de l'objet.

Effectivement, je vérifie la bonne création d'un objet dans ma collection par un debug.print en ligne 23 qui prouve que la collection collect de type public contient bien le bouton.

Cependant, dès que je quitte la procédure AjouterBT(), la collection est détruite ! alors qu'une collection public devrait être conservée...

L'exécution indépendante de la fonction InitBouton() après l'ajout du bouton permet de voir que le code fonctionne correctement, car la collection n'est pas détruite.

Pour moi, il semblerait qu'il s'agisse d'un bug (Excel 2003 SP3). Si on peut me confirmer que c'est bien le cas ?
Dans ce cas, quelle solution utiliser pour lier sur un bouton créé dynamiquement (en dehors de l'utilisation de la librairie VBIDE qui permet d'insérer par la macro du code source mais qui ne constitue pas de la programmation structurée selon moi) ?

olivthill

Il y a deux lignes qui m'étonnent un peu :

Citation :

6. Dim tObject As Object

Je l'aurais mis en ligne 4 pour avoir un objet global.

Citation :

20. Set tObject = Nothing

Je n'aurais pas supprimer la référence qui vient d'être crée.

Mais cela n'a peut-être rien à voir.

jacker146

En fait, il s'agit uniquement d'un pointeur dont le but est de rendre plus simple l'utilisation de l'objet pour l'initialisé. Ce pointeur n'a pas besoin d'avoir une dimension public car je retrouve le pointeur en parcourant les objets de la feuille qui n'en contient qu'un seul de type bouton.

Etant donné que la feuille aura elle aussi un pointeur sur cet objet (créé automatiquement), la destruction du pointeur ne supprime pas le bouton (il reste au moins un pointeur sur l'objet). Comme il est d'usage de supprimer les pointeurs dès qu'ils deviennent inutiles, je le fais.

FORUM HardWare.fr

Programmation

VB/VBA/VBS

Création dynamique de boutons

Sujets relatifs
Signature dynamique	Slideshow avec boutons liens
initialisation dynamique de variable ou constante	création d un petit programme
Creation de jeux d'autoroute	Tableau croisé dynamique VBA
Creation dynamique d'un Pdf a partir d'une Appli java.	Allocation dynamique d'un tableau f90
typage dynamique & compilateur
Plus de sujets relatifs à : Création dynamique de boutons

Page générée en 0.059 secondes