Jeremy011991
XLDnaute Nouveau
Bonjour à tous, voici le code qui me pose problème. Je vous explique tout en dessous :
Cette macro lance donc mon Usf...
Ceci est un tri qui s'effectue sur mon combobox via une autre macro. (Là n'est pas le problème)
Cependant sur cette ligne :
J'ai un magnifique message d'erreur d'execution 13, incompatibilité de type.
Et ce qui me fascine là dedans, c'est que j'ai exactement le même principe de code, sur deux autres USf, et il n'y a aucun problème...
Si quelqu'un voit une erreur de synthaxe ou autre...merci beaucoup..
Code:
Sub oda()
'
' oda Macro Ouvrir Devis Association à modifier
ouvrirdevisass.Show
End Sub
Cette macro lance donc mon Usf...
Code:
Private Sub UserForm_Initialize()
'Appel le tableau des devis
Dim tblo()
tblo = Range("BDassoc!A3:A" & Range("BDassoc!A65536").End(xlUp).Row)
ComboBox1.List = tblo
'Execute la fonction tri alpha sur le tableau, jusqu'au dernier devis
tblo = Range("BDassoc!A3:A" & Range("BDassoc!A65536").End(xlUp).Row)
Call trier_tableau(tblo, 1, True)
ComboBox1.List() = tblo
End Sub
Ceci est un tri qui s'effectue sur mon combobox via une autre macro. (Là n'est pas le problème)
Cependant sur cette ligne :
Code:
tblo = Range("BDassoc!A3:A" & Range("BDassoc!A65536").End(xlUp).Row)
J'ai un magnifique message d'erreur d'execution 13, incompatibilité de type.
Et ce qui me fascine là dedans, c'est que j'ai exactement le même principe de code, sur deux autres USf, et il n'y a aucun problème...
Si quelqu'un voit une erreur de synthaxe ou autre...merci beaucoup..