Re : VBA Procédure pour Double Clique en boucle
Bonjour,
Je te remercie phlaurent55 de m'avoir mise sur la bonne piste. Je ne connaissais pas les modules de classe et je me rend compte que c'est génial !!!
Après recherche, j'ai trouvé une solution à mon problème.
Voici la solution :
Une fois le UserForm créer, et les contrôles insérer, il faut insérer un Module de Classe puis le renommer (dans mon exemple pour simplifier, je l'ai appelé ModuleDeClasse).
Ensuite j'ai tapé dans le Module de Classe le code suivant :
Public WithEvents groupebouton As MSForms.TextBox
Private Sub groupebouton_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
groupebouton.BackColor = &HC0FFFF
End Sub
Ensuite, dans le code du UserForm, j'ai tapé le code suivant :
Dim Boutons() As New ModuleDeClasse
Private Sub Userform_Initialize()
Dim Nb As Integer, Ctrl As Control
Nb = 0
' Récupérer les boutons du formulaire qui appartiennent à la nouvelle classe de boutons créée.
For Each Ctrl In UserForm1.Controls
If TypeName(Ctrl) = "TextBox" Then
Nb = Nb + 1
ReDim Preserve Boutons(1 To Nb)
Set Boutons(Nb).groupebouton = Ctrl
End If
Next
End Sub
Bon j'espère que tout le monde comprendra, c'est un exemple simple et ça fonctionne super. Désolée, je n'ai pas su mettre en forme tel que ça apparait dans VBA, je n'ai pas encore l'habitude de poster sur ce site.
Bonne journée à tous