Microsoft 365 Substitue multiples

Bonsoir @Clem42,

Avec une petite fonction personnalisée :
Remplace(cellule As Range, quoi As Range, par As Range, Optional Casse)

• cellule est la cellule contenant le texte à modifier
• quoi est la plage en colonne des textes à remplacer
• par est la plage en colonne des textes de remplacement
• Casse : si présent (égal à n'importe quoi) alors on tient compte de la casse (majuscule/minuscule)
• Casse : si absent, on ne tient pas compte des majuscules et minuscules

Voir formule en D4 et D9.

Le code de la fonction est dans module1 :

edit : v1a

Merci mapomme, je ne pensais pas qu'on pouvais réaliser des fonctions personnalisés au niveau d'Excel. Habituellement pour cela je serais partir sur une macro...

Bonjour MaPomme, Clem,
Ce serait dommage de ne pas exploiter les fonctions perso, c'est aussi puissant qu'utile.
un tuto à ce sujet :

Re MaPomme

J'ai essayé de refaire ça à ma "manière", cela fonctionne mais pas dans le cas ou je l'utilise de manière imbriquée alors que la tienne fonctionne. Pourrais-tu m'indiquer l'erreur que j'ai fait.

Function SUBSTITUE_MULTIPLES(texte As Range, plage_ancien_texte As Range, plage_nouveau_texte As Range)
Dim i As Long, nouveau_texte As String

nouveau_texte = texte(1, 1)
If (plage_ancien_texte.Rows.Count = plage_nouveau_texte.Rows.Count _
And plage_ancien_texte.Columns.Count = plage_nouveau_texte.Columns.Count _
And (plage_ancien_texte.Columns.Count = 1 Or plage_ancien_texte.Rows.Count = 1)) Then
If (plage_ancien_texte.Columns.Count = 1) Then
For i = 1 To plage_ancien_texte.Rows.Count
nouveau_texte = Replace(nouveau_texte, plage_ancien_texte(i, 1), plage_nouveau_texte(i, 1), , , vbTextCompare)
Next
ElseIf (plage_ancien_texte.Rows.Count = 1) Then
For i = 1 To plage_ancien_texte.Columns.Count
nouveau_texte = Replace(nouveau_texte, plage_ancien_texte(1, i), plage_nouveau_texte(1, i), , , vbTextCompare)
Next
End If
SUBSTITUE_MULTIPLES = nouveau_texte
End If
End Function

Bonsoir @Clem42 🙂;

à l'heure de l'apéro, un p'ti fichier ne sera pas de refus 🥂

Bonsoir à tous

@mapomme 😉
Merci déjà pour cette super fonction, utile et bien agréable à utiliser.
Etant souvent embêté lors d'extraction avec des chiffres comprenant des espaces (*), je suis reparti de cette fonction pour essayer de traiter ce point.
Pour être plus précis, quand on extrait 1 022.12 qui n'est pas reconnu comme chiffre, j'utilise habituellement une formule de type substitue() avec chr(160) à remplacer par chr(32).
D'où une tentative pour reprendre cette configuration.
Tu me diras ce que tu en penses, à simplifier ou à modifier peut-être.

Bonne soirée
zebanx

(*) souvent rencontré lors d'extractions de données banc***

Voici le fichier.

Petite correction, dans les 2 cas cela ne marche pas.... Le résultat attendu est en colonne F. J'ai réussi à à avoir un résultat en découpant ma formule en 2 en passant par la colonne intermédiaire C. Par contre, lorsque j'essaie de faire la même chose dans une seule cellule, j'obtiens le message #VALEUR...

Salut MaPomme.

As-tu une piste ?