Pb EACH pour alimenter Combo

[herve62]

Bonjour
Je voulais alimenter des Combo d'un USF d'après des données en Lignes , tout en supprimant les DOUBLONS
j'utilise une méthode qui semble correcte .....MAIS ...
Cela ne fonctionne qu' UNE FOIS ????? au début ( suite à modif, compil, sauvegarde) ensuite le "v" de EACH ne prend plus de valeurs et donc plus rien ....Box vides
Ou est l'erreur
Merci à vous

 

[youky(BJ)]

Re : Pb EACH pour alimenter Combo

Bonjour Hervé,
Avec with pour désigner un onglet, il faut un point pour le désigner sinon c'est la feuille active
Quelques ajouts de points.....
Bruno

Private Sub UserForm_Initialize()
With Worksheets("Recap")
Set Laville = CreateObject("Scripting.Dictionary")
'lf = .Range("B65000").End(xlUp).Row
For Each v In .Range(.[B2], .[B65536].End(xlUp))
If Not Laville.Exists(v.Value) Then
Laville.Add v.Value, v.Value
ville.AddItem v.Value
End If
Next v
Set PrA = CreateObject("Scripting.Dictionary")
For Each c In .Range(.[C2], .[C65536].End(xlUp))
If Not PrA.Exists(c.Value) Then
PrA.Add c.Value, c.Value
ProdA.AddItem c.Value
End If
Next c
End With
End Sub

 

[herve62]

Re : Pb EACH pour alimenter Combo

Slt Youky
Grand merci c'est ça , j'allais répondre que j'avais trouvé que c'était le WITH qui génait ( j'ai fait des tests) ; poutant j'avais mis :
.Range([B2], [B65536].End(xlUp)) mais pas les autres "points" car je ne connaissais pas cette structure , je l'ai extraite du Forum
encore merci ; A +