caractere indesirable

Olyxier

XLDnaute Occasionnel
Bonsoir le forum
voici un code qui n'est pas mal en faite mais qui supprime juste les lettres et malheureusement pas les points ni les virgule ou signe € quel attribut faut il utiliser pour enlever les points est autre signe
merci a vous et bonne soirée

Option Explicit

Sub Test()
SupprLettres Range("A1:G10")
End Sub

Sub SupprLettres(Plage As Range)
Dim C As Byte
Application.ScreenUpdating = False
Set Plage = Plage.SpecialCells(xlCellTypeConstants, xlTextValues)
For C = 65 To 90
Plage.Replace Chr(C), ""
Plage.Replace Chr(C + 32), ""
Next C
Application.ScreenUpdating = True
End Sub
 

Olyxier

XLDnaute Occasionnel
Re : caractere indesirable

oui c'est le meme mais je dois avoir un probleme de connexion car je poste des truc et je ne les trouve plus mais vous pouvez resoudre le probleme de mon autre post
merci a vous désolé pour les doublons et bonne soirée
 

Discussions similaires

Membres actuellement en ligne

Aucun membre en ligne actuellement.

Statistiques des forums

Discussions
312 305
Messages
2 087 084
Membres
103 459
dernier inscrit
Arnocal