Bonsoir le forum
j'ai un fichier comportant un userform:
dans cette userform j'ai 2 combobox et une textbox que je vais nommer
textbox1......contr1(combo1)......contr2(combo2)
la contr2 se remplie sans doubons.
la contr1 se remplie en fonctions du nom se trouvant dans la contr2, avec le code suivant:
Dim Derligne%
Dim Plg As Range, Cel As Range
Dim colA As New Collection
Me.contr1.Clear
Derligne = Sheets('Feuil1').Range('C65536').End(xlUp).Row
Set Plg = Sheets('Feuil1').Range('C6:C' & Derligne)
For Each Cel In Plg
If Cel.Value = contr2 Then
On Error Resume Next
colA.Add Cel.Offset(0, -2).Value, CStr(Cel.Offset(0, -2).Value)
End If
Next Cel
For Each it In colA
contr1.AddItem colA(it)
Next it
(code que m'avait donné michelXLD de facon faire apparaitre les different types de nations se referent a un meme nom)
maintenant, je souhaiterai remplir la textbox1 en fonction des valeurs des contr1 et 2.
j'ai essaye en utilisant la methode contr1 change mais cela RAME...je veux dir c'est trop lent....
quelqu'un aurait il un autre moyen de faire tout cela?
merci; [file name=essais_20060110183651.zip size=18034]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/essais_20060110183651.zip[/file]
j'ai un fichier comportant un userform:
dans cette userform j'ai 2 combobox et une textbox que je vais nommer
textbox1......contr1(combo1)......contr2(combo2)
la contr2 se remplie sans doubons.
la contr1 se remplie en fonctions du nom se trouvant dans la contr2, avec le code suivant:
Dim Derligne%
Dim Plg As Range, Cel As Range
Dim colA As New Collection
Me.contr1.Clear
Derligne = Sheets('Feuil1').Range('C65536').End(xlUp).Row
Set Plg = Sheets('Feuil1').Range('C6:C' & Derligne)
For Each Cel In Plg
If Cel.Value = contr2 Then
On Error Resume Next
colA.Add Cel.Offset(0, -2).Value, CStr(Cel.Offset(0, -2).Value)
End If
Next Cel
For Each it In colA
contr1.AddItem colA(it)
Next it
(code que m'avait donné michelXLD de facon faire apparaitre les different types de nations se referent a un meme nom)
maintenant, je souhaiterai remplir la textbox1 en fonction des valeurs des contr1 et 2.
j'ai essaye en utilisant la methode contr1 change mais cela RAME...je veux dir c'est trop lent....
quelqu'un aurait il un autre moyen de faire tout cela?
merci; [file name=essais_20060110183651.zip size=18034]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/essais_20060110183651.zip[/file]
