je patauge

Le
nicolas S2
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
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
MichDenis
Le #5064141
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" 47483a0b$0$31732$
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
Philippe.R
Le #5064131
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" news:47483a0b$0$31732$
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



Publicité
Poster une réponse
Anonyme