Bonjour Jean marie et merci de ton retour, cependant sur ton fichier le résultat est ok mais lorsque que je copie le code en lieu est place de l'origine sur mon fichier la procédure ne se lance pas
Private Sub CboAFournisseur_Change()
With Me
.BtnAEnregistrer.Enabled = (.CboAFournisseur <> "")
'*******************
tablo = Recup_Donnee_Fournisseur()
'*******************
For L = 1 To UBound(tablo, 1)
If tablo(L, 2) = .CboAFournisseur.Text Then
.TxtADelaislivraison.Text = tablo(L, 16)
.TxtAFraistransport.Text = tablo(L, 17)
.TxtAFacturation.Text = tablo(L, 18)
Exit For
End If
Next
End With
End Sub
la variable tablo = Recup_Donnee_Fournisseur() je n'arrive pas à faire le lien avec les données source du tableau qui n'a pas le même nom
Message d'erreur : Erreur de compilation Sub ou function non définie
au plaisir de te lire