Excel 2003 et combobox
planetebr
Messages postés
2
Statut
Membre
-
Le Pingou Messages postés 12274 Date d'inscription Statut Contributeur Dernière intervention -
Le Pingou Messages postés 12274 Date d'inscription Statut Contributeur Dernière intervention -
Bonjour,
J'ai un problème avec le remplissage de mes combobox.
Je veux remplir 2 combobox, dans la 1ère on selectionne la colonne que l'on veut trier et dans la 2ème doit s'afficher les données de la colonne sélectionnée, j'ai bidouillé un code (je suis très grande débutante) mais je n'arrive pas à supprimer les doublons. Je ne sais pas comment faire. Si quelqu'un pouvait m'aider
Voici mon code :
Private Sub ComboBox1_Change()
With Me
.TextBox1.Value = ComboBox1.Value
End With
clt = TextBox1.Value
With Worksheets("Feuil1")
Me.ComboBox2.List = .Range(clt).Value
End With
End Sub
Private Sub UserForm_Initialize()
Dim iCnt As Integer
Dim oRng As Excel.Range
'Remplissage de la combo 1 par les entêtes de colonne
Set oRng = Feuil1.Cells(1, 1)
For iCnt = 0 To 6
ComboBox1.AddItem oRng.Offset(0, iCnt)
Next iCnt
ComboBox1.ListIndex = 0
With Me
End With
End Sub
Merci pour votre aide
J'ai un problème avec le remplissage de mes combobox.
Je veux remplir 2 combobox, dans la 1ère on selectionne la colonne que l'on veut trier et dans la 2ème doit s'afficher les données de la colonne sélectionnée, j'ai bidouillé un code (je suis très grande débutante) mais je n'arrive pas à supprimer les doublons. Je ne sais pas comment faire. Si quelqu'un pouvait m'aider
Voici mon code :
Private Sub ComboBox1_Change()
With Me
.TextBox1.Value = ComboBox1.Value
End With
clt = TextBox1.Value
With Worksheets("Feuil1")
Me.ComboBox2.List = .Range(clt).Value
End With
End Sub
Private Sub UserForm_Initialize()
Dim iCnt As Integer
Dim oRng As Excel.Range
'Remplissage de la combo 1 par les entêtes de colonne
Set oRng = Feuil1.Cells(1, 1)
For iCnt = 0 To 6
ComboBox1.AddItem oRng.Offset(0, iCnt)
Next iCnt
ComboBox1.ListIndex = 0
With Me
End With
End Sub
Merci pour votre aide
2 réponses
-
Bonjour,
Je suppose que les zones de liste déroulante se trouvent sur un formulaire ; est-il possible de mettre le fichier (ou un exemple) sur https://www.cjoint.com/ et poster le lien.
-
Bonsoir,
Merci pour votre proposition, mais en fait j'ai trouvé une alternative à ce que je voulais, je recopie les données sur ma feuille et là j'arrive à filtrer, je voulais éviter cela mais
Cela ne me plait pas plus que cela, mais bon.....
Car en fait j'ai 4 combo :
la 1ère avec les entête de colonnes
la 2ème s'alimente selon les données selectionnées dans la combo 1
la 3ème encore les entêtes de colonnes
la 4ème me donne le résultat de la selection de la combo 3 avec les données selectionnées dans la combo 2.
J'ai joint un fichier pour voir le résultat.
Ma prochaine tache est une Liste View avec le résultat de mes combo 2 et 3.
C'est pas gagné ! si vous avez des idées...
Bonne soirée.
Sandrine
