Discussion :

[Merryy]

Bonjour,
mon petit soucis c'est de remplir ma combobox qui se trouve dans une feuille et pas dans une userform , avec des données stockés dans une feuille excel .
Le code suivant ne fonctionne pas pour moi :

Code :

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

1
2
3
Private Sub UserForm_Initialize()
      Me.cboComboBox.RowSource = "Feuil1!A1:A" & Sheets("Feuil1").Cells(1, 1).End(xlDown).Row
End Sub

Merci

[patricktoulon]

re
et ben dis donc!!

Code :

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

1
2
3
Private Sub UserForm_Initialize()
          Me.cboComboBox.List = Sheets("Feuil1").Range(Cells(1, 1), Cells(Rows.Count, 1).End(xlUp)).Value
End Sub

[Merryy]

enfaite moi je travaille pas avec un userform c'est ca le problem . ma combobox est situé dans une feuille excel

[patricktoulon]

et ben dis donc ( mille fois)!!!

Code :

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

1
2
3
Private Sub Worksheet_Activate()
cboComboBox.object.List = Range(Cells(1, 1), Cells(Rows.Count, 1).End(xlUp)).Value
End Sub

[Merryy]

est ce que je peux ecrire ce code ici ??

Code :

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

1
2
3
Private Sub ComboBox1_Change()
 
End Sub

[patricktoulon]

non hahahaha!!!!

pour qu'un combo change il faut qu'il soit rempli de quelque chose

met ce que je t'ai donner dans le module du sheets en question soit le 1

[Merryy]

oui il marche mais il me donne les données stochés dans la même feuille , moi je veux recuperer les données d'une autre feuille et quand j'ajoute

Code :

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

with worksheets("")

il m'affiche tjr les mêmes

[patricktoulon]

re
au cas ou tu aurais des cellules vides ,pour eviter d'avoir des lignes vides dans ton combo

il y a ceci:

Code :

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

1
2
3
4
5
6
7
8
Private Sub Worksheet_Activate()
    Dim items
    cboComboBox.Object.clear
 Set plage = Range(Cells(1, 1), Cells(Rows.Count, 1).End(xlUp)).SpecialCells(xlCellTypeConstants, 23)
    For Each items In plage.Cells
        cboComboBox.Object.AddItem items
    Next
End Sub

[Merryy]

la première fonctionne très bien aussi , mais le problème que ma combobox se trouve dans une feuille et les données que je veux se trouve dans une autre feuille , et quand j'ajoute sheets().range il fonctionne pas

[patricktoulon]

donc ta combo se trouve en feuille 1 et les données se trouvent dans une autre c'est bien ca ?
si c'est ca change "tartanpion" pour le nom du sheets ou tu veut récupérer ta liste toujours en mettant ce code dans le sheets ou il y a la combo

Code :

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

1
2
3
4
5
6
7
8
Private Sub Worksheet_Activate()
    Dim items
    cboComboBox.Object.Clear
    With Sheets("tartanpion"): Set plage = .Range(.Cells(1, 1), .Cells(Rows.Count, 1).End(xlUp)).SpecialCells(xlCellTypeConstants, 23): End With
    For Each items In plage.Cells
        cboComboBox.Object.AddItem items
    Next
End Sub

ou lalal!!!
pffff

[Merryy]

Merciiii beacoup

[patricktoulon]

de rien
tag tes deux posts resolu si c'est le cas ok

[Merryy]

c'est dèja fait