OVH Cloud OVH Cloud

Function Replace avec Mac OS X

2 réponses
Avatar
Claudy
Bonjour...
La macro ci dessous ne fonctionne pas sur mon Mac!!!

Sub test()
If Selection.Value Like "*ardive*" Then
zaza = Replace(Selection.Value, "(Facture Tardive!!)", "")

End If
End Sub
Il ne reconnaît pas la fonction Replace:
Erreur de compilation
Sub ou fonction non définie

En vous remerciant d'avance,
Claudy

2 réponses

Avatar
verificator
bonjour Claudy,

est-ce un problème Mac-PC ou un problème de version XL.
Il me semble avoir lu ici-même que Replace était apparu
sur la version 2000...
Tu peux essayer "WorksheetFunction.Substitute".

amicalement


-----Original Message-----
Bonjour...
La macro ci dessous ne fonctionne pas sur mon Mac!!!

Sub test()
If Selection.Value Like "*ardive*" Then
zaza = Replace(Selection.Value, "(Facture
Tardive!!)", "")


End If
End Sub
Il ne reconnaît pas la fonction Replace:
Erreur de compilation
Sub ou fonction non définie

En vous remerciant d'avance,
Claudy

.



Avatar
Claudy
Le 12/01/05 15:26, dans 052401c4f8b2$b746bcb0$,
« verificator » a écrit :

bonjour Claudy,

est-ce un problème Mac-PC ou un problème de version XL.
Il me semble avoir lu ici-même que Replace était apparu
sur la version 2000...
Tu peux essayer "WorksheetFunction.Substitute".

amicalement



Bonjour....
Merci,pour ton aide, en effet , ce doit etre un problème de version Xl
(mac os X Xl 2003 est encore en retard!!!)
Ta solution fonctionne:
zaza = WorksheetFunction.Substitute(Selection.Value, "(Facture Tardive!!)",
"")
J'avais trouvé ceci avant:
'zaza = Left(Selection.Value, Len(Selection.Value) - 19) '19 étant le nombre
'de caractères dans "(Facture Tardive!!)"
A+
Claudy


-----Original Message-----
Bonjour...
La macro ci dessous ne fonctionne pas sur mon Mac!!!

Sub test()
If Selection.Value Like "*ardive*" Then
zaza = Replace(Selection.Value, "(Facture
Tardive!!)", "")


End If
End Sub
Il ne reconnaît pas la fonction Replace:
Erreur de compilation
Sub ou fonction non définie

En vous remerciant d'avance,
Claudy

.