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

Usine à gaz

XLDnaute Barbatruc

• 30 Mai 2021

• #2

Re-Bonjour

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

 

Pièces jointes

• Classeur1.xlsm

  20 KB · Affichages: 16

Dernière édition: 30 Mai 2021

Vote positif 0 Vote négatif

Bernard_XLD

XLDnaute Barbatruc

Membre du Staff

Supporter XLD

• 30 Mai 2021

• #3

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, @+

VB:

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]"

 

Vote positif 0 Vote négatif

Usine à gaz

XLDnaute Barbatruc

• 30 Mai 2021

• #4

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

 

Vote positif 0 Vote négatif

Bernard_XLD

XLDnaute Barbatruc

Membre du Staff

Supporter XLD

• 30 Mai 2021

• #5

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

 

Vote positif 0 Vote négatif

Solution

Bernard_XLD

XLDnaute Barbatruc

Membre du Staff

Supporter XLD

• 30 Mai 2021

• #6

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

 

Vote positif 0 Vote négatif

Usine à gaz

XLDnaute Barbatruc

• 30 Mai 2021

• #7

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

 

Vote positif 0 Vote négatif

Usine à gaz

XLDnaute Barbatruc

• 30 Mai 2021

• #8

OUI exact il faut se mettre sur K9

 

Vote positif 0 Vote négatif

mapomme

XLDnaute Barbatruc

• 30 Mai 2021

• #9

Bonjour,

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

VB:

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

 

Pièces jointes

• Usine à gaz- FormuleR1C1- v1.xlsm

  21.1 KB · Affichages: 8

Vote positif 0 Vote négatif

Usine à gaz

XLDnaute Barbatruc

• 30 Mai 2021

• #10

Bonjour Mapomme,

Merci pour ton retour
lionel,

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 31 Mai 2021

• #11

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 :

VB:

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+

 

Pièces jointes

• La bonne formule(1).xlsm

  20.4 KB · Affichages: 3

Vote positif 0 Vote négatif

Usine à gaz

XLDnaute Barbatruc

• 31 Mai 2021

• #12

Bonjour Gérard, à toutes et à tous,

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

 

Vote positif 0 Vote négatif