Problème combobox doublons et selection multiple

Bonjour à tous, j'arrive a enlever les doublons de ma combobox mais je ne peux plus selectionner les lignes correspondantes.

ce que j'aimerais se serais de selectionner toutes les lignes dans ma base de données qui font référence à la combobox (N° de semaine). en enlevant biensur les doublons.

le code joint est sans la suppression de doublons.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32

Private Sub ComboBox1_DropButtonClick() Dim nomfeuille As String   'je renseigne le nom de la feuille nomfeuille = "Base de données"   'je défine malist malist = Sheets(nomfeuille).Range("H5:H" & Sheets(nomfeuille).Range("H" & Rows.Count).End(xlUp).Row) 'je remplis ma combo Me.ComboBox1.List = malist   End Sub           Private Sub ComboBox1_Change() 'au changement dans la ComboBox1 Sheets("base de données").Select Cells(ComboBox1.ListIndex + 5, 1).EntireRow.Select 'sélectionne la ligne correspondante Selection.Copy   End Sub     Private Sub CommandButton1_Click() Application.CutCopyMode = False Selection.Copy Sheets("Feuil1").Select Range("A2105").Select ActiveSheet.Paste End Sub

---

Bonjour,
Cetyte solution est à adapter
la liste est copier sans doublon et sert de source à la ComboBox
dans l'exemple la liste en H est copiée en colonne I

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

Private Sub ComboBox1_DropButtonClick() Dim nomfeuille As String, lignemax As Long   'je renseigne le nom de la feuille nomfeuille = "Base de données"   'je défine malist lignemax = Sheets(nomfeuille).Range("H" & Rows.Count).End(xlUp).Row   Range("H5:H" & lignemax).AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Range("I5:I" & lignemax), Unique:=True   malist = Sheets(nomfeuille).Range("I5:I" & lignemax) 'je remplis ma combo Me.ComboBox1.List = malist   End Sub

---

Bonjour,

Il te faut faire une recherche de la valeur sélectionnée dans ta ComboBox sur ta plage (voir fonction Find) car ListIndex ne correspond pas aux n° de lignes de la feuille vu que tu supprime les doublons. Ce que je ne comprends pas, c'est :

Citation:

---

ce que j'aimerais se serais de sélectionner toutes les lignes dans ma base de données qui font référence à la combobox (N° de semaine). en enlevant biensur les doublons

---

Donc, la première occurrence est la bonne si je comprends bien ?

Hervé.

je voulais en entrant un numéro de semaine dans ma combobox ne pas voir apparaitre les doublons mais selectionner dans ma base de données toutes les lignes correpondants à ce même numéro de semaine.(base de données journalière) je te met le fichier join par contre je suis désolé mais j'ai réussi a résoudre ce probleme, j'aurais du mettre résolu donc toute mes excuse.