Création dynamique de boutons

Création dynamique de boutons - VB/VBA/VBS - Programmation

Marsh Posté le 21-09-2010 à 16:45:33    

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 :
  1. Option Explicit
  3. Public Collect As Collection
  5. Sub AjouterBT()
  6. Dim tObject As Object
  7.    
  8. Worksheets.Add
  9. 'Ajout du bouton
  10. Set tObject = ActiveSheet.OLEObjects.Add(ClassType:="Forms.Commandbutton.1", _
  11.     Link:=False, _
  12.     DisplayAsIcon:=False, _
  13.     Left:=1, _
  14.     Top:=50, _
  15.     Width:=72, _
  16.     Height:=24)
  17. tObject.name = "BTest"
  18. tObject.Object.Caption = "Test"
  19. 'Destruction du pointeur
  20. Set tObject = Nothing
  21. 'Chargement de l'évènement
  22. Call InitBouton
  23. Debug.Print "Vérif création OK : " & Collect.Item(1).GroupBoutons.name
  24. End Sub
  26. Public Sub InitBouton()
  27. Dim Obj As OLEObject
  28. Dim Cl As Classe1
  29.    
  30. Set Cl = Nothing
  31. Set Collect = New Collection
  33. 'boucle sur les objets de la active
  34. For Each Obj In ActiveSheet.OLEObjects
  35.     'verifie s'il s'agit d'un bouton
  36.     If TypeOf Obj.Object Is MSForms.CommandButton Then
  37.         Set Cl = New Classe1
  38.         Set Cl.GroupBoutons = Obj.Object
  39.         Collect.Add Cl
  40.         Debug.Print "Bouton ajouté : " & Obj.name
  41.     End If
  42. Next Obj
  43. End Sub
  45. Sub BoutonClick(name As String)
  46. Cells(1, 1).Value = name
  47. End Sub


 
Module de classe 'Classe1'

Code :
  1. Option Explicit
  3. Public WithEvents GroupBoutons As MSForms.CommandButton
  5. Private Sub GroupBoutons_Click()
  6.     Call BoutonClick(GroupBoutons.name)
  7. 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 ?!?

Reply

Marsh Posté le 21-09-2010 à 16:45:33   

Reply

Marsh Posté le 21-09-2010 à 17:33:23    

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
Reply

Marsh Posté le 21-09-2010 à 17:51:33    

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

Reply

Marsh Posté le 22-09-2010 à 09:40:45    

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 .
 

Reply

Marsh Posté le 22-09-2010 à 14:43:16    

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) ?

Reply

Marsh Posté le 22-09-2010 à 15:00:28    

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.

Reply

Marsh Posté le 22-09-2010 à 16:22:41    

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.

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed