Discussion :

[lilp1]

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

Code vba :

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

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'.

[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

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

Code :

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

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

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

EDIT : D'ailleurs, vu que tu as mis

Code :

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

With combobox1

tu peux écrire simplement

Code :

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

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

[Lynx92260]

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 .

[lilp1]

avec le code que tu m'a donner :

Code vba :

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

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

J'ai un message d'erreur :
erreur d'execution 428 :
propriete ou methode non generee par cette objet

[DeaD78]

As-tu créé ton userform et mis ta combobox dessus ..?

[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

[DeaD78]

Bon, ben direction les tutos pour la première fois Tu essaies donc de les appliquer et si ça ne passe pas, tu reviens nous demander la suite

[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

[lilp1]

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

Code vba :

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

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

[DeaD78]

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

[lilp1]

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 vba :

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

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

[DeaD78]

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 :

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

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

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

Code :

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

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 !