remplir combobox

[zepeto]

Bonjour à tous,
je suis sous excel 97 et je réalise une macro avec des userform et j'ai des combobox.
Mon probléme :
J'ai une combobox que j'aimerais remplir avec des données, mais qui sont éparpillées dans mon tableaux et la je ne trouve pas se qui faut mettre dans le rowsource ou bien si il y a d'autre méthode?
Merci par avance et je reste disponible pour plus d'informations

 

[Guest]

Re : remplir combobox

Bonjour zepeto,

La propriété RowSource n'est pas la seule façon de remplir une combobox.

Fais une recherche sur le site et particulièrement dans la faq ou tu trouveras la page de Michel.

A bientôt

 

[BOISGONTIER]

Re : remplir combobox

Bonjour,

Si les données sont dispersées, utiliser AddItem élément,position

Les formulaires

JB

 

[zepeto]

Re : remplir combobox

Bonjour et merci pour vos réponses.
Voila ce que je veux faire :

Alimenter un Combobox sans doublon
For j = 1 To Range("A65536").End(xlUp).Row
Combobox1 = Range("A" & j)
If Combobox1.Listindex = -1 Then Combobox1.Additem Range("A" & j)
Next j

Mon problème je ne comprend pas le code et j'aimerais bien qu'on me le commente.
De plus, la possibilité que les données pour remplir la combobox soit éparpillées.
Merci par avance de votre aide

Et il me semble qu'il ne précise pas sur quelle page du classeur excel il faut aller chercher les données

 

[zepeto]

Re : remplir combobox

Re, En fait j'ai tapé sa quelqu'un peux me dire pourquoi sa ne marche pas ?
Merci pour votre aide

(le combobox4 est un champ de recherche dans lequel je veux enlever les doublons)

'Alimenter un Combobox sans doublon
For j = 1 To Worksheets("proc").Range("a2:a65536").End(xlUp).Row
ComboBox4 = Range("A" & j)
If ComboBox4.ListIndex = -1 Then
ComboBox4.AddItem Range("A" & j)
Next j

 

[BOISGONTIER]

Re : remplir combobox

Bonjour,

Private Sub UserForm_Initialize()
For j = 1 To Sheets("proc").[A65000].End(xlUp).Row
  ComboBox4.AddItem Sheets("proc").Cells(j, "A")
Next j
End Sub

Si doublons:

Private Sub UserForm_Initialize()
For j = 1 To Sheets("proc").[A65000].End(xlUp).Row
  Me.ComboBox4 = Sheets("proc").Cells(j, "A")
  If Me.ComboBox4.ListIndex = -1 Then
    Me.ComboBox4.AddItem Sheets("proc").Cells(j, "A")
  End If
Next j
End Sub

JB

 

[zepeto]

Re : remplir combobox

Merci BOISGONTIER de m'avoir répondu, mais je ne comprend pas car cela ne marche pas sur mon ordi alors je me demande si je le place au bon endroit? Si tu as une autre idée je suis preneur?

 

[BOISGONTIER]

Re : remplir combobox

Voir PJ

JB

 

[zepeto]

Re : remplir combobox

Encore merci de m'aider, je regarde sa ce soir et je te tiens au courant si tu à réussi à me sauver lol.
Bonne fin de journé à toi et tout le forum

 

[zepeto]

Re : remplir combobox

Merci pour ton exemple mais je ne comprend pas pourquoi sa ne marche pas chez moi?
Alors si tu as un peux de temps je peux t'envoyer mon classeur excel?
Merci par avance

 

[zepeto]

Re : remplir combobox

Bonjour,
lorsque je saisi cela :

Private Sub userform_Initialize()
For i = 2 To Sheets("proc").[A65635].End(xlUp).Row
Me.ComboBox1 = Sheets("proc").Cells(i, "A")
If Me.ComboBox1.ListIndex = -1 Then
Me.ComboBox1.AddItem Sheets("proc").Cells(i, "A")
End If
Next i
Me.ComboBox1.ListIndex = 0
End Sub

il me dit erreur 424 objet requis.
J'ai remarquer que si je remplacer : UserForm_Initialize() par le nom de mon userform_Initialize() il n'y avait plus d'erreur mais le combobox est vide.
Je ne sais plus quoi faire, je trouve sa bisare.
Merci par avance pour votre aide.

 

[zepeto]

Re : remplir combobox

Re bonjour, exemple de mon probléme voir piéce jointe merci
De plus, l'ouverture du userform ou il y a ma combobox se fait grace à un bouton sur un autre userform

 

[Lii]

Re : remplir combobox

Bonjour,

Corrige la ligne :

For i = 4 To Sheets(1).[[COLOR=Red][B]A65536[/B][/COLOR]].End(xlUp).Row

 

[BOISGONTIER]

Re : remplir combobox

Bonjour,

Private Sub UserForm_Initialize()
  For i = 4 To Sheets(1).[A65000].End(xlUp).Row
     Me.ComboBox1 = Sheets(1).Cells(i, "A")
     If Me.ComboBox1.ListIndex = -1 Then
       Me.ComboBox1.AddItem Sheets(1).Cells(i, "A")
     End If
  Next i
Me.ComboBox1.ListIndex = 0
End Sub

JB

 

[zepeto]

Re : remplir combobox

Bonjour à tous et merci pour vos réponse.
je posséde le code suivant qui fonctionne trés bien