Logo GNT
Actualités Tests & Guides Bons Plans
Gemini 3 Shein GTA 6 iPhone 17 Switch 2 ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel ActiveCell.replace

ActiveCell.replace

6 réponses
Avatar
Daniel
Bonjour,

J'ai besoin de faire une commande de ce type :

ActiveCell.Replace What:="+", Replacement:="&""+""&"

Elle fonctionne parfaitement pour le "+", les "-", les "/", mais pas pour
"*".

par quoi je pourais remplacer "*" pour que ma macro fonctionne.

En vous remerciant par avance.

Daniel
Signaler un problème avec ce contenu

6 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
garnote
Salut Daniel,

Pour le *, essaie ceci :

Sub Remplace()
ActiveCell.Replace What:="~*", Replacement:="0"
End Sub

Serge

"Daniel" a écrit dans le message de
news:
Bonjour,

J'ai besoin de faire une commande de ce type :

ActiveCell.Replace What:="+", Replacement:="&""+""&"

Elle fonctionne parfaitement pour le "+", les "-", les "/", mais pas pour
"*".

par quoi je pourais remplacer "*" pour que ma macro fonctionne.

En vous remerciant par avance.

Daniel





Avatar
Daniel
Ca marche,
Merci beaucoup.
Daniel

"garnote" a écrit dans le message de
news:qqVjb.1341$
Salut Daniel,

Pour le *, essaie ceci :

Sub Remplace()
ActiveCell.Replace What:="~*", Replacement:="0"
End Sub

Serge

"Daniel" a écrit dans le message de
news:
Bonjour,

J'ai besoin de faire une commande de ce type :

ActiveCell.Replace What:="+", Replacement:="&""+""&"

Elle fonctionne parfaitement pour le "+", les "-", les "/", mais pas
pour


"*".

par quoi je pourais remplacer "*" pour que ma macro fonctionne.

En vous remerciant par avance.

Daniel









Avatar
garnote
ou bien

Sub Remplace()
ActiveCell.Value = Replace(ActiveCell, "*", "0")
End Sub

mais il faut que la cellule active soit formatée texte.
Essaie avec ***

Serge


"Daniel" a écrit dans le message de
news:
Ca marche,
Merci beaucoup.
Daniel

"garnote" a écrit dans le message de
news:qqVjb.1341$
Salut Daniel,

Pour le *, essaie ceci :

Sub Remplace()
ActiveCell.Replace What:="~*", Replacement:="0"
End Sub

Serge

"Daniel" a écrit dans le message de
news:
Bonjour,

J'ai besoin de faire une commande de ce type :

ActiveCell.Replace What:="+", Replacement:="&""+""&"

Elle fonctionne parfaitement pour le "+", les "-", les "/", mais pas
pour


"*".

par quoi je pourais remplacer "*" pour que ma macro fonctionne.

En vous remerciant par avance.

Daniel













Avatar
Daniel
Encore une fois merci.

Daniel

"garnote" a écrit dans le message de
news:4jWjb.1858$
ou bien

Sub Remplace()
ActiveCell.Value = Replace(ActiveCell, "*", "0")
End Sub

mais il faut que la cellule active soit formatée texte.
Essaie avec ***

Serge


"Daniel" a écrit dans le message de
news:
Ca marche,
Merci beaucoup.
Daniel

"garnote" a écrit dans le message de
news:qqVjb.1341$
Salut Daniel,

Pour le *, essaie ceci :

Sub Remplace()
ActiveCell.Replace What:="~*", Replacement:="0"
End Sub

Serge

"Daniel" a écrit dans le message
de



news:
Bonjour,

J'ai besoin de faire une commande de ce type :

ActiveCell.Replace What:="+", Replacement:="&""+""&"

Elle fonctionne parfaitement pour le "+", les "-", les "/", mais pas
pour


"*".

par quoi je pourais remplacer "*" pour que ma macro fonctionne.

En vous remerciant par avance.

Daniel

















Avatar
Sitting Hoax \(BM\)
à noter que sur Excel 97, il faudra inscrire
Application.Substitute(ActiveCell, "*", "0"),
sinon, ça ne marchera pas (exelabo dixit) :-)
Amicalement
Sitting Hoax
"garnote" a écrit dans le message de
news:4jWjb.1858$
ou bien

Sub Remplace()
ActiveCell.Value = Replace(ActiveCell, "*", "0")
End Sub

mais il faut que la cellule active soit formatée texte.
Essaie avec ***

Serge


"Daniel" a écrit dans le message de
news:
Ca marche,
Merci beaucoup.
Daniel

"garnote" a écrit dans le message de
news:qqVjb.1341$
Salut Daniel,

Pour le *, essaie ceci :

Sub Remplace()
ActiveCell.Replace What:="~*", Replacement:="0"
End Sub

Serge

"Daniel" a écrit dans le message
de



news:
Bonjour,

J'ai besoin de faire une commande de ce type :

ActiveCell.Replace What:="+", Replacement:="&""+""&"

Elle fonctionne parfaitement pour le "+", les "-", les "/", mais pas
pour


"*".

par quoi je pourais remplacer "*" pour que ma macro fonctionne.

En vous remerciant par avance.

Daniel

















Avatar
Daniel
Merci pour l'info

Daniel

"Sitting Hoax (BM)" a écrit dans le message de
news:%
à noter que sur Excel 97, il faudra inscrire
Application.Substitute(ActiveCell, "*", "0"),
sinon, ça ne marchera pas (exelabo dixit) :-)
Amicalement
Sitting Hoax
"garnote" a écrit dans le message de
news:4jWjb.1858$
ou bien

Sub Remplace()
ActiveCell.Value = Replace(ActiveCell, "*", "0")
End Sub

mais il faut que la cellule active soit formatée texte.
Essaie avec ***

Serge


"Daniel" a écrit dans le message de
news:
Ca marche,
Merci beaucoup.
Daniel

"garnote" a écrit dans le message de
news:qqVjb.1341$
Salut Daniel,

Pour le *, essaie ceci :

Sub Remplace()
ActiveCell.Replace What:="~*", Replacement:="0"
End Sub

Serge

"Daniel" a écrit dans le
message




de
news:
Bonjour,

J'ai besoin de faire une commande de ce type :

ActiveCell.Replace What:="+", Replacement:="&""+""&"

Elle fonctionne parfaitement pour le "+", les "-", les "/", mais
pas





pour
"*".

par quoi je pourais remplacer "*" pour que ma macro fonctionne.

En vous remerciant par avance.

Daniel