combobox remplit avec variable

Version imprimable

Bonjour, j'ai un problemes, je ne sait pas comment faire une combobox en vba, pour le moment j'ai ce code la :
Code:

1 2 3 4 5 6 7 8 For i = 1 To dl If Cells(i, 2).Value = "JAL" Then With combobox1 VarTab = Cells(i, 3).Value combobox1.AddItem (VarTab) End With End If Next
Il est censer boucler sur toutes mes lignes jusqu'a qu'il trouve 'JAL' dans la colonne 'b', alors la il recupere la valeur dans la colonne 'c' pour la stocker dans 'VarTab' et j'aimerais qu'une combobox se crée avec pour valeur mes différents valeurs contenues dans 'VarTab'.

02/06/2009, 14h44
DeaD78

Bonjour,

Vas jeter un oeil du côté des tutos et FAQ pour les tableaux. Ce n'est pas comme ça qu'on les utilise :zoubi:

D'ailleurs, petite question, pourquoi passer par un tableau et ne pas faire directement :

Code:

combobox1.AddItem (Cells(i, 3).Value)

Ca paraît quand même plus simple non ?

EDIT : D'ailleurs, vu que tu as mis

Code:

With combobox1

tu peux écrire simplement

Code:

.AddItem (Cells(i, 3).Value)
02/06/2009, 14h47
Lynx92260

propriete

Bonjour,

Une propriete du controle RowSource permet de déterminer la région des cellules correspondant au remplissage permet de faire ce travail de remplissage des differentes valeurs de la combobox .

:ccool:
02/06/2009, 14h48
lilp1

avec le code que tu m'a donner :

Code:

combobox1.AddItem (Cells(i, 3).Value)

J'ai un message d'erreur :
erreur d'execution 428 :
propriete ou methode non generee par cette objet
02/06/2009, 15h06
DeaD78

As-tu créé ton userform et mis ta combobox dessus ..?
02/06/2009, 15h08
lilp1

heu non, le code je l'ai mit dans un module, et la combobox, doit etre sur une feuille excel ou j'ai rajouter directement mes boutons radios, mais pas de combobox, premiere fois que j'utilise une combobox
02/06/2009, 15h12
DeaD78

Bon, ben direction les tutos pour la première fois :lol: Tu essaies donc de les appliquer et si ça ne passe pas, tu reviens nous demander la suite :)
02/06/2009, 15h20
DeaD78

Pour te filer un coup de main, sait-on jamais que tu aies la flegme de chercher... http://silkyroad.developpez.com/VBA/...serForm/#LII-F Je t'assure, il y a tout ce dont tu as besoin pour réaliser ce que tu souhaites.

Bonne chance !

EDIT : vas quand même en haut du tuto, ça peut intéresser de savoir où créer une combobox :zoubi:

J'ai lut ton liens, et voici le code que j'en ai sortie :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub codeJnal()
    nomfichier = ActiveWorkbook.Name
    nomfeuille = ActiveSheet.Name
    With Sheets(nomfeuille)
    dl = .Range("a" & Rows.Count).End(xlUp).Row
    For i = 1 To dl
        If Cells(i, 2).Value = "JAL" Then
            VarTab = Cells(i, 3).Value
            ListBox1.AddItem VarTab
        End If
    Next
    End With
End Sub

Mais, il me retourne l'erreur suivante :
erreur d'execution 424
objet requis

02/06/2009, 16h30
DeaD78

As-tu créé un UserForm et mis un ListBox dessus dans l'éditeur VBA ...?

oui, et mon maitre de stage m'a dit qu'il faudrait mieux que je definisse une plage et que j'affecte cette plage a ma combobox, chose que j'ai faite, mais, je n'arrive pas a remplir cette plage de cellule nome 't_journal'
Code:

1 2 3 4 5 6 7 8 9 10 Sub codeJnal() With Sheets(nomfeuille) dl = .Range("a" & Rows.Count).End(xlUp).Row For i = 1 To dl If Cells(i, 2).Value = "JAL" Then Range("t_journal").Cells(i, 3).Insert End If Next End With End Sub

Bon, écoute, je ne sais pas ce qu'a dit ton maître de stage mais voilà ce qu'il faut faire pour arriver à ce que tu souhaites.

Je viens de tester et ça fonctionne TRES bien ! J'ai donc créé un classeur vierge nommé Classeur1. J'ai mis des valeurs de test dans les colonnes A, B et C sur la feuille "Feuil1". Dans mon éditeur VBA, j'ai fait insertion userform qui m'a créé "Userform1". Je n'ai vraiment rien changé. Pareil pour la combobox, j'en ai créé une sans rien changer en paramètres, elle s'appelle donc combobox1.

Ensuite, couplé à cette petite procédure cela marche TRES bien :
Code:

1 2 3 4 5 6 7 8 9 10 11 Sub test() For i = 1 To Sheets("Feuil1").Range("B" & Rows.Count).End(xlUp).Row If Cells(i, 2).Value = "JAL" Then UserForm1.ComboBox1.AddItem (Cells(i, 3).Value) End If Next UserForm1.Show End Sub
Cela vérifie toutes les valeurs en B et si jamais la valeur est "JAL", cela rajoute la valeur correspondante de la colonne C dans la combobox qui s'affiche donc après la boucle.

Je suis désolé, mais je peux pas faire plus et plus clair que ça.

Bonne chance pour la suite :roll:

EDIT : oh p*****, je suis trop c** :cry: J'avais oublié de te dire de mettre Userform1. avant le Combobox1. Désolé... :oops: En gros, la combobox est un objet apparenté au userform. Elle fonctionne de paire avec celui-ci. Pour l'appeler, tu fais donc

Code:

Userform1.Combobox1.CeQueTuVeux

.
Pour l'afficher (le userform et donc la combobox dessus), tu fais .Show. Dans le lien que je t'ai donné, tu auras les différentes méthodes qui pourront t'être utiles (effacer les données de la combobox, chargement sans doublons etc.)

Bonne chance pour la suite !