Erreur d'execution 1004

[alb05]

bonjour
dans une macro d'import d'un fichier texte, j'ai l'erreur 1004 d'execution sur la ligne suivante :

.Offset(0, 30).FormulaR1C1 = "=IF(RC[-27]=""GP"",""GP"",IF(RC[-3]=FALSE,IF(RC[-1]=FALSE,IF(ESTERREUR(TROUVE(""X"",RC[-23])),TRUE,FALSE)FALSE)))"

J'ai essayé en remplacant ESTERREUR par IsError et TROUVE par FIND
mais sans succès.


Pourquoi faut il passer les instructions en Anglais alors qu'une fois la macro executée, ces mêmes instructions sont en Français ?

merci de votre aide.

 

[job75]

Re : Erreur d'execution 1004

Bonjour alb05,

Votre formule corrigée (il manquait aussi une virgule) :

.Offset(0, 30).FormulaR1C1 = "=IF(RC[-27]=""GP"",""GP"",IF(RC[-3]=FALSE,IF(RC[-1]=FALSE,IF([COLOR="Red"]ISERROR[/COLOR]([COLOR="Red"]FIND[/COLOR](""X"",RC[-23])),TRUE,FALSE)[B][COLOR="Red"][SIZE="3"],[/SIZE][/COLOR][/B]FALSE)))"

Ou en plus simple :

.Offset(0, 30).FormulaR1C1 = "=IF(RC[-27]=""GP"",""GP"",[COLOR="Red"]AND[/COLOR](RC[-3]=FALSE,RC[-1]=FALSE,ISERROR(FIND(""X"",RC[-23]))))"

Si l'on veut la formule telle qu'inscrite dans la cellule (donc en français), utiliser FormulaLocal et dans la formule, des références de type A1 et des points-virgules.

Mais alors la formule sera toujours strictement la même, quelle que soit la cellule où on la rentre.

Edit : bien sûr .Offset suppose que l'instruction se trouve dans une boucle With comme :

With Range("A1")
'--------
End With

A+