[VBA-E] modifier une userform [Trucs & Astuces]

**cwain** · 29/03/2006, 11h55

Bonjour,

J'aimerais créer une userform avec plusieurs checkbox, jusque là ça va, mais j'aimerais que les caption de ces checkbox soient importées depuis des cellules d'une feuille de mon fichier, et que les checkbox soient mises en page dans la userform (leur nombre peut être variable). Est-ce possible et si oui comment faire ? Je n'ai pas trouvé de tutoriel sur le sujet (pê j'ai mal cherché ?)

Merci pour votre aide

Vincent

**Megaxel** · 29/03/2006, 12h28

Essaie un truc dans ce genre, en VBA pour Excel.

Code :

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

1
2
3
4
5
Sub test()
    UserForm1.CheckBox1.Caption = _
        Workbooks("Classeur2").Worksheets(1).Cells(1, 1).Value
    UserForm1.Show
End Sub

**cwain** · 29/03/2006, 14h15

OK merci, ça marche bien

Plusieurs problèmes que je n'arrive pas à résoudre :
- si je veux utiliser la même instruction en boucle (de checkbox1 à checkbox13), j'essaie quelquechose comme ça : checkbox & i mais ça ne passe pas
- si j'ai une valeur supplémentaire à intégrer, je dois créer une autre checkbox. Comment créer et mettre en page une checkbox supplémentaire, automatiquement ?

**Megaxel** · 29/03/2006, 14h25

Regarde l'aide sur la collection "controls()" de ton formulaire, et tu verras que tout ira mieux pour désigner un contrôle par son nom.
Et pour en ajouter, un indice: en anglais, "ajouter" se dit "Add".

et si tu préfères le copier-coller, fais une recherche sur ce forum, tout a été expliqué il-y-a quelques jours...

**cwain** · 29/03/2006, 14h31

OK, j'ai trouvé quelquechose pour créer les checkbox, mais ce qui est créé n'est pas "sauvegardé" : une fois la macro exécutée, la userform redevient vierge. Conséquence : je dois la faire tourner à chaque fois que j'ai besoin de cette userform. J'aimerais pouvoir garder la userform créée, et faire tourner la macro qui ajoute des checkbox seulement de temps en temps.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
For j = 1 To 3
Set Checkj = UserForm1.Controls.Add("Forms.CheckBox.1", "Checkj", True)
 
Checkj.Left = 20
Checkj.Width = 10
Checkj.Height = 20
Checkj.Top = CheckTop
CheckTop = CheckTop + 25
 
Next
UserForm1.Show

**Megaxel** · 29/03/2006, 15h07

Houps, alors là, c'est plus compliqué. Je ne sais même pas si c'est possible. On peut modifier le code VBA en passant par l'objet "Project", je crois. Peut-être que ça marcherait aussi pour modifier le formulaire que tu as créé dans l'éditeur de code VBA, mais ça dépasse mes compétences...

**cwain** · 29/03/2006, 16h00

ok, je lance la macro à chaque fois, c'est pas grave
par contre, je ne sais pas comment récupérer les valeurs de mes checkbox, je ne sais pas comment manipuler ces trucs bizarres.

j'ai un commandbutton, et j'aimerais qu'en cliquant dessus, les captions des checkbox cochées aillent gentiment se mettre dans des cellules d'une feuille. Le problème c'est qu'il ne reconnait plus les "checkj"

**Megaxel** · 29/03/2006, 17h01

Ha ouais, j'avais lu ton code trop vite.
Dans ton cas, tes checkbox ne s'appellent pas check1, check2 et check3...
Passe plutôt par un tableau de checkbox

Code :

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

Dim check(3) As Controls

puis désigne les par check(j).

**SilkyRoad** · 29/03/2006, 17h16

bonjour Cwain , bonjour Megaxel

pour créer un objet dynamiquement et de façon définitive dans ton UserForm , tu peux essayer

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
'Necessite d'activer la reference
'Microsoft Visual Basic for Applications extensibility 5.3
Dim Usf As VBComponent
Dim Obj As MSForms.CheckBox
 
Set Usf = ThisWorkbook.VBProject.VBComponents("UserForm1")
Set Obj = Usf.Designer.Controls.Add("forms.CheckBox.1")
 
With Obj
.Left = 30: .Top = 40: .Width = 60: .Height = 20
End With
 
VBA.UserForms.Add (Usf.Name)
UserForms(0).Show

bonne soiree
michel

**Megaxel** · 29/03/2006, 17h32

Salut Michel.
Pas "Project" alors, mais "VBProject"... Il me semblait bien qu'il y avait un truc dans ce genre là.
Et je suppose qu'il faut quand même enregistrer le classeur, non?
En tout cas, je mets ça dans un coin, c'est le genre de trucs difficile à inventer...

Merci!

**cwain** · 30/03/2006, 11h27

oki merci pour les réponses, je crois bien que ça m'aidera bien, le seul pett hic étant que je suis en congé à partir d'aujourd'hui, sans possibilité de le tester. Désolé de vous planter là ! Je rentre lundi, je testerai tout ça et vous tiendrai au courant.
Encore merci pour l'aide, c'est les premières fois que j'y ai recours, et c'est sympa d'être épaulé de la sorte !

**ouskel'n'or** · 30/03/2006, 11h53

Il y a ça sur le forum (uniquement pour regrouper le sujet traité)
http://www.developpez.net/forums/vie...trol+dynamique

A toutes fins utiles pour ceux qui en ont... l'utilité...

**cwain** · 03/04/2006, 14h46

Bonjour,
J'ai essayé de trafiquer le code de megaxel, qui marche bien pour un objet, mais j'arrive pas à le faire marcher pour plusieurs objets du même type créés en boucle.
Mon code donne à peu près ça et bloque à "set object ..."
quelqu'un a une idée ?

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
Dim Usf As VBComponent
Dim Obj() As MSForms.CheckBox
'je calcule et obtiens le nombre de personnes à partir de la feuille
NbPers=9
 
Redim obj(Nbpers)
 
Set Usf = ThisWorkbook.VBProject.VBComponents("UserForm1")
 
For i=1 to NbPers
   Set Obj(i) = Usf.Designer.Controls.Add("forms.CheckBox.1")
   With Obj(i)
   .Left = 30: .Top = 40+20*i: .Width = 60: .Height = 20
   End With
   VBA.UserForms.Add (Usf.Name)
Next
 
UserForm1.Show

**Megaxel** · 03/04/2006, 14h52

Déjà, qu'entends-tu par "ça bloque" ? C'est quoi, le message d'erreur?
Ensuite, une question indiscrète : Combien vaut "i" au moment du plantage?

**cwain** · 03/04/2006, 14h56

j'ai :
erreur d'exécution '-2147319767 (80028029)':
Référence future non valide, ou référence à un type non compilé
Ca bloque au premier passage du pas à pas, pour i=1 donc

**Megaxel** · 03/04/2006, 15h00

Ok. J'essaie de reproduire ton erreur... Tu as quoi, comme référence, dans ton projet?

**Megaxel** · 03/04/2006, 15h04

Je suis un âne...
Et ce dodo est un malin!!!

Je retourne à ma sieste...

**cwain** · 03/04/2006, 15h06

j'ai :
- visual basic for applications (jusque là, rien de choquant)
- microsoft excel 11.0 Object Library
- OLE automation
- Microsoft Office 11.0 Object library
- microsoft forms 2.0 object library
- microsoft visual basic for applications extensibility 5.3

**cwain** · 03/04/2006, 15h14

oups, g envoyé le dernier post sans avoir vu celui de ouskel'n'or, sorry
heu, je.. enfin.. heu..

je pensais que ça ajoutait les contrôles à la userform, mais j'ai pas bon... ça la nomme ?
Je me penche plus sérieusement sur cette ligne

**cwain** · 03/04/2006, 15h22

grmbl, j'avais réussi à faire marcher megaxel's code ce matin et là non, je dois passer à côté de qqch d'évident.
A ma décharge je dirai que la digestion appauvrit grandement mes facultés (voire les anihile ???)

[VBA-E] modifier une userform [Trucs & Astuces]

Macros et VBA Excel

Vue hybride

Discussions similaires

Partager

Partager