Bonjour,

J'alimente des combobox en cascade grâce au code ci-dessous :



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
Private Sub cbDestination_Change()
 
Worksheets("BD_Destinations").Activate
myval = Me.cbDestination.Value
 
Sheets("BD_Destinations").Cells.Find(what:=myval).Activate
ActiveCell.Offset(0, 1).Activate
cbPays.Text = ActiveCell.Value
 
dernierang = Sheets("BD_Destinations").Range("C" & Rows.Count).End(xlUp).Row
'On cherche le dernier rang de la colonne destination
 
cbPrix.Clear
cbHebergement.Clear
'On clear ce qu'il y aurait eventuellement dans les cb
 
For i = 6 To dernierang
 If myval = Sheets("BD_Destinations").Cells(i, "C") Then
 'On parcours la colonne C jusqu'à sa fin
  cbPrix.AddItem Sheets("BD_Destinations").Cells(i, "H")
  'On ajoute la cellule de la colonne H
  cbHebergement.AddItem Sheets("BD_Destinations").Cells(i, "G")
  'On ajoute la cellule de la colonne G
End If
Next i
End Sub
Cependant cela me génère des doublons ; je m'explique :
Dans ma colonne C il y à plusieurs fois la destination "PARIS" mais, les valeurs en colonne H et G sont parfois différentes, mais pas toujours.
Pour les fois ou ces valeurs sont les mêmes, cela me génère des doublons dans mes combobox "cbPrix" et "cbHebergement".

Pourriez-vous m'aiguiller pour :
-Soit ajouter un bout de code pour vérifier les combobox une fois les items ajoutés, puis supprimer les doublons
- Ou soit ajouter du code en même temps qu'on ajoute les items afin de ne pas inscrire de doublons.

Merci par avance.