je patauge

Le code omet le "End if" dans cette section du code :

If codCar >= 48 And codCar <= 57 Or codCar = 44 Or codCar = 46 Then
maChaine = maChaine & leCar
End If



"nicolas S2" <NmcnSsaillardP@libertysurf.fr> a écrit dans le message de news:
47483a0b$0$31732$426a34cc@news.free.fr...
Bonjour, j'ai copier le code ci-dessous sur excelabo, mais j'ai un problème
(c'est forcement moi qui a un problème mais pas un code issu de la bible
exelienne), un message d'erreur me dit "next sans for" sur Next x.



Merci de votre réponse



Et encore une foi, je travail avec Outlook expresm je suis en clqvier
frqn9qis je veux dire clavier français et je passe entre deux frappes en
clavier anglais !!!!!!



Je remet en clavier français, je passe à excel, le cavier repasse à nouveau
en anglais!!!!!



Sub Remplace()
Dim x, leCar, codCar
Dim Cel As Range
For Each Cel In Selection
For x = 1 To Len(Cel)
leCar = Mid(Cel, x, 1)
codCar = Asc(Mid(Cel, x, 1))
If codCar >= 48 And codCar <= 57 Or codCar = 44 Or codCar = 46
Then
maChaine = maChaine & leCar
Next x
Range(Cel.Address) = CDbl(maChaine)
maChaine = ""
Next Cel
End Sub

Bonjour,
Le ned if signalé manquant était peut être volontairement omis et peut
l'être à condition que l'ensemble du if then soit géré comme une seule ligne
:

Sub Remplace()
Dim x, leCar, codCar
Dim Cel As Range
For Each Cel In Selection
For x = 1 To Len(Cel)
leCar = Mid(Cel, x, 1)
codCar = Asc(Mid(Cel, x, 1))
If codCar >= 48 And codCar <= 57 _
Or codCar = 44 Or codCar = 46 _
Then maChaine = maChaine & leCar
Next x
Range(Cel.Address) = CDbl(maChaine)
maChaine = ""
Next Cel
End Sub

--
http://www.excelabo.net/mpfe/connexion.php
http://dj.joss.free.fr/trombine.htm
Avec plaisir
Philippe.R
"nicolas S2" <NmcnSsaillardP@libertysurf.fr> a écrit dans le message de
news:47483a0b$0$31732$426a34cc@news.free.fr...

Bonjour, j'ai copier le code ci-dessous sur excelabo, mais j'ai un
problème (c'est forcement moi qui a un problème mais pas un code issu de
la bible exelienne), un message d'erreur me dit "next sans for" sur Next
x.



Merci de votre réponse



Et encore une foi, je travail avec Outlook expresm je suis en clqvier
frqn9qis je veux dire clavier français et je passe entre deux frappes en
clavier anglais !!!!!!



Je remet en clavier français, je passe à excel, le cavier repasse à
nouveau en anglais!!!!!



Sub Remplace()
Dim x, leCar, codCar
Dim Cel As Range
For Each Cel In Selection
For x = 1 To Len(Cel)
leCar = Mid(Cel, x, 1)
codCar = Asc(Mid(Cel, x, 1))
If codCar >= 48 And codCar <= 57 Or codCar = 44 Or codCar = 46
Then
maChaine = maChaine & leCar
Next x
Range(Cel.Address) = CDbl(maChaine)
maChaine = ""
Next Cel
End Sub