Microsoft 365 Remplacer un caractère dans une chaîne

M12

XLDnaute Accro

• 7 Juin 2020

• #2

Bonjour
Formule à tester

VB:

=STXT(A2;1;TROUVE("@";A2)-1)&"+"&B2&STXT(A2;TROUVE("@";A2);NBCAR(A2))

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 7 Juin 2020

• #3

Bonjour mamard, M12

Voyez le fichier joint et cette formule en C2, version française :

Code:

=SI(ESTERR(TROUVE("@";A2));"";LIEN_HYPERTEXTE(SUBSTITUE(A2;"@";"+"&B2&"@")))

ou version anglaise :

Code:

=IF(ISERR(FIND("@",A2)),"",HYPERLINK(SUBSTITUTE(A2,"@","+"&B2&"@")))

A+

 

Pièces jointes

• email(1).xlsx

  10.1 KB · Affichages: 7

Vote positif 0 Vote négatif

J

jmfmarques

XLDnaute Accro

• 7 Juin 2020

• #4

Bonjour
devrait suffire (avec l'adresse en A1 et "toto" en B1 :
=SUBSTITUE(A1;"@";"+" & B1 & "@")

 

Vote positif 0 Vote négatif

M

mamard

XLDnaute Nouveau

• 7 Juin 2020

• #5

Merci à tous ! Super, ça marche en effet très bien avec Substitute

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 7 Juin 2020

• #6

bonjour à tous
j'ai cru voir "si existe" dans l’énoncé
donc cette condition concerne t elle le papa ou le (fiston ou fillette)?
pour régler les deux cas
=SI($A1<>"";.SI($B1<>"";SUBSTITUE(A1;"@";"+" & B1 & "@") ;""),"")

 

Vote positif 0 Vote négatif

M

mamard

XLDnaute Nouveau

• 7 Juin 2020

• #7

Merci @patricktoulon !
Je l'ai ajouté.

Maintenant, ce qui ne marche pas c'est le arrayformula.... on n'en sort jamais de cette histoire !

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 7 Juin 2020

• #8

autant pour moi je me suis encore trompé (;/,)
c'est l'habitude d'utiliser les formule en vba avec evaluate
la bonne formule
=SI($A2<>"";SI($B2<>"";SUBSTITUE(A2;"@";"+" & B2 & "@");"");"")

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 7 Juin 2020

• #9

j'oubliais le test cherche"@" au cas ou en colonne A ce ne serait pas un email

purrée dur dur aujourd'hui bah. je vais faire un sieston voila

la bonne formule c'est celle ci
=SI(ESTERR(TROUVE("@";A2));"";SI($A2<>"";SI($B2<>"";SUBSTITUE(A2;"@";"+" & B2 & "@");"");""))

et encore!! le test (A vide) n'est plus nécessaire
mais qu'est ce que casino a mis dans ma binch ?

cela dit il y a bien trop de tests de validité de l'adresse mail a faire pour rester en formule selon moi

 

Dernière édition: 7 Juin 2020

Vote positif 0 Vote négatif

M

mamard

XLDnaute Nouveau

• 7 Juin 2020

• #10

Merci
Je vois que vous "tirez" la formule.
De mon côté, j'essayais d'avoir une formule en entrée qui soit avec un "arrayformula", afin de ne pas avoir à tirer la formule sur toute la colonne, mais que dès qu'il y ait une entrée en ligne n+1, la formule s'applique.... (j'ai vu ça qq part, mais j'ai dû prendre la même binch que vous et je ne le retrouve plus....)

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 7 Juin 2020

• #11

je suis pas sur mais arrayformula n'impliquerait pas par hazard que les adresse soient en RC

 

Vote positif 0 Vote négatif

M

mamard

XLDnaute Nouveau

• 7 Juin 2020

• #12

Kesako "RC" ?

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 7 Juin 2020

• #13

tiens vide ta colonne C et lance ceci

VB:

Sub Macro1()
    Range("C2:C1000").FormulaR1C1 = _
    "= IF(ISERR(FIND(""@"",RC[-2])),"""",IF(RC2<>"""",SUBSTITUTE(RC[-2],""@"",""+"" & RC[-1] & ""@""),""""))"
End Sub

 

Vote positif 0 Vote négatif

M

mamard

XLDnaute Nouveau

• 7 Juin 2020

• #14

Ca c'est pour les gens intelligents !
J'ai retrouvé Arrayformula, et ça marche : =ArrayFormula(IF(ISERR(FIND("@";A2:A));"";IF($A2:A<>"";IF($B1:B<>"";SUBSTITUTE(A2:A;"@";"+"&C2:C&"@");"");"")))

Si l'on remplit un @ en A3, ça va remplir tout seul ....

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 7 Juin 2020

• #15

et tu le met ou ce code ?
de plus
dis moi il n'y a pas une erreur avec "$B1;B"

 

Vote positif 0 Vote négatif