Initialisation et utilisation de combobox

**christophe_fr** · 09/07/2009, 13h56

C'est la première fois que j'utilise des combobox et je n'arrive pas à les faire fonctionner.

J'ai créer une zone de liste déroulante sur la feuille 1 d'un classeur. Par défaut je veux qu'il y ait 10 lignes dans cette liste avec des valeurs de 0 à 100 par pas de 10. Donc j'ai initialisé la combobox avec le code suivant (qui ne marche pas):

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
Private Sub Userform_Initialize()
 
ComboBox1.AddItem "0"
ComboBox1.AddItem "10"
ComboBox1.AddItem "20"
ComboBox1.AddItem "30"
ComboBox1.AddItem "40"
ComboBox1.AddItem "50"
ComboBox1.AddItem "60"
ComboBox1.AddItem "70"
ComboBox1.AddItem "80"
ComboBox1.AddItem "90"
ComboBox1.AddItem "100"
 
End Sub

Ensuite je veux écrire dans des cellules à côté de la zone de liste déroulante, des valeurs issues d'un tableau calculé dans un module. Donc je transfert la valeur issue de zone de liste déroulante par argument vers le module où j'ai calculé le tableau dont je veux copier les valeur dans la feuille à côté de la zone de liste déroulante.

Code :

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

1
2
3
4
Private Sub ComboBox1_Change()
    Indchoice = ComboBox1.Value
    Call Fonction2(Indchoice)
End Sub

Et enfin voici le code qui me permet d'écrite les données dans la feuille d'après la valeur de la zone de liste déroulante choisie.

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
Public Sub Fonction2(Indresume)
 
Select Case Indresume
Case 0
Feuil1.Cells(6, 9).Value = It1(0)
Feuil1.Cells(7, 9).Value = It2(0)
Feuil1.Cells(8, 9).Value = It3(0)
Feuil1.Cells(9, 9).Value = Icalc0(0)
Case 10
Feuil1.Cells(6, 9).Value = It1(1)
Feuil1.Cells(7, 9).Value = It2(1)
Feuil1.Cells(8, 9).Value = It3(1)
Feuil1.Cells(9, 9).Value = Icalc1(0)
Case 20
Feuil1.Cells(6, 9).Value = It1(2)
Feuil1.Cells(7, 9).Value = It2(2)
Feuil1.Cells(8, 9).Value = It3(2)
Feuil1.Cells(9, 9).Value = Icalc2(0)
Case 30
Feuil1.Cells(6, 9).Value = It1(3)
Feuil1.Cells(7, 9).Value = It2(3)
Feuil1.Cells(8, 9).Value = It3(3)
Feuil1.Cells(9, 9).Value = Icalc3(0)
Case 40
Feuil1.Cells(6, 9).Value = It1(4)
Feuil1.Cells(7, 9).Value = It2(4)
Feuil1.Cells(8, 9).Value = It3(4)
Feuil1.Cells(9, 9).Value = Icalc4(0)
Case 50
Feuil1.Cells(6, 9).Value = It1(5)
Feuil1.Cells(7, 9).Value = It2(5)
Feuil1.Cells(8, 9).Value = It3(5)
Feuil1.Cells(9, 9).Value = Icalc5(0)
Case 60
Feuil1.Cells(6, 9).Value = It1(6)
Feuil1.Cells(7, 9).Value = It2(6)
Feuil1.Cells(8, 9).Value = It3(6)
Feuil1.Cells(9, 9).Value = Icalc6(0)
Case 70
Feuil1.Cells(6, 9).Value = It1(7)
Feuil1.Cells(7, 9).Value = It2(7)
Feuil1.Cells(8, 9).Value = It3(7)
Feuil1.Cells(9, 9).Value = Icalc7(0)
Case 80
Feuil1.Cells(6, 9).Value = It1(8)
Feuil1.Cells(7, 9).Value = It2(8)
Feuil1.Cells(8, 9).Value = It3(8)
Feuil1.Cells(9, 9).Value = Icalc8(0)
Case 90
Feuil1.Cells(6, 9).Value = It1(9)
Feuil1.Cells(7, 9).Value = It2(9)
Feuil1.Cells(8, 9).Value = It3(9)
Feuil1.Cells(9, 9).Value = Icalc9(0)
Case 100
Feuil1.Cells(6, 9).Value = It1(10)
Feuil1.Cells(7, 9).Value = It2(10)
Feuil1.Cells(8, 9).Value = It3(10)
Feuil1.Cells(9, 9).Value = Icalc10(0)
End Select
 
End Sub

J'ai l'impression que ça devrait marcher, je vois pas de difficultés particulières, j'ai pas de message d'erreur.... Mais ça ne marche pas

La zone de liste déroulante ne contient aucune valeur et aucune fonction n'est lancée quand je "touche" la listé déroulante, même quand je met "click" plutôt que "change" pour lancer le code de la combobox.

