Bsr à tous. J'ai besoin de votre aide svp.
Dans mon code Vba pour Excel, tout fonctionne sans problème jusqu'à la ligne de code ci-dessous, de UserForm1.TextBox1=............ ),7,False)
…. Extrait de code non reproduit …..
………………………………………
Dim NumCode As Integer
NumCode=ComboBox1.Value
Call RefRelativesBdd()
UserForm1.TextBox1= WorksheetFunction.VLookUp(NumCode,range("Bdd!" & RefBdd),7,False)
Le message d'erreur suivant s’affiche : Erreur d’exécution ‘1004’ : Impossible de lire la propriété VLookup de la classe WorksheetFunction DEBOGAGE
Pourtant, lors du débogage, en passant le curseur sur la ligne de code citée plus haut, en gras, NumCode affiche bien le nombre que j’ai sélectionné dans une ComboBox de mon UserForm1, et RefBdd affiche également les bonnes références de ma base de données.
Information complémentaire :
En plus du code de mon UserForm1, j’ai également inséré un Module1. La procédure qu’il contient a pour but de définir les références relatives de ma base de données. Aucun problème !
Dans le Module1, j’ai déclaré ma variable RefBdd avec le code suivant :
Public RefBdd As Variant
Public Sub RefRelativesBdd()
…….........................................
Extrait de code non reproduit..
………………………….…….…
RefBdd = "A" & a & ":" & LettreCol & NumLigne
Debug.Print " La référence de la Bdd est " & RefBdd
End Sub
Question : Qu’est-ce qui ne va pas pour que j’aie un message d’erreur 1004 qui m’envoie au débogage, et que UserForm1.TextBox1 renvoie "" alors que sur la même ligne de code ci-dessous, après VLookUp, j’ai les retours suivants et corrects affichés :
UserForm1.TextBox1= WorksheetFunction.VLookUp (2, "Bdd !A1:H24", 7, False)
Merci pour votre aide !!!
---------------
AlaRcx
