Fonction qui supprime un caractère donné dans une chaîne

[Magic_Doctor]

Bonjour à toutes & à tous,

Je recherche une fonction qui supprime un caractère donné dans une chaîne alpha-numérique.
Par ex. (en supposant que la fonction s'intitule "DeleteCaractere") :

chaîne = $zaza$
DeleteCaractere(chaîne;"$") = zaza

chaîne = 125415615
DeleteCaractere(chaîne;"1") = 254565

J'ai cherché dans la BD du forum, mais n'ai rien trouvé.

Merci pour toute réponse.

 

[Compte Supprimé 979]

Re : Fonction qui supprime un caractère donné dans une chaîne

Salut Magic_doctor 😉

La fonction existe sur excel, c'est : =SUBSTITUE(Texte;Ancien texte; Nouveau texte)

chaîne = 125415615
=Substitue(chaîne;"1";"") = 254565

A+

 

[Magic_Doctor]

Re : Fonction qui supprime un caractère donné dans une chaîne

Hola BrunoM45, ¿cómo estás?

Je devrais en effet mieux connaître les fonctions déjà présentes dans Excel.
Voulant utiliser cette fonction dans une macro, j'y ai donc écrit ceci :

lolo = Substitute("$zaza$", "$", "")

Bizarrement il y a un message d'erreur : "Erreur de compilation / Sub ou Fonction n'a pas été défini".

Quelle bourde ai-je encore faite ?

 

[gwenlorin]

Re : Fonction qui supprime un caractère donné dans une chaîne

Ce serait pas Substitue et pas Substitute (un "t" en moins)

 

[Magic_Doctor]

Re : Fonction qui supprime un caractère donné dans une chaîne

Bonjour Gwenlorin,

Il s'agit bien de Substitute (en Anglais) et non Substitue (en Français) ou de Sustituir en Espagnol...
Mais les macros (en fait VBA) s'écrivent en Anglais.
Quand je sélectionne dans la macro Substitute + clic droit ---> explication au sujet de cette fonction.
Mais pourquoi donc diable ça ne marche pas !?!?!
C'est à ces moments là qu'on voit une grosse araignée descendre du plafond !

 

[Cousinhub]

Re : Fonction qui supprime un caractère donné dans une chaîne

Bonjour,

précède-le de Application. (n'oublie pas le . "point")

Pour voir....

 

[Magic_Doctor]

Re : Fonction qui supprime un caractère donné dans une chaîne

Bonjour bhbh,

J'ai bien écrit cette fois-ci :

lolo = Application.Substitue("$zaza$", "$", "")

Nouveau message d'erreur : "Erreur 438 / l'objet n'admet pas cette propriété ou cette méthode"

Caramba, encore raté !

 

[Compte Supprimé 979]

Re : Fonction qui supprime un caractère donné dans une chaîne

Re,
Estoy muy bien, Gracias. ¿y tú?
¿ Qué tiempo hace por en casa de ti?
(Quel temps fait t'il par chez toi, je ne sais pas si ça s'écrit comme ça 😛)

Bien le bonjour à toi Bh² 😉😀

Comme le dis notre ami hubert, mais avec un petit complément ...

Lolo = Application.WorksheetFunction.Substitute("$zaza$", "$", "")

Voili, voilà

 

[Cousinhub]

Re : Fonction qui supprime un caractère donné dans une chaîne

Re-,

coucou Bruno 🙂😉

Euh, 1ère écriture (que tu défends bec et ongles....) :

Substitute

Et tu mets :

Application.[COLOR="Red"]Substitue[/COLOR]("$zaza$", "$", "")

😱😱

 

[Compte Supprimé 979]

Re : Fonction qui supprime un caractère donné dans une chaîne

Re,

Je te promets Hubert, que ta solution ne fonctionne pas 😉😕😀

Substitue ou Substitute n'existe pas pour l'objet Application



A+

 

[Cousinhub]

Re : Fonction qui supprime un caractère donné dans une chaîne

Re-,

Bruno, chez moi, ce code fonctionne parfaitement....

Sub ee()
lolo = Application.Substitute("$zaza$", "$", "")
End Sub

😕😕

 

[Cousinhub]

Re : Fonction qui supprime un caractère donné dans une chaîne

Re-,

et en complément, ces 3 façons de faire sont équivalentes :

Sub ee()
lolo1 = Application.WorksheetFunction.Substitute("$zaza$", "$", "")
lolo2 = WorksheetFunction.Substitute("$zaza$", "$", "")
lolo3 = Application.Substitute("$zaza$", "$", "")
End Sub

J'ai lu quelque part que seule la fonction Match (Equiv dans une feuille), pouvait poser un problème si on la précédait de WorksheetFunction, et qu'il valait mieux n'utiliser que Application.Match

Bonne soirée

 

[JeanMarie]

Re : Fonction qui supprime un caractère donné dans une chaîne

Bonsoir

Et pourquoi pas

lolo2 = Replace(chaîne, "$", "")

PS: Bruno, hubert a trois fois raison

@+Jean-Marie

 

[Compte Supprimé 979]

Re : Fonction qui supprime un caractère donné dans une chaîne

Re,

Salut JeanMarie,
Je n'ai jamais dis que Bh² avait tort ou raison 😕

J'ai simplement signalé que chez moi ça ne fonctionnait pas 🙄
Et j'ai trouvé pourquoi 😛

J'étais sur un fichier avec des références manquantes, pfffttt sacrées références

Je m'en suis apperçu en refaisant le test après avoir quitté Excel et nouveau fichier vierge

Donc la solution à Mister huber fonctionne très bien 😛
Sorry 😉

 

[Cousinhub]

Re : Fonction qui supprime un caractère donné dans une chaîne

Re-,

Ouf.....

@ Jean-Marie 🙂

Effectivement, Replace le fait très bien, mais n'est pas compatible avec toutes les versions selon que ce soit Windows ou Mac (il me semble qu'elle ne fonctionne pas avant Xl 2000 PC, ni pour Mac 2001.... 😕)

Bonne soirée