Remplir combobox dans un userform

[obamams]

Salut les amis, j

'ai une petite requéte, je dispose d'un user form avec differente combobox, j'insere ce type de code :

Private Sub ComboBox1_Change()

Combo1.AddItem "Lundi"
Combo1.AddItem "Mardi"
Combo1.AddItem "Mercredi"
Combo1.AddItem "Jeudi"
Combo1.AddItem "Vendredi"
Combo1.AddItem "Samedi"
Combo1.AddItem "Dimanche"

End Sub


ceci pour chaque combobox en respectant pour chacune son nom, mais malheuresement rien ne s'affiche… quelqu'un aurait une idée?

Idealement au lieu de reecrire a chque fois les noms des additem, il'y a t'il une possibiliter de peupler les combobox directement a partir d'une plage de donnée préalablement nommer?


Merci!

 

[Pierrot93]

Re : Remplir combobox dans un userform

Re,

si tu veux effectuer une recherche sur une feuille de calcul, regarde plutôt du coté de la méthode "find" dans l'aide vba, tu devrais pouvoir arriver au résultat escompté..r

 

[obamams]

Re : Remplir combobox dans un userform

Suis je sur le bon chemin?😕

Sub find()

Dim Plage As Range
Dim grade As Range
Dim serviceline As Long

On Error Resume Next
Set Plage = Sheets("table")
For Each Cellule In Plage
If Cellule.Value <> "" Then
grade = Application.WorksheetFunction.Find("Combobox2", Cellule.Value)
Then
serviceline = Application.WorksheetFunction.Find("combobox1",-Cellule.Value)
End If

End Sub

 

[Pierrot93]

Re : Remplir combobox dans un userform

Re,

je parlais de la méthode vba "find" et non celle de la feuille de calcul :

Dim x As Range
Set x = Range("A1:C25").Find("ValeurRecherchee", , xlValues, xlWhole, , , False)
If Not x Is Nothing Then MsgBox "valeur trouvée en " & x.Address

dans l'éditeur vba, F1 sur le mot FIND te renverra toutes les infos....

 

[obamams]

Re : Remplir combobox dans un userform

😱 Merci pour l'aide ! Je reviens vers toi des que j'aurai trouver la solution

 

[dubdub87]

Re : Remplir combobox dans un userform

bonjours,

je cherche plusieurs choses

1er
sur la premier photo je souhaiterait faire un userform en feuil1(accueil) feuil2(huiles) feuil3(aquarelle) de ce style qui classe lui meme dans la feuille voulu
ex: MATIÈRE : huiles
reference: 00120
couleurs : combobox: noir,vert,gris, etc....
marques : hhhhhh
quantités : 2
clic sur ajouter et il le range dans la feuil2 huiles

2eme
dans le userform il y a un combobox pour choisir la couleurs
ex: couleurs
gris
vert
bleu
blanc
et la ou je beugue c'est que dans la liste je n'arrive pas a lui dire où prendre c'est mots j'ai essayé ça
et sa ne marche pas

Private Sub cbocouleurs_initialize()
cbocouleurs.List = Range("couleurs").Value
End Sub

que faire svp

merci d'avance