XL 2010 Problème avec FormulaR1C1

[gregfly26]

Bonjour,

Je viens vers vous car une formule me rend fou :-(

J'ai fait une petite macro sur mon PC avec Excel en anglais avec cette ligne :
Range("M2").FormulaR1C1 = "=SUBSTITUTE(RC[-1],CONCAT(CHAR(10),CHAR(10)),""|"")"

Sur mon Excel en Anglais, nickel.

Sur un Excel en Français, j'obtiens €NOM?
Dans la barre de formule, il y a =SUBSTITUE(L2;CONCAT(CAR(10);CAR(10));"|")

Cela converti bien les fonctions SUBSTITUTE en SUBSTITUE et CHAR en CAR, mais pas CONCAT en CONCATENER, bizarre ...

Si dans la macro, je mets :
Range("M2").FormulaR1C1 = "=SUBSTITUTE(RC[-1],CONCATENER(CHAR(10),CHAR(10)),""|"")"
J'ai la même erreur #NOM?
Si je fais F2 + ENTER, ma formule fonctionne...

Mais comment résoudre cela ou faire cette combinaison de touches en VBA ?

J'ai essayé la fonction SendKeys, mais ça ne fonctionne pas
J'ai essayé les fonctions FormulaR1C1Local et FormulaLocal, mais j'obtiens une erreur VB 1004

Je ne sais plus trop quoi faire.

Merci d'avance pour votre aide.

 

[Staple1600]

Bonjour

Ici cela fonctionne comme ceci
(excel 2003)
Sub Macro1()
Range("M2").FormulaR1C1 = "=SUBSTITUTE(RC[-1],CONCATENATE(CHAR(10),CHAR(10)),""|"")"
End Sub

 

[gregfly26]

Ca fonctionne !

Un grand merci @Staple1600 !!!

 

[Staple1600]

Re

Est-ce que par hasard ceci fonctionne aussi?
Range("M2") = "=SUBSTITUTE(RC[-1],CHAR(10)&CHAR(10),""|"")"

 

[gregfly26]

Non, erreur 1004.
Mais votre première réponse suffit à mon bonheur !

 

[Staple1600]

Re

Pour mon bonheur à moi, peux-tu me dire quelle chaine de caractères se trouvait en L2, stp ,

 

[gregfly26]

C'est une extraction de GLPI, dont le ticket a été créé avec un plugin de Formulaires.
La cellule contient le résultat des champs du formulaire, séparés par des sauts de ligne.
Donc, pas facile de les traiter sans passer par une macro.

 

[Staple1600]

Re

Oui, mais je voudrais bien un exemple concret de chaine de caractère en L2
afin que je puisse tester ma seconde proposition

Peux-tu poster un exemple dans ton message, stp ?

 

[gregfly26]

Bien sûr, voici un exemple :

"Données du formulaire

=================

En-tête

---------------------------------

1) Catégorie : 290

2) Titre : ANO A0100 H260 erreur définition certificat

3) Projet : 446001025

4) Poste / Numéro de série : 40

5) Appareil : Autres

6) Filière : Spécial

7) Élément de l'appareil concerné : FICHE TECHNIQUE

8) Quantité concernée : 1

9) Description du défaut :

'- ''plan et relevé de métrologie'' inconnu [ISS]

10) Action immédiate réalisée : Nucl Fr expliquent ce qu'ils veulent vraiment (certificat non fourni au client! ) et un certificat de conformité dimensionnel est finalement réalisé par RMA"

 

[Staple1600]

Re

Sauf erreur cette formule fait la même chose que ta formule, non ?
=SUBSTITUE(L2;CAR(10)&CAR(10);"|")

En tout cas, je viens de tester en la saisissant manuellement et j'obtiens le même résultat qu'avec ta formule initiale.

Je teste de ce pas en VBA.

EDITION:
Idem résultat identique en VBA