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
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