Alimentation et utilisation d'un nombre important de multibox

**Adrienk** · 05/07/2013, 18h12

Bonjour à tous,

Je souhaite créer un formulaire qui comporte une 40 aines de combox alimentées par une autre feuille (Criteria).

Voici comment je conçois l'application :
- L'utilisateur à le choix entre créer une nouvelle ligne ; ou bien en utiliser une existante. *1

-Ensuite, il devra répondre aux critères qu'il souhaite, encore une fois, je souhaiterais que l'utilisateur ne puisse choisir que les valeurs disponibles dans la combobox.
J'aimerais également qu'il puisse enregistrer son avancement quand il le souhaite, et lors de la prochaine ouverte, qu'il n'ait pas à ré-encoder ses réponses à nouveau.

Pour alimenter les combobox et les labels, je comptais utiliser les rowsources ; est-ce la manière la plus facile de procéder ?

Dans mon UserForm5, je souhaiterais que le textbox en haut à droite fasse apparaître la valeur de la combobox du userform3,... cependant je ne parviens pas à le faire,...

*1 Je ne parviens pas à ce que l'utilisateur ne puisse choisir que les valeurs disponibles dans la combobox,...

Je suis vraiment débutant en VBA; j'ai analysé pas mal de code en essayant de faire que ça tourne à moitié,... Mais là je suis vraiment bloqué,...

Pourriez vous m'aider, svp ?

Voici un lien vers mon fichier excel

**BlueMonkey** · 05/07/2013, 18h39

Salut,

Envoyé par Adrienk

Pour alimenter les combobox et les labels, je comptais utiliser les rowsources ; est-ce la manière la plus facile de procéder ?

Pour les modifier les valeurs de :
- Labels généralement on utilise .Caption.
- TextBox généralement on utilise .Text.
- des listes de ComboBox on peut aussi utiliser .AddItem <un nouvel élément>.

Envoyé par Adrienk

Dans mon UserForm5, je souhaiterais que le textbox en haut à droite fasse apparaître la valeur de la combobox du userform3,... cependant je ne parviens pas à le faire,...

Ajoute dans le code de la USF UserForm5 un gestionnaire d'évènement appelé automatiquement lorsque la fenêtre s'affiche.

Code :

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

1
2
3
Private Sub UserForm_Activate()
    TextBox1.Text = UserForm3.ComboBox3.Text
End Sub

Envoyé par Adrienk

*1 Je ne parviens pas à ce que l'utilisateur ne puisse choisir que les valeurs disponibles dans la combobox,...

Change la propriété Style de tes ComboBox de 0 - fmStyleDropDownCombo à 2-fmStyleDropDownList.

Envoyé par Adrienk

Je suis vraiment débutant en VBA;

On a tous commencé un jour. Pour t'aider à progresser regarde
support de cours complet pour le VBA d'Excel de Jean-Marc RABILLOUD
et les meilleurs cours et tutoriels pour Excel.

A+

**Adrienk** · 05/07/2013, 20h21

Tout d'abord, merci pour ton message !

Tout fonctionne correctement !

Il ne me reste plus qu'un souci à régler, quelles fonctions dois-je utiliser pour :

- enregistrer toutes les valeurs des multibox dans des cellules qui sont dans la même rangée que le contenu de la textbox1 à l'aide d'un bouton ? => en gros; le contenu de ma textbox1 la cellule A10 par exemple, et je souhaiterais que la combobox1 remplisse la cellule B10.

- lors de la sélection d'une valeur dans une multibox(ou une textbox) a lieu, les valeurs ont été encodées précédemment dans les multibox réapparaissent dans les champs... (de manière à ce que l'utilisateur puisse arrêter et reprendre l'encodage lorsqu'il le souhaite).

Merci encore !

Lien vers mon excel

**BlueMonkey** · 05/07/2013, 21h43

Pour enregistrer les valeurs dans des cellules tu utilises les éléments indiqués précédemment,
pour les Labelset les TextBox.

Pour lire valeurs des ComboBox, tu parcours les éléments par :
.ListCount pour le nombre d'élément
.List(index) pour accéder aux éléments.

Pour enregistrer les valeurs dans leur des cellules, tu peux y accéder par :
- Worksheets("nom de feuille").Cells(ligne, colonne).
ou
- Worksheets("nom de feuille").Range("nom de plage").

**Adrienk** · 07/07/2013, 14h25

Bonjour,

Je crains que cela soit un peu plus compliqué pour enregistrer les valeurs des comboxbox.

En effet, l'utilisateur doit choisir dans mon userform3 une valeur dans la combobox(3). Les valeurs de cette combobox3 sont définies par la colonne A de la ma sheet "Data"

Une fois qu'il appuie sur le bouton 4, cela le redirige vers mon userform5.

Dans cet userform5, j'ai créé un textbox(1) reprenant la valeur de la combobox3 de l'userform3.

Par la suite, l'utilisateur doit sélectionner des valeurs dans diverses combobox (au nombre de 40.)

Il n'est pas obligé de répondre à toutes les questions.

