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)"
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)"
Code:
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