COMBOBX : Supprimer les doublons et cellulles vides

[ikki]

Bonjour à tous et toutes,

Je vous joint mon classeur avec lequel j'ai des difficultés.

Je souhaiterai supprimer les doublons de mes cbbox ainsi que les cellulles vides et si ce n'est pas trop demandé pouvoir classer la liste des cbbox par ordre alphabétique et tout cela automatiquement bien sûr.

Merci par avance énormément de votre aide.

 

[fredl]

Re : COMBOBX : Supprimer les doublons et cellulles vides

'eviter les vides
For Each FOURNISSEURCell In .Range("C2:C" & .Range("C1000").End(xlUp).Row)
If FOURNISSEURCell <> "" Then
Me.FOURNISSEURComboBox.AddItem (FOURNISSEURCell)
End If
Next

'ex de récup des FOURNISSEURCell et rangement par ordre alphabétique
Dim i&, j&, T()
Dim recupF As Variant
ReDim Preserve T(j)
T(j) = FOURNISSEURCell
j = j + 1
'fin récup des fournisseurs et rangement par ordre alphabétique - suite et fin(à adapter
Me.FOURNISSEURComboBox.List = ShellSort(T) 'T 'recupF

 

[ikki]

Re : COMBOBX : Supprimer les doublons et cellulles vides

Merci beaucoup fredl