Une fois que c'est fait, il cliquera sur un bouton.

J'aimerais que ce bouton enregistre les différentes valeurs des combobox dans des colonnes différentes, à une ligne correspondante à la valeur de la textbox1, en d'autres termes, la valeur de la combobox3 de l'userform3. De manière à remplir un tableau préétabli.

Pour ce qui est de la récupération de la valeur précédemment sélectionnée par l'utilisateur, je ne comprends pas l'utilisation de la listbox?

Voici le code de mon userform 5:

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
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
Private Sub UserForm_Activate()
    TextBox1.Text = UserForm3.ComboBox3.Text
Dim Criteria As Integer
With Sheets("Data")
    Criteria = .Columns("A").Find(TextBox1.Text, .Range("A4"), xlValues).Row
    ComboBox1 = .Cells(Criteria, "B")
    ComboBox2 = .Cells(Criteria, "C")
    ComboBox3 = .Cells(Criteria, "D")
    ComboBox4 = .Cells(Criteria, "E")
    ComboBox5 = .Cells(Criteria, "F")
    ComboBox6 = .Cells(Criteria, "G")
    ComboBox7 = .Cells(Criteria, "H")
    ComboBox8 = .Cells(Criteria, "I")
    ComboBox9 = .Cells(Criteria, "J")
    ComboBox10 = .Cells(Criteria, "K")
    ComboBox11 = .Cells(Criteria, "L")
    ComboBox12 = .Cells(Criteria, "M")
    ComboBox13 = .Cells(Criteria, "N")
    ComboBox14 = .Cells(Criteria, "O")
    ComboBox15 = .Cells(Criteria, "P")
    ComboBox16 = .Cells(Criteria, "Q")
    ComboBox17 = .Cells(Criteria, "R")
    ComboBox18 = .Cells(Criteria, "S")
    ComboBox19 = .Cells(Criteria, "T")
    ComboBox20 = .Cells(Criteria, "U")
    ComboBox21 = .Cells(Criteria, "V")
    ComboBox22 = .Cells(Criteria, "W")
    ComboBox23 = .Cells(Criteria, "X")
    ComboBox24 = .Cells(Criteria, "Y")
    ComboBox25 = .Cells(Criteria, "Z")
    ComboBox26 = .Cells(Criteria, "AA")
    ComboBox27 = .Cells(Criteria, "AB")
    ComboBox28 = .Cells(Criteria, "AC")
    ComboBox29 = .Cells(Criteria, "AD")
    ComboBox30 = .Cells(Criteria, "AE")
    ComboBox31 = .Cells(Criteria, "AF")
    ComboBox32 = .Cells(Criteria, "AG")
    ComboBox33 = .Cells(Criteria, "AH")
    ComboBox34 = .Cells(Criteria, "AI")
    ComboBox35 = .Cells(Criteria, "AJ")
    ComboBox36 = .Cells(Criteria, "AK")
    ComboBox37 = .Cells(Criteria, "AL")
    ComboBox38 = .Cells(Criteria, "AM")
    ComboBox39 = .Cells(Criteria, "AN")
    ComboBox40 = .Cells(Criteria, "AO")
End With
End Sub
 
Private Sub CommandButton3_Click()
UserForm6.Show
End
End Sub
 
