pobrouwers
XLDnaute Occasionnel
Bonjour le forum,
J'ai récupéré sur le forum le code suivant pour alimenter une combobox à partir d'un fichier fermé.
Dans mon userform, j'ai une autre combobox appeléé 'comboNumCip',
j'aimerais que la 'combobox1' soit filtrée par rapport à ma combobox 'comboNumCip'.
Dans le fichier B, la colonne A correspond a la combobox 'comboNumCip'.
Quelqu'un peut-il m'aider ?
Merci
J'ai récupéré sur le forum le code suivant pour alimenter une combobox à partir d'un fichier fermé.
Code:
Private Sub UserForm_Initialize()
'nécessite d'activer la référence Microsoft ActiveX Data Object 2.x Library
Dim Rs As ADODB.Recordset
Dim Cn As String
Dim Cible As String
Dim Fichier As String
Fichier = ThisWorkbook.Path & '\\FichierB.xls' 'adapter le chemin
Cn = 'DRIVER={Microsoft Excel Driver (*.xls)};' & _
'ReadOnly=1;DBQ=' & Fichier
Cible = 'SELECT * FROM [Feuil1$];'
Set Rs = New ADODB.Recordset
Rs.Open Cible, Cn, adOpenForwardOnly, adLockReadOnly, adCmdText
'les données à récuperer sont dans la colonne A
If Not Rs.EOF Then
ComboBox1.AddItem Rs.Fields(0).Name 'entete
Do While Not Rs.EOF
ComboBox1.AddItem Rs.Fields(0).Value
Rs.MoveNext
Loop
End If
Rs.Close
Set Rs = Nothing
End Sub
j'aimerais que la 'combobox1' soit filtrée par rapport à ma combobox 'comboNumCip'.
Dans le fichier B, la colonne A correspond a la combobox 'comboNumCip'.
Quelqu'un peut-il m'aider ?
Merci