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
Partager