Private Sub UserForm_Initialize()
  Label1.Caption = Worksheets("Criteria").Range("A1").Value
  Label2.Caption = Worksheets("Criteria").Range("A8").Value
  Label3.Caption = Worksheets("Criteria").Range("A15").Value
  Label4.Caption = Worksheets("Criteria").Range("A22").Value
  Label5.Caption = Worksheets("Criteria").Range("A29").Value
  Label6.Caption = Worksheets("Criteria").Range("A36").Value
  Label7.Caption = Worksheets("Criteria").Range("A43").Value
  Label8.Caption = Worksheets("Criteria").Range("A50").Value
  Label9.Caption = Worksheets("Criteria").Range("A57").Value
  Label10.Caption = Worksheets("Criteria").Range("A64").Value
  Label11.Caption = Worksheets("Criteria").Range("A71").Value
  Label12.Caption = Worksheets("Criteria").Range("A78").Value
  Label13.Caption = Worksheets("Criteria").Range("A85").Value
  Label14.Caption = Worksheets("Criteria").Range("A92").Value
  Label15.Caption = Worksheets("Criteria").Range("A99").Value
  Label16.Caption = Worksheets("Criteria").Range("A106").Value
  Label17.Caption = Worksheets("Criteria").Range("A113").Value
  Label18.Caption = Worksheets("Criteria").Range("A120").Value
  Label19.Caption = Worksheets("Criteria").Range("A127").Value
  Label20.Caption = Worksheets("Criteria").Range("A134").Value
  Label21.Caption = Worksheets("Criteria").Range("A141").Value
  Label22.Caption = Worksheets("Criteria").Range("A148").Value
  Label23.Caption = Worksheets("Criteria").Range("A155").Value
  Label24.Caption = Worksheets("Criteria").Range("A162").Value
  Label25.Caption = Worksheets("Criteria").Range("A169").Value
  Label26.Caption = Worksheets("Criteria").Range("A176").Value
  Label27.Caption = Worksheets("Criteria").Range("A183").Value
  Label28.Caption = Worksheets("Criteria").Range("A190").Value
  Label29.Caption = Worksheets("Criteria").Range("A197").Value
  Label30.Caption = Worksheets("Criteria").Range("A204").Value
  Label31.Caption = Worksheets("Criteria").Range("A211").Value
  Label32.Caption = Worksheets("Criteria").Range("A218").Value
  Label33.Caption = Worksheets("Criteria").Range("A225").Value
  Label34.Caption = Worksheets("Criteria").Range("A232").Value
  Label35.Caption = Worksheets("Criteria").Range("A239").Value
  Label36.Caption = Worksheets("Criteria").Range("A246").Value
  Label37.Caption = Worksheets("Criteria").Range("A253").Value
  Label38.Caption = Worksheets("Criteria").Range("A260").Value
  Label39.Caption = Worksheets("Criteria").Range("A267").Value
  Label40.Caption = Worksheets("Criteria").Range("A274").Value
 
    Me.ComboBox1.List = Worksheets("Criteria").Range("B2:B6").Value
    Me.ComboBox2.List = Worksheets("Criteria").Range("B9:B13").Value
    Me.ComboBox3.List = Worksheets("Criteria").Range("B16:B20").Value
    Me.ComboBox4.List = Worksheets("Criteria").Range("B23:B27").Value
    Me.ComboBox5.List = Worksheets("Criteria").Range("B30:B34").Value
    Me.ComboBox6.List = Worksheets("Criteria").Range("B37:B41").Value
    Me.ComboBox7.List = Worksheets("Criteria").Range("B44:B48").Value
    Me.ComboBox8.List = Worksheets("Criteria").Range("B51:B55").Value
    Me.ComboBox9.List = Worksheets("Criteria").Range("B58:B62").Value
    Me.ComboBox10.List = Worksheets("Criteria").Range("B65:B69").Value
    Me.ComboBox11.List = Worksheets("Criteria").Range("B72:B76").Value
    Me.ComboBox12.List = Worksheets("Criteria").Range("B79:B83").Value
    Me.ComboBox13.List = Worksheets("Criteria").Range("B86:B90").Value
    Me.ComboBox14.List = Worksheets("Criteria").Range("B93:B97").Value
    Me.ComboBox15.List = Worksheets("Criteria").Range("B100:B104").Value
    Me.ComboBox16.List = Worksheets("Criteria").Range("B107:B111").Value
    Me.ComboBox17.List = Worksheets("Criteria").Range("B114:B118").Value
    Me.ComboBox18.List = Worksheets("Criteria").Range("B121:B125").Value
    Me.ComboBox19.List = Worksheets("Criteria").Range("B128:B132").Value
    Me.ComboBox20.List = Worksheets("Criteria").Range("B135:B139").Value
    Me.ComboBox21.List = Worksheets("Criteria").Range("B142:B146").Value
    Me.ComboBox22.List = Worksheets("Criteria").Range("B149:B153").Value
    Me.ComboBox23.List = Worksheets("Criteria").Range("B156:B160").Value
    Me.ComboBox24.List = Worksheets("Criteria").Range("B163:B167").Value
    Me.ComboBox25.List = Worksheets("Criteria").Range("B170:B174").Value
    Me.ComboBox26.List = Worksheets("Criteria").Range("B177:B181").Value
    Me.ComboBox27.List = Worksheets("Criteria").Range("B184:B188").Value
    Me.ComboBox28.List = Worksheets("Criteria").Range("B191:B195").Value
    Me.ComboBox29.List = Worksheets("Criteria").Range("B198:B202").Value
    Me.ComboBox30.List = Worksheets("Criteria").Range("B205:B209").Value
    Me.ComboBox31.List = Worksheets("Criteria").Range("B212:B216").Value
    Me.ComboBox32.List = Worksheets("Criteria").Range("B219:B223").Value
    Me.ComboBox33.List = Worksheets("Criteria").Range("B226:B230").Value
    Me.ComboBox34.List = Worksheets("Criteria").Range("B233:B237").Value
    Me.ComboBox35.List = Worksheets("Criteria").Range("B240:B244").Value
    Me.ComboBox36.List = Worksheets("Criteria").Range("B247:B251").Value
    Me.ComboBox37.List = Worksheets("Criteria").Range("B254:B258").Value
    Me.ComboBox38.List = Worksheets("Criteria").Range("B261:B265").Value
    Me.ComboBox39.List = Worksheets("Criteria").Range("B268:B272").Value
    Me.ComboBox40.List = Worksheets("Criteria").Range("B275:B279").Value
 
  End Sub

Désolé d'insister autant,

Merci encore !

Alimentation et utilisation d'un nombre important de multibox

Macros et VBA Excel

Vue hybride

Discussions similaires

Partager

Partager