Substitue

[Hulk]

Hello le Forum,

dans une cellule j'ai ceci :

=SUBSTITUE(SUBSTITUE(SUBSTITUE(SUBSTITUE(SUBSTITUE(SUBSTITUE(SUBSTITUE(SUBSTITUE(F2;"C";"");"F";"");"T";"");"D";"");"R";"");"x";"-");"+";"");"#";"")

Je souhaite aussi que si "=" dans F2 qu'il me remplace le signe "=" par un "-" (tiret) mais j'ai vu qu'on ne pouvait imbriquer que 8 SUBSTITUE ?

Quelqu'un a une solution ? Imbriquer un REMPLACE ?

Merci pour votre aide.

Hulk.

 

[jeanpierre]

Re : Substitue

Bonjour à tous,

Jean-Marie, permet que je t'adresse mes excuses car tu as tout à fait raison, emporté que j'étais par l'intérêt de la chose origine je n'ai pas fait distinguo entre ce fil et l'autre.

Je te renouvelle toutes mes excuses ainsi qu'à tous ceux qui passeront par là.

Reçois également tous mes meilleurs voeux.

Jean-Pierre

 

[pierrejean]

Re : Substitue

Re

Bonjour a tous

Une fonction personnalisée pour tenter de resoudre le problème initialement posé a savoir passer outre a la limite de l'imbrication des substitue

 

[Hulk]

Re : Substitue

Hello, le Forum, PierreJean,

Bon je l'a garde au chaud.. je ne comprends pas vraiment la macro 😀 mais j'analyse la chose. Elle me sera sûrement utile à l'avenir.

Merci JeanPierre.

Bon dimanche.

 

[pierrejean]

Re : Substitue

Re

Heu !!
Moi c'est pierrejean

La fonction commentée

Function substituer(Expression As String, a_sub_pt_virgule_par As String)
'mise sous forme de tableau de a_sub_pt_virgule_par
x = Split(a_sub_pt_virgule_par, ";")
result = Expression
'pour chaque element du tableau (par pas de2)
For n = LBound(x) To UBound(x) Step 2
'si l'element suivant est '
 If x(n + 1) = "'" Then
'on remplacera par rien
  par = ""
 Else
'sinon on remplacera par l'element suivant
   par = x(n + 1)
 End If
'remplacement
result = Replace(result, x(n), par)
'element suivant
Next n
'finaliser
substituer = result
End Function

 

[Hulk]

Re : Substitue

Re,

Grr désolé pour ton prénom PierreJean 😱

Merci aussi pour tes explications.. claires.

@+ 😀

Hulk.