sharkantipav
XLDnaute Occasionnel
Bonjour,
J'ai un petit souci a resoudre voici mes deux colonnes
A B
UNIV CY
DBAB IWM
DBAB IWM
DBAB IWM
WOLT IWM
WOLT IWM
WOLT IWM
GSCO IYR
GSCO IYR
GSCO IYR
GSCO IYR
SUSQ IYR
SUSQ IYR
J'ai un userform avec 2 combobox.
Dans le premier combobox jai ecrit un macro qui me list les noms de la Colonne B ss doublon
Private Sub UserForm_Initialize()
Dim r As Range
With CreateObject("Scripting.Dictionary")
.CompareMode = vbTextCompare
For Each r In Sheets("Ticket").Range("e2:e200")
If (Not IsEmpty(r.Value)) * (Not .exists(r.Value)) Then
Me.Trade.AddItem r.Value
.Add r.Value, Nothing
End If
Next
End With
End Sub
Elle marche et j'obitiens une liste avec CY IWM IYR
Ma question porte sur la 2eme combobox --- Si par exemple je selectionne IWM ds la Combobox1, je souhaiterai voir dans la Combobox2 DBAB WOLT soit la liste ss doublons des valeur de la colonne A sachant que la colonne B est la valeur de la Combobox1
J'espere avoir ete clair
MErci bcp
J'ai un petit souci a resoudre voici mes deux colonnes
A B
UNIV CY
DBAB IWM
DBAB IWM
DBAB IWM
WOLT IWM
WOLT IWM
WOLT IWM
GSCO IYR
GSCO IYR
GSCO IYR
GSCO IYR
SUSQ IYR
SUSQ IYR
J'ai un userform avec 2 combobox.
Dans le premier combobox jai ecrit un macro qui me list les noms de la Colonne B ss doublon
Private Sub UserForm_Initialize()
Dim r As Range
With CreateObject("Scripting.Dictionary")
.CompareMode = vbTextCompare
For Each r In Sheets("Ticket").Range("e2:e200")
If (Not IsEmpty(r.Value)) * (Not .exists(r.Value)) Then
Me.Trade.AddItem r.Value
.Add r.Value, Nothing
End If
Next
End With
End Sub
Elle marche et j'obitiens une liste avec CY IWM IYR
Ma question porte sur la 2eme combobox --- Si par exemple je selectionne IWM ds la Combobox1, je souhaiterai voir dans la Combobox2 DBAB WOLT soit la liste ss doublons des valeur de la colonne A sachant que la colonne B est la valeur de la Combobox1
J'espere avoir ete clair
MErci bcp