**DeaD78** · 09/07/2009, 14h00

Salut,

As-tu créé un UserForm?..

**christophe_fr** · 09/07/2009, 14h07

J'ai créé dans Excel à partir de l'icône "Boîte à outils Controles" une "zone de liste déroulante" que j'ai placée sur la feuille 1 du classeur Excel qui à bien le nom ComboBox1. En revanche dans la fenêtre Visual Basic je n'ai pas de Userfom.

**DeaD78** · 09/07/2009, 14h14

Je me disais aussi...

Commence par http://silkyroad.developpez.com/VBA/UserForm/ et enchaîne sur http://silkyroad.developpez.com/VBA/ControlesUserForm/.

Suis cela pas à pas et tu y arriveras. Ces tutoriels sont parfaits pour débuter et c'est toujours par là qu'un débutant devrait commencer.

Bref, essaie par toi-même avec cela (tu devrais y arriver) et si tu as un problème alors reviens nous voir. Mais ne saute pas les étapes...

Bonne chance !

**ucfoutu** · 09/07/2009, 14h12

Bonjour,

déjà :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
ComboBox1.AddItem "0"
ComboBox1.AddItem "10"
ComboBox1.AddItem "20"
ComboBox1.AddItem "30"
ComboBox1.AddItem "40"
ComboBox1.AddItem "50"
ComboBox1.AddItem "60"
ComboBox1.AddItem "70"
ComboBox1.AddItem "80"
ComboBox1.AddItem "90"
ComboBox1.AddItem "100"

s'écrit plus rationnellement ainsi :

Code :

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

1
2
3
4
dim i as integer
For i = 0 To 10
  ComboBox1.AddItem i * 10
Next

J'ai ensuite des difficultés à comprendre ceci :

Ensuite je veux écrire dans des cellules à côté de la zone de liste déroulante, des valeurs issues d'un tableau calculé dans un module. Donc je transfert la valeur issue de zone de liste déroulante par argument vers le module où j'ai calculé le tableau dont je veux copier les valeur dans la feuille à côté de la zone de liste déroulante.

si ta combobox se trouve sur un UserForm...

Ce n'est pas très précis, comme question ...

**christophe_fr** · 09/07/2009, 14h15

La question principale est :
- Pourquoi la combobox n'est pas initialisé à l'ouvertue du fichier avec les valeurs que j'ai saisi?

Pour le reste je pense (j'espère...) arriver à m'en sortir.

Je regarde tes liens et je vindrai te dire si j'y suis arrivé.

**DeaD78** · 09/07/2009, 14h18

La réponse principale est tout simplement que tu n'as pas créé de Combobox...

Lis les tutoriels et tu comprendras

**Krovax** · 09/07/2009, 14h41

La question principale est :
- Pourquoi la combobox n'est pas initialisé à l'ouvertue du fichier avec les valeurs que j'ai saisi?

Je dirais plus tôt que la réponse principale est :
"La subroutine userform_initialize se lance que le userform s'initialise. Quel userforme me diras-tu, hé bien moi aussi je me pose la question."
Bon de plus tu semble confondre listebox et combobox

Commence par les tutos que ta donné Dead le premier te permettra de comprendre ton problème, le deuxième d'utiliser la combobox, ensuite
Encore plus de lecture
http://silkyroad.developpez.com/VBA/EvenementsClasseur/
ainsi que celui ci si le premier ne suffit pas
http://silkyroad.developpez.com/VBA/EvenementsFeuille/

Je sent que ton après midi viens d'être remplie

**christophe_fr** · 09/07/2009, 14h44

Après lecture des tutoriels (forts intéressants), je ne vois pas ce que j'ai oublié de faire pour initialiser ma combobox, qui est toujours vide à chaque ouverture du fichier malgrès les codes (visibles un peu plus tôt dans la discussion) que j'ai saisi.

**DeaD78** · 09/07/2009, 14h57

Si tu n'y mets pas du tien, ça ne va vraiment pas être possible... Franchement, je ne te crois vraiment pas quand tu dis avoir lu les tutoriels. Et dans ce cas, je ne sais pas pour les autres, mais pour ma part, je ne peux plus rien faire pour toi.

A part t'indiquer qu'un paragraphe "II. Créer un UserForm" existe dans le premier tutoriel et que c'est par là que tu aurais dû commencer.

EDIT : première phrase du 2ème tuto ==>

Vous devez tout d'abord créer un UserForm dans votre classeur afin d'y ajouter des contrôles.

Juste comme ça vu que tu as lu les tutos, tu n'aurais pas un petit doute sur ce que tu as fait ?.. Allez, je pense t'avoir assez aidé et même beaucoup trop.

A+

Initialisation et utilisation de combobox [XL-2003]

Macros et VBA Excel

Vue hybride

Discussions similaires

Partager

Partager