remplir combobox

G

Guest

Guest

• 18 Juin 2008

• #2

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

 

Vote positif 0 Vote négatif

BOISGONTIER

XLDnaute Barbatruc

Repose en paix

• 18 Juin 2008

• #3

Re : remplir combobox

Bonjour,

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

Les formulaires

JB

 

Vote positif 0 Vote négatif

Z

zepeto

XLDnaute Occasionnel

• 19 Juin 2008

• #4

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

 

Dernière édition: 19 Juin 2008

Vote positif 0 Vote négatif

Z

zepeto

XLDnaute Occasionnel

• 19 Juin 2008

• #5

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

 

Vote positif 0 Vote négatif

BOISGONTIER

XLDnaute Barbatruc

Repose en paix

• 19 Juin 2008

• #6

Re : remplir combobox

Bonjour,

Code:

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:

Code:

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

 

Dernière édition: 19 Juin 2008

Vote positif 0 Vote négatif

Z

zepeto

XLDnaute Occasionnel

• 19 Juin 2008

• #7

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?

 

Vote positif 0 Vote négatif

BOISGONTIER

XLDnaute Barbatruc

Repose en paix

• 19 Juin 2008

• #8

Re : remplir combobox

Voir PJ

JB

 

Pièces jointes

• Form_SansDoublons.xls

  33 KB · Affichages: 133

Vote positif 0 Vote négatif

Z

zepeto

XLDnaute Occasionnel

• 19 Juin 2008

• #9

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

 

Vote positif 0 Vote négatif

Z

zepeto

XLDnaute Occasionnel

• 20 Juin 2008

• #10

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

 

Vote positif 0 Vote négatif

Z

zepeto

XLDnaute Occasionnel

• 20 Juin 2008

• #11

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.

 

Vote positif 0 Vote négatif

Z

zepeto

XLDnaute Occasionnel

• 20 Juin 2008

• #12

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

 

Pièces jointes

• Classeur1.zip

  6 KB · Affichages: 67
• Classeur1.zip

  6 KB · Affichages: 67
• Classeur1.zip

  6 KB · Affichages: 57

Dernière édition: 20 Juin 2008

Vote positif 0 Vote négatif

L

Lii

XLDnaute Impliqué

• 20 Juin 2008

• #13

Re : remplir combobox

Bonjour,

Corrige la ligne :

Code:

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

 

Vote positif 0 Vote négatif

BOISGONTIER

XLDnaute Barbatruc

Repose en paix

• 20 Juin 2008

• #14

Re : remplir combobox

Bonjour,

Code:

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

 

Vote positif 0 Vote négatif

Z

zepeto

XLDnaute Occasionnel

• 25 Juin 2008

• #15

Re : remplir combobox

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

 

Pièces jointes

• PJ.zip

  23.5 KB · Affichages: 82
• PJ.zip

  23.5 KB · Affichages: 83
• PJ.zip

  23.5 KB · Affichages: 83

Vote positif 0 Vote négatif