Supprimer doublons combobox

  • Initiateur de la discussion Initiateur de la discussion FaruSZ
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

FaruSZ

XLDnaute Occasionnel
Bonjour,
j'essaye de remplir une combobox sans doublons, j'ai ce code qui m'affcihe tout les elements de la colonne A de ma feuille, mais je veux supprimer les duoublons:
Private Sub CommandButton1_Click()
Dim ws_Liste_Affect As Worksheet
Set ws_Liste_Affect = ActiveWorkbook.Worksheets("affectation")
Fin_Liste_Affect = ws_Liste_Affect.Range("A65530").End(xlUp).Row
For i = 2 To Fin_Liste_Affect
UserForm_SDE.ComboBox_Affect.AddItem ws_Liste_Affect.Range("A" & i)
Next
End Sub
Merci pour vos propositions
 
Solution trouvée:
J'ia remplacé la ligne:

UserForm_SDE.ComboBox_Affect.AddItem ws_Liste_Affect.Range("A" & i)
par
If (i=2) OR (WorksheetFunction.CountIf(ws_suivi.Range(ws_suivi.Cells(2,30),ws_suivi.Cells(i-1,30)), ws_suivi.cells(i,30).Value)<1) Then UserForm_SDE.ComboBox_Type_Rapp.AddItem ws_suivi.Range("AD" & i) End If
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
10
Affichages
281
Réponses
5
Affichages
182
Réponses
3
Affichages
193
Réponses
5
Affichages
236
Réponses
5
Affichages
232
Réponses
4
Affichages
177
Retour