Creer Combobox dans VBA Excel

Version imprimable

Bonjour,

Je veux creer un Combobox pour un liste des 12 pays.

J'ai deja essaye de faire ca mais en fait, toujours erreurs.

Concretement, je veux que Macro excel va chercher des valeurs equivalents dans le sheet " Data Power 08-09" pour completer dans le sheet "Country Data" en utilisant la fonction Vlookup.

Je voudrais que quand on selectionne un pays dans le liste de Combo box, les bases de donnes de ce pays va etre rempli dans le tableau dans le sheet " Country data"

Voila une version d'essai que je viens de faire pour ajouter la liste Combo Box et aussi remplir le YTD Order Intake pour le Mai 2009 (base sur la base de donnes de sheet "Data Power 08-09"
Code:

1 2 3 4 5 6 7 8 9 10 Private Sub ComboBox1_Change() Sheets("Data Power 08-09").Select Combo.Box1.AddItem = "China" 'List Index = 0 Combo.Box1.AddItem = "France" 'List Index = 1 Select Case Combo.Box1.Value Case China Worksheets("Country Data").Range("M13").Select ActiveCell.Value = VLOOKUP(F2,Data Power 08-09!B4:J79,2,FALSE) End Select End Sub

10/06/2009, 13h48
DeaD78
Salut,

Premièrement on écrit Combobox1 et non Combo.Box1. Ensuite, je te conseille d'aller voir les tutos du site : ils sont vraiment très bien faits !

EDIT : c'est par ici http://silkyroad.developpez.com/VBA/ControlesUserForm/

De plus, pas besoin d'un Select Case pour ton cas. Un simple
Code:

1 2 If ComboBox1.Value = "China" Then End If
suffira.

Evite aussi les Select, ça ralentit le tout et ça saoule si on a pas mis l'Application.ScreenUpdating à False.

Tu pourrais faire directement :

Code:

Worksheets("Country Data").Range("M13").Value = VLOOKUP(F2,Data Power 08-09!B4:AJ79,2,FALSE)

Enfin, tu devrais remplacer Value par Formula vu que ça a aps l'air d'être une valeur. Ca donnerait donc :

Worksheets("Country Data").Range("M13").Formula = " = VLOOKUP(F2,Data Power 08-09!B4:AJ79,2,FALSE)"

Et si t'arrives à lire les tutos, les AddItem se font plutôt à l'initialisation de l'UserForm à part cas exceptionnels, ce qui a pas l'air d'être ton cas. La condition, quant-à elle, je la mettrais dans le code. Bref, l'événement Change devrait rester vide.

Essaie de mettre tout ça en place et si tu n'y arrives pas je te filerai un coup de main (figuré à moins que t'aimes les baffes :mouarf:)

Merci de ta reponse, maintenant je peux ajouter la liste Combobox

Mais ca marche pas encore avec Vlookup.

En fait, quand j'ai choisi "china" par exemple, ca ne donne pas valeur (c'est a dire un chiffre) mais ca donne la formule Vlookup. Ce que je veux c'est la valeur pour completer ce tableau

Et aussi, tu peux voir que dans la formule Vlookup, j'ai utilise la Cellule F2 comme la reference. Je veux que cette cellule va changer quand on selectionne le pays dans la liste Combobox. Si j'ai choisi "China", F2 = China et comme ca, Vlookup donne exactement la valeur de ce pays.

Voila les Codes que je viens de modifier, grace a ton aide :). C'est juste la version d'essai pour China, et apres je vais faire avec les autres pays.
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 Private Sub ComboBox1_Change() Dim i As Byte ComboBox1.AddItem "China" 'List Index = 0 ComboBox1.AddItem "France" 'List Index = 1 ComboBox1.AddItem "Italy" 'List Index = 2 ComboBox1.AddItem "UK" 'List Index =3 ComboBox1.AddItem "India" 'List Index =4 ComboBox1.AddItem "Turkey" 'List Index = 5 ComboBox1.AddItem "Mexico" 'List Index = 6 ComboBox1.AddItem "USA" 'List Index = 7 ComboBox1.AddItem "Canada" 'List Index =8 ComboBox1.AddItem "Russia" 'List Index = 9 ComboBox1.AddItem "Brazil" 'List Index = 10 ComboBox1.AddItem "Spain" 'List Index = 11 If ComboBox1.Value = "China" Then Worksheets("Country Data").Range("M13").Formula = " = VLOOKUP(F2,Data Power 08-09!B4:AJ79,2,FALSE)" End If End Sub
Tu peux m'aider encore :)

12/06/2009, 16h15
violet2410

Bonjour,

Heureusement, maintenant j'ai deja reussi a faire tout : Combo box et Vlookup

Mais un petit probleme c'est que pourquoi la liste Combo Box ne fonctionne pas automatiquement ????

C'est a dire, quand j'ouvre ce fichier, je dois cliquer Alt +F8 pour voir macro et Executer Macro. sinon le combo box ne marche pas.

