[RESOLU] Pb (vba) RechercheV dans classeur fermé

[loulou14]

Bonjour à tous

Je cherche à créer insérer la fonction RechercheV dans une cellule.
Lorsque j'éxécute mon code, j'ai une erreur d'éxécution 1004

Ai-je oublié de déclarer qqchose ?

Merci d'avance pour votre aide

Le débogage me pointe la ligne suivante :
Range("AN3").Formula = "=RECHERCHEV(U3;'C:\User\SAP\[CATEGORIES_SYNTHESE.xlsm]Catégories synthèse'!$A$2:$E$57;5;FAUX)"

Sub TEST()
'
' TEST Macro
Dim DerniereLigne As Long
'Ajout colonne "Catégorie Synthèse"
    Application.CutCopyMode = False
    'Insert colonne "Commentaire"
    DerniereLigne = Range("A" & Rows.Count).End(xlUp).Row
    Columns("AN:AN").Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
    Range("AN1").Value = "Catégorie Synthése"
    Range("AN3").Formula = "=RECHERCHEV(U3;'C:\User\SAP\[CATEGORIES_SYNTHESE.xlsm]Catégories synthèse'!$A$2:$E$57;5;FAUX)"
    Range("AN3").AutoFill Destination:=Range("AN3:AN" & DerniereLigne)

End Sub

 

[Lone-wolf]

Bonjour loulou

Essaie en mettant Range("AN3").FormulaLocal

 

[Jacky67]

Bonjour,
Remplacer les ";" (point-virgule) par des "," (virgules)

Range("AN3").Formula = "=RECHERCHEV(U3,'C:\User\SAP\[CATEGORIES_SYNTHESE.xlsm]Catégories synthèse'!$A$2:$E$57,5,FAUX)"

** et remplacer "RechercheV" par VLOOKUP
Range("AN3").Formula = "=VLOOKUP(U3,'C:\User\SAP\[CATEGORIES_SYNTHESE.xlsm]Catégories synthèse'!$A$2:$E$57,5,FAUX)"

 

[loulou14]

Bonjour,
Remplacer les ";" (point-virgule) par des "," (virgules)

Range("AN3").Formula = "=RECHERCHEV(U3,'C:\User\SAP\[CATEGORIES_SYNTHESE.xlsm]Catégories synthèse'!$A$2:$E$57,5,FAUX)"

Bonjour Jacky

En appliquant votre solution, j'observe ceci :

• la formule suivante est copiée dans la cellule AN3 =RECHERCHEV(U3;'C:\User\SAP\[CATEGORIES_SYNTHESE.xlsm]Catégories synthèse'!$A$2:$E$57;5;'FAUX')
• En revanche la formule renvoie #NOM?

A partir de là j'essaie de traiter le problème de formule :

• je me place dans la barre de formule, puis entrer. Message d'erreur qui me demande vérifier la formule. Le texte 'FAUX' de ma formule est surligné en noir
• je retire les apostrophes (') qui encadrent 'FAUX', puis Entrer , la fonction s'exécute sans erreur

Je n'ai jamais été confronté à ce type de problème qui semble provenir du code.
Il y a donc une avancée, mais le problème reste entier.

 

[Jacky67]

re...
J'ai ajouté en #3
** et remplacer "RechercheV" par VLOOKUP
Range("AN3").Formula = "=VLOOKUP(U3,'C:\User\SAP\[CATEGORIES_SYNTHESE.xlsm]Catégories synthèse'!$A$2:$E$57,5,FAUX)"

Il ne cause qu'en anglais le vba 🙁

 

[loulou14]

Merci Jacky pour votre retour

Malheureusement, aucun effet

 

[loulou14]

En cherchant un peu...le cours d'anglais de Jacky m'a mis la puce à l'oreille 🙂

Il suffisait de remplacer FAUX par False

Range("AN3").Formula = "=VLOOKUP(U3,'C:\User\SAP\[CATEGORIES_SYNTHESE.xlsm]Catégories synthèse'!$A$2:$E$57,5,False)"

Merci pour votre aide

 

[Jacky67]

Re'..
Désolé pour le faux/False
Perso j'utilise 0 (Zéros)
Range("AN3").Formula = "=VLOOKUP(U3,'C:\User\SAP\[CATEGORIES_SYNTHESE.xlsm]Catégories synthèse'!$A$2:$E$57,5,0)"