msgbox compter doublons

[AKRAMI]

bonsoir forum
bonsoir tout le monde
svp est ce que c'est possible de creer un message box qui indique le nombre des doublons dans ce combobox
merci beaucoup pour vos aides
amicalement
AKRAMI

 

[gosselien]

Re : msgbox compter doublons

Bonsoir,

pas spécialiste du tout mais ceci semble fonctionner:

Private Sub UserForm_Initialize()
Set f = Sheets("feuil1")
Set MonDico = CreateObject("Scripting.Dictionary")
last = f.[A65000].End(xlUp).Row
For Each c In f.Range("A1:a" & last)
If c.Value <> "" Then MonDico.Item(c.Value) = c.Value
Next c
temp = MonDico.items
Me.ComboBox1.List = temp
End Sub

 

[AKRAMI]

Re : msgbox compter doublons

Bonsoir gosselien
Merci pour le code
J'ai mis ce code dans mon userform mais je ne sais quoi faire .. mais aucun message box qui indique le nombre du doublons qui s'affiche
amicalement
AKRAMI

 

[AKRAMI]

Re : msgbox compter doublons

salut tout le monde
svp y'a pas un moyen de sortir de ce probleme je suis vraiment bloqué
merci d'avance pour vos aides
AKRAMI

 

[AKRAMI]

Re : msgbox compter doublons

bonjour tout le monde
cordialement
AKRAMI