OVH Cloud OVH Cloud

Replace

8 réponses
Avatar
Alpha
Bonjour,
Grâce à ChrisV, j'ai une super proc qui fonctionne très bien sur Excel 2000
mais au boulot, sur Excel 97 cela plante au niveau du : Replace
voilà le bout qui plante, je désire donc le remplacer.
Merci
Alpha

nuM = Application.Text(Replace(Target.Value, alP, ""), _
"00000 00 000000 ")

8 réponses

Avatar
Michel Gaboly
Bonsoir,

Utilise la fonction de feuille de calcul SUBSTITUE() qui a la même syntaxe ;

nuM = Application.Text(Application.WorksheetFunction.Substitute(Target.Value, alP, ""), _
"00000 00 000000 ")

ou

With Application
nuM = .Text(.WorksheetFunction.Substitute(Target.Value, alP, ""), "00000 00 000000 ")
End With




Bonjour,
Grâce à ChrisV, j'ai une super proc qui fonctionne très bien sur Excel 2000
mais au boulot, sur Excel 97 cela plante au niveau du : Replace
voilà le bout qui plante, je désire donc le remplacer.
Merci
Alpha

nuM = Application.Text(Replace(Target.Value, alP, ""), _
"00000 00 000000 ")


--
Cordialement,

Michel Gaboly
http://www.gaboly.com

Avatar
Alpha
Merci beaucoup Michel,
je teste demain au boulot, et te contact
Alpha

"Michel Gaboly" a écrit dans le message de
news:
Bonsoir,

Utilise la fonction de feuille de calcul SUBSTITUE() qui a la même syntaxe
;


nuM Application.Text(Application.WorksheetFunction.Substitute(Target.Value, alP,
""), _

"00000 00 000000 ")

ou

With Application
nuM = .Text(.WorksheetFunction.Substitute(Target.Value, alP, ""),
"00000 00 000000 ")

End With




Bonjour,
Grâce à ChrisV, j'ai une super proc qui fonctionne très bien sur Excel
2000


mais au boulot, sur Excel 97 cela plante au niveau du : Replace
voilà le bout qui plante, je désire donc le remplacer.
Merci
Alpha

nuM = Application.Text(Replace(Target.Value, alP, ""), _
"00000 00 000000 ")


--
Cordialement,

Michel Gaboly
http://www.gaboly.com





Avatar
ChrisV
Bonjour Alpha,

Pas XL97 sous la main pour tester...
(à tester)

nuM = Application.Text(Substitute(Target.Value, alP, ""), _
"00000 00 000000 ")


ChrisV


"Alpha" a écrit dans le message de news:

Bonjour,
Grâce à ChrisV, j'ai une super proc qui fonctionne très bien sur Excel
2000

mais au boulot, sur Excel 97 cela plante au niveau du : Replace
voilà le bout qui plante, je désire donc le remplacer.
Merci
Alpha

nuM = Application.Text(Replace(Target.Value, alP, ""), _
"00000 00 000000 ")





Avatar
ChrisV
Oups...

Plutôt,

nuM = Application.Text(Application.Substitute(Target.Value, alP, ""), _
"00000 00 000000 ")


ChrisV


"Alpha" a écrit dans le message de news:

Bonjour,
Grâce à ChrisV, j'ai une super proc qui fonctionne très bien sur Excel
2000

mais au boulot, sur Excel 97 cela plante au niveau du : Replace
voilà le bout qui plante, je désire donc le remplacer.
Merci
Alpha

nuM = Application.Text(Replace(Target.Value, alP, ""), _
"00000 00 000000 ")





Avatar
Alpha
Lot of thanks ChrisV
Alpha

"ChrisV" a écrit dans le message de
news:
Oups...

Plutôt,

nuM = Application.Text(Application.Substitute(Target.Value, alP, ""), _
"00000 00 000000 ")


ChrisV


"Alpha" a écrit dans le message de news:

Bonjour,
Grâce à ChrisV, j'ai une super proc qui fonctionne très bien sur Excel
2000

mais au boulot, sur Excel 97 cela plante au niveau du : Replace
voilà le bout qui plante, je désire donc le remplacer.
Merci
Alpha

nuM = Application.Text(Replace(Target.Value, alP, ""), _
"00000 00 000000 ")









Avatar
Alpha
Merci beaucoup Michel
cela fonctionne parfaitement
Alpha

"Michel Gaboly" a écrit dans le message de
news:
Bonsoir,

Utilise la fonction de feuille de calcul SUBSTITUE() qui a la même syntaxe
;


nuM Application.Text(Application.WorksheetFunction.Substitute(Target.Value, alP,
""), _

"00000 00 000000 ")

ou

With Application
nuM = .Text(.WorksheetFunction.Substitute(Target.Value, alP, ""),
"00000 00 000000 ")

End With




Bonjour,
Grâce à ChrisV, j'ai une super proc qui fonctionne très bien sur Excel
2000


mais au boulot, sur Excel 97 cela plante au niveau du : Replace
voilà le bout qui plante, je désire donc le remplacer.
Merci
Alpha

nuM = Application.Text(Replace(Target.Value, alP, ""), _
"00000 00 000000 ")


--
Cordialement,

Michel Gaboly
http://www.gaboly.com





Avatar
ChrisV
Waste ! >;-)


ChrisV


"Alpha" a écrit dans le message de news:
#
Lot of thanks ChrisV
Alpha

"ChrisV" a écrit dans le message de
news:
Oups...

Plutôt,

nuM = Application.Text(Application.Substitute(Target.Value, alP, ""), _
"00000 00 000000 ")


ChrisV


"Alpha" a écrit dans le message de news:

Bonjour,
Grâce à ChrisV, j'ai une super proc qui fonctionne très bien sur Excel
2000

mais au boulot, sur Excel 97 cela plante au niveau du : Replace
voilà le bout qui plante, je désire donc le remplacer.
Merci
Alpha

nuM = Application.Text(Replace(Target.Value, alP, ""), _
"00000 00 000000 ")













Avatar
Michel Gaboly
De rien, Alpha ;-)))


Merci beaucoup Michel
cela fonctionne parfaitement
Alpha

"Michel Gaboly" a écrit dans le message de
news:
Bonsoir,

Utilise la fonction de feuille de calcul SUBSTITUE() qui a la même syntaxe
;


nuM > Application.Text(Application.WorksheetFunction.Substitute(Target.Value, alP,
""), _

"00000 00 000000 ")

ou

With Application
nuM = .Text(.WorksheetFunction.Substitute(Target.Value, alP, ""),
"00000 00 000000 ")

End With




Bonjour,
Grâce à ChrisV, j'ai une super proc qui fonctionne très bien sur Excel
2000


mais au boulot, sur Excel 97 cela plante au niveau du : Replace
voilà le bout qui plante, je désire donc le remplacer.
Merci
Alpha

nuM = Application.Text(Replace(Target.Value, alP, ""), _
"00000 00 000000 ")


--
Cordialement,

Michel Gaboly
http://www.gaboly.com





--
Cordialement,

Michel Gaboly
http://www.gaboly.com