Comment faire pour resoudre ce probleme.

Vous pouvez voir ma piece jointe

Merci beaucoup

J'ai deja essaye de faire comme ca

J'ai tape ce code, mon macro s'appell "pays"

Code:

1
2
3
Private Sub Workbook_Open()
    Application.Run ("Pays")
End Sub

Mais ca marche pas :)

C"est l'erreur 1004 : Application - defined or object - defined error

Et meme maintenant ca marche pas aussi mon macro. je ne comprends pas, ou c'est le probleme de nommer macro????? (parce ce qu'avant j'ai nomme ce macro "ComboBox1" mais maintenant j'ai change en "Pays"

Voila mon code complet pour le macro "Pays"

Code:

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
 
Sub Pays()
 
    Combobox1.AddItem "China"  'List Index = 0
    Combobox1.AddItem "France" 'List Index = 1
    Combobox1.AddItem "Italy"  'List Index = 2
    Combobox1.AddItem "UK"     'List Index =3
    Combobox1.AddItem "India"  'List Index =4
    Combobox1.AddItem "Turkey" 'List Index = 5
    Combobox1.AddItem "Mexico" 'List Index = 6
    Combobox1.AddItem "USA"    'List Index = 7
    Combobox1.AddItem "Canada" 'List Index =8
    Combobox1.AddItem "Russia" 'List Index = 9
    Combobox1.AddItem "Brazil" 'List Index = 10
    Combobox1.AddItem "Spain"  'List Index = 11
 
    If Combobox1.Value = "China" Then
        Worksheets("Country Data").Range("F2") = "China"
    End If
 
    If Combobox1.Value = "India" Then
        Worksheets("Country Data").Range("F2") = "India"
    End If
 
    If Combobox1.Value = "France" Then
        Worksheets("Country Data").Range("F2") = "France"
    End If
 
    If Combobox1.Value = "Italy" Then
        Worksheets("Country Data").Range("F2") = "Italy"
    End If
 
    If Combobox1.Value = "UK" Then
        Worksheets("Country Data").Range("F2") = "UK"
    End If
 
    If Combobox1.Value = "Spain" Then
        Worksheets("Country Data").Range("F2") = "Spain"
    End If
 
    If Combobox1.Value = "Mexico" Then
        Worksheets("Country Data").Range("F2") = "Mexico"
    End If
 
    If Combobox1.Value = "Canada" Then
        Worksheets("Country Data").Range("F2") = "Canada"
    End If
 
    If Combobox1.Value = "Brazil" Then
        Worksheets("Country Data").Range("F2") = "Brazil"
    End If
 
    If Combobox1.Value = "USA" Then
        Worksheets("Country Data").Range("F2") = "USA"
    End If
 
    If Combobox1.Value = "Russia" Then
        Worksheets("Country Data").Range("F2") = "Russia"
    End If
 
    If Combobox1.Value = "Turkey" Then
        Worksheets("Country Data").Range("F2") = "Turkey"
    End If
    'Summary
 
        Worksheets("Country Data").Range("M13").Formula = "=VLookup(" & "F2" & ",'Data Power 08-09'!B7:R82,2,False)"
        Worksheets("Country Data").Range("I13").Formula = "=VLookup(" & "F2" & ",'Data Power 08-09'!T7:AJ82,2,False)"
        Worksheets("Country Data").Range("K13").Formula = "=VLookup(" & "F2" & ",'Data Power 08-09'!T7:AJ82,10,False)"
        Worksheets("Country Data").Range("O13").Formula = "=VLookup(" & "F2" & ",'Data Power 08-09'!B7:R82,10,False)"
 
        Worksheets("Country Data").Range("M14").Formula = "=VLookup(" & "F2" & ",'Data Power 08-09'!B7:R82,3,False)"
        Worksheets("Country Data").Range("I14").Formula = "=VLookup(" & "F2" & ",'Data Power 08-09'!T7:AJ82,3,False)"
        Worksheets("Country Data").Range("K14").Formula = "=VLookup(" & "F2" & ",'Data Power 08-09'!T7:AJ82,11,False)"
        Worksheets("Country Data").Range("O14").Formula = "=VLookup(" & "F2" & ",'Data Power 08-09'!B7:R82,11,False)"
 
        Worksheets("Country Data").Range("M15").Formula = "=VLookup(" & "F2" & ",'Data Power 08-09'!BT7:CJ84,2,False)"
        Worksheets("Country Data").Range("I15").Formula = "=VLookup(" & "F2" & ",'Data Power 08-09'!AL7:BR84,2,False)"
        Worksheets("Country Data").Range("K15").Formula = "=VLookup(" & "F2" & ",'Data Power 08-09'!AL7:BR84,18,False)"
 
        Worksheets("Country Data").Range("M16").Formula = "=VLookup(" & "F2" & ",'Data Power 08-09'!BT7:CJ84,3,False)"
        Worksheets("Country Data").Range("I16").Formula = "=VLookup(" & "F2" & ",'Data Power 08-09'!AL7:BR84,3,False)"
        Worksheets("Country Data").Range("K16").Formula = "=VLookup(" & "F2" & ",'Data Power 08-09'!AL7:BR84,19,False)"
 
        Worksheets("Country Data").Range("M20").Formula = "=VLookup(" & "F2" & ",'Data Power 08-09'!BT7:CJ84,4,False)"
        Worksheets("Country Data").Range("I20").Formula = "=VLookup(" & "F2" & ",'Data Power 08-09'!AL7:BR84,4,False)"
        Worksheets("Country Data").Range("K20").Formula = "=VLookup(" & "F2" & ",'Data Power 08-09'!AL7:BR84,20,False)"
 
        Worksheets("Country Data").Range("M21").Formula = "=VLookup(" & "F2" & ",'Data Power 08-09'!BT7:CJ84,5,False)"
        Worksheets("Country Data").Range("I21").Formula = "=VLookup(" & "F2" & ",'Data Power 08-09'!AL7:BR84,5,False)"
        Worksheets("Country Data").Range("K21").Formula = "=VLookup(" & "F2" & ",'Data Power 08-09'!AL7:BR84,21,False)"
 
