caractere indesirable

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

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
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

I
  • Question Question
Réponses
1
Affichages
3 K
L
Réponses
2
Affichages
3 K
LandryK7
L
N
Réponses
5
Affichages
3 K
Nicocotte125
N
L
Réponses
1
Affichages
1 K
Lucien31
L
N
Réponses
1
Affichages
963
L
Réponses
1
Affichages
995
lilidxb
L
N
Réponses
17
Affichages
3 K
ninajams
N
M
Réponses
11
Affichages
2 K
Melidan2006
M
Retour