VBA : Gestion d'évènement Userform dynamique

Question

Bonjour à tous,

Voilà mon probleme, j'ai un Userform que je construis dynamiquement suivant le nombre d'items utilisé dans un onglet Excel ( en fait, je cré un formulaire dynamique ).

Dans ce formulaire, suivant certaines cases cochées, je bloque l'acces à certains TextBox à l'ouverture du Userform ( Initialisation ).

Mon probleme est que si je décoche ces cases, rien ne se passe : NORMAL !!

Je sais qu'on peut gérer ça en statique : Private sub TextBox1_Change ()

Mais comment proceder quand les TextBox sont multiples et que je ne connais pas leur nombre ( création en dynamique ) ??

Merci a tous pour votre aide... et bon week-end si je n'ai pas de réponse avant...

Rom1_35 · Accepted Answer

Je viens de trouver réponse à ma question.
Pour ceux que ca pourrait intéresser :
https://silkyroad.developpez.com/VBA/VisualBasicEditor/#LV-A

phil232 · Answer

faut choisir son identifiant intelligement, n'oublies pas que windows aussi arrive à les distinguer

canichon · Answer

Pardon !!!!

phil232 · Answer

en vba tu peut écrire des trucs comm

txtTest & i --> p.ex. txtTest1 si i = 1

canichon · Answer

Je veux bien croire que c'est vendredi soir mais où t'as fumé ou c'est moi... JE NE  COMPRENDS RIEN A CE QUE TU ME DIS.... Laisse tomber !!!!

Bon week-end

phil232 · Answer

moi, c'est Super Pollem

et je me demandes si Delphi ne serait pas mieux adapté à tes besoin. là c'est pas un pb d'attacher un event p.ex.
par contre en vba ce n'est pas possible (à ma connaissance)

Polux31 · Answer

bonjour,

Pour les créer :

Dim myTextBox As Object
Dim i As Long

With UserForm1
For i = 1 to nbCaseCochee
set myTextBox = .controls.add("Forms.TextBox.1","le nom du TextBox" & i, true)
... < tu mets les propriétés du textbox : myTextBox.Top = ..., la hauteur, largeur etc ...>
Next i
End With

....

pour les lire et mettre les données saisies dans les textboxes dans la colonne A de la première feuille du classeur par exemple:

Dim myTextBox As Object
Dim i As Long

With UserForm1
For i = 1 to nbCaseCochee
set myTextBox = .controls("le nom du TextBox" & i)
worksheets("Feuil1").Range("A" & i).Value = myTextBox
Next i
End With
.....

;o)

Polux

Rom1_35 · Answer

Bonjour,
Je me permets de ressortir ce sujet pour savoir s'il était possible de créer une fonction du type Change() sur un TextBox créé dynamiquemment.
En statique cela donne :
Private sub myTextBox_Change () 
... [mon code]
End Sub

Mais quand est-il du dynamique? Est-ce possible?

Cordialement,
Romain.

Aseghir · Answer

Bof, Polux31. Ne pas avoir "lu *à* temps" devient dans votre imaginaire, "ne pas avoir eu le temps" ce qui est sémantiquement très différent. Ce qui se lit correctement se conçoit puis s'énonce correctement.
- AS

VBA : Gestion d'évènement Userform dynamique

9 réponses

Discussions similaires

Newsletters