End Sub

bonsoir violet2410 l' ami DeaD78 le forum
en 1 déja la combobox je la mets a la place de country en d2
en 2 pour l exemple la liste je l as mis en b100:b112
b100 =country b101=china b102=france ect...
tu peus la mettre ou tu veus méme sur une autre feuille!!

en 2 tu clic sur icone creation tu retournes sur ta combobox clic droit tu selectionne proprietés dans ListFIllrange tu rentres b100:b112
par defaut ta combobox est sur country tu fermes tu reclic sur icone creation
termine
dans vba
Code:

1 2 3 Sub ComboBox1_Change() [f2] = ComboBox1 end sub
c' est tout.
Code:

1 2 Worksheets("Country Data").Range("M13").Formula = "=VLookup(" & "F2" & ",'Data Power 08-09'!B7:R82,2,False)" Worksheets("Country Data").Range("I13").Formula = "=VLookup(" & "F2" & ",'Data Power 08-09'!T7:AJ82,2,False)"
ect...

a mon avis toute ces lignes servent a rien!!!!

maintenant tu as les formules dans ta feuille excel a moins que le code montre est pas complet est tu changes de formules ce que je doute!!!!!
il faut savoir que les formules excel sont plus rapide que generer par du code vba

14/06/2009, 09h20
Lynx92260

1 pièce(s) jointe(s)

petite contribution

Bonjour,

Pour ma part j'aurai une feuille de reference pays avec une plage nomme "ListePays" ou cette reference serai lie dans la propriete ListFillRange

Voila le tour est joue c'est plus propre j'ai change le code également voir fichier ci-joint

De plus comme dit laetitia il faut d'abord priviligier les fonctions natives d'excel dans les cellules et sinon en dernier ressort developpement en vba

:ccool:
14/06/2009, 12h45
violet2410

Merci beaucoup de m'aider

Mais il reste encore une petite chose que je ne comprends pas dans le fichier que Lynx92260 m'a envoye

Pourquoi il y a une liste Combobox avec beaucoup de pays comme ca meme je n'ai vu aucun code qui precise l'ajout de ces pays dans la liste combo box. Je comprends que t'as deja cree une liste dans un autre sheet "Country". Et cela va inserer automatiquement dans la liste Combobox????

parce que j'ai deja essaye de copier ce code dans un nouveau fichier,j'ai fait le sheet "country" avec 12 pays, je veux avoir la liste combobox de seulement 12 pays, mais ca marche pas, parce qu'il n'y a aucun pays dans la liste combobox

Je suis vraiment debutant pour le VBA, tu peux m'expliquer
14/06/2009, 13h05
laetitia

re le fil as tu nommée ta liste???
tu selectionnes toute ta liste dans la feuille dans la barre de formule a gauche tu clic sur la petite fléche tu rentre le nom que tu veus & tu l ecris dans la propriétes de la combobox1 ListFIllrange
14/06/2009, 13h18
Lynx92260

precision

c est un exemple pour montrer qu'il suffit de sélectionner une plage de cellule de la nomme par Exemple "ListePays"
et ensuite dans la propriete du combobox ListFillRange=ListePays
Comme je l'ai fait dans l'exemple

Pour l'adapter il suffira d 'enlever les pays non désiré puis de définir la plage nommée

Donc pour ta feuille "Country" tu selectionnes tes 12 pays tu la nommes comme tu veux tu l'appelles par exemple "ListeCountry" Dans la propriéte du combobox tu changes la propriete ListFillRange par ListeCountry

:ccool:
14/06/2009, 13h48
violet2410

Merci beaucoup

Ca marche!!!!!!!!!! :D