Microsoft 365 code vba "REPLACE(RC[-8];1;2;0)" en erreur

[Usine à gaz]

Bonjour à toutes et à tous,
Je vous souhaite un bon dimanche

Dans mon code vba, ce code est contenu :

ActiveCell.Offset(0, 4).FormulaR1C1 = "=""Etblt : ""&RC[-14]&"" Prospect : ""&RC[-13]&"" - ""&RC[-12]&"" - CP : ""&RC[-11]&"" - Commune : ""&RC[-10]&"" - Tel1 : ""&REPLACE(RC[-9];1;2;0)&"" - Tel2 : ""&REPLACE(RC[-8];1;2;0)&"" - ""&RC[-7]&"" - ""&RC[-6]&"" - ""&RC[-3]"

et ça beug

Mes tests ont abouti sur ces 2 parties qui "coincent" :
- REPLACE(RC[-9];1;2;0)
et
- REPLACE(RC[-8];1;2;0)

Je n'arrive pas à modifier et mes derniers cheveux sont en train de se faire la malle lol !

Pourriez-vous m'aider ?
Un grand merci par avance,
Amicalement,
lionel

 

[Usine à gaz]

Re-Bonjour

En cas de besoin, je joins un petit fichier test
Sélection "O9" et exécuter le code "test" qui beug.

 

[Bernard_XLD]

Bonjour Usine à gaz, le forum

pas testé dans ton fichier mais en formule, c'est substitue pas replace, par vba des virgules pas des points virgule

Bien cordialement, @+

ActiveCell.Offset(0, 4).FormulaR1C1 = "=""Etblt : ""&RC[-14]&"" Prospect : ""&RC[-13]&"" - ""&RC[-12]&"" - CP : ""&RC[-11]&"" - Commune : ""&RC[-10]&"" - Tel1 : ""&SUBSTITUTE(RC[-9],1,2,1)&"" - Tel2 : ""&SUBSTITUTE(RC[-8],1,2,1)&"" - ""&RC[-7]&"" - ""&RC[-6]&"" - ""&RC[-3]"

 

[Usine à gaz]

Bonjour Yeahou,
Merci pour ton retour.
Malheureusement ça ne fonctionne pas.
lionel

 

[Bernard_XLD]

Re,
ben si mais vu ton code, faut se placer en K9 avant de lancer test

 

[Bernard_XLD]

Re,
après, je ne sais pas si cela fait ce que tu voulais mais il n'y a plus d'erreur

 

[Usine à gaz]

Re-Bonjour Yeahou
J'ai trouvé grâce à tois
ça marche avec REPLACE mais c'était les points virgules.
Merci à toi

 

[Usine à gaz]

OUI exact il faut se mettre sur K9

 

[mapomme]

Bonjour,

Un essai. Se placer en H9 ou H12 et cliquer sur le bouton "Test".

Sub test()
ActiveCell.Offset(0, 4).FormulaR1C1 = "=""Etblt : "" & RC[-18]  & "" Prospect : "" & RC[-17] & "" - "" & RC[-16] & "" - CP : "" &  RC[-15] & "" - Commune : "" & RC[-14]  & "" - Tel1 : "" & REPLACE(RC[-13],1,2,0) & "" - Tel2 : "" & REPLACE(RC[-13],1,2,0) & "" - "" & RC[-11] & "" - "" & RC[-10] & "" - "" & RC[-7]"
End Sub

 

[Usine à gaz]

Bonjour Mapomme,

Merci pour ton retour
lionel,

 

[job75]

Bonjour Lionel, Yeahou, mapomme, le forum,

Que vois-je @mapomme ??? Entrer une formule en colonne L et utiliser RC[-18] ce n'est pas fameux !!!

Pour éviter ce genre de mésaventure mieux vaut utiliser des références absolues pour les colonnes :

Sub test()
Cells(ActiveCell.Row, 12).FormulaR1C1 = "=""Etblt : "" & RC1  & "" Prospect : "" & RC2 & "" - "" & RC3 & "" - CP : "" &  RC4 & "" - Commune : "" & RC5  & "" - Tel1 : "" & REPLACE(RC6,1,2,0) & "" - Tel2 : "" & REPLACE(RC7,1,2,0) & "" - "" & RC8 & "" - "" & RC9 & "" - "" & RC11"
End Sub

A+

 

[Usine à gaz]

Bonjour Gérard, à toutes et à tous,

Merci Gérard c'est nickel comme d'hab
Merci, merci !
Bonne journée,
lionel