Discussion :

[Hellhand]

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 :

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

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

[helas]

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 :

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

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

[Theze]

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 :

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é.

[Hellhand]

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.