Object variable not set (Error 91)

Bonjour Allain, bonjour le forum,

Mactch étant un mot clé réservé au VBA il te faut changer le nom de ta variable...

Bonjour le fil, bonjour le forum,

Et si tu envoyais le code complet ou, mieux encore, le fichier qui va bien ?...

Set MapSheet = ActiveWorkbook.Worksheets("fichier1")
Dim label, match, valeur As String
row = 2
label = Trim(CalculSheet.Cells(1, col).Text)
match = MapSheet.Cells(MapSheet.Columns(2).Find(what:=label, lookat:=xlWhole).row, 4).Value

Bonjour le fil, bonjour le forum,

• Désolé le code est incomplet ! CalculSheet ?
• Tu n'as pas changé le nom des variables comme Pijaku et moi-même t'avions demandé...

Si tu ne fais pas d'efforts je n'ai pas envie d'en faire non plus !...

Désolé je t'ai envoyé le code initial; c'est une fonction qui permet de faire le mapping des données de différentes fichier
Set MonFichier = ActiveWorkbook.Worksheets("fichier1")
Set CalculSheet = ActiveWorkbook.Worksheets("Calcul")
Dim lab, match, valeur As String
row = 2
lab = Trim(CalculSheet.Cells(1, col).Text)
match = MonFichier.Cells(MapSheet.Columns(2).Find(what:=lab, lookat:=xlWhole).row, 4).Value

Bonjour le fil, bonjour le forum,

Une macro, pour moi, commence par Sub et finit par End Sub. Une Fonction commence par Public Function et finit par End Function...

P... je viens de télécharger l'application "Tirage_des_vers_du_Nez" sur mon NoSmartPhone. Elle est Gé-ni-ale !

Bonjour,

Le problème vient de la méthode find. Placée ainsio, si elle ne retourne pas de valeur (lab non trouvé), elle fout tout en l'air.
Il te faut donc tester au préalable si Find retourne quelque chose et imaginer une solution pour le cas ou elle ne retourne rien.

Function Machin() As String
Set MonFichier = ActiveWorkbook.Worksheets("fichier1")
Set CalculSheet = ActiveWorkbook.Worksheets("Calcul")
Dim lab As String, Mymatch As String, valeur As String
Dim Trouve As Range
row = 2
lab = Trim(CalculSheet.Cells(1, col).Text)
Set Trouve = MapSheet.Columns(2).Find(what:=lab, lookat:=xlWhole)
If Not Trouve Is Nothing Then
    Mymatch = MonFichier.Cells(Trouve.Row, 4).Value
Else
    Mymatch = "Erreur. Non trouvé"
End If
Machin = Mymatch
End Function