Probleme de caracteres

[Olyxier]

Bonjour le forum
voici une macro qui marche pas mal en faite mais son probleme est qu'elle ne supprime pas les points ni les virgules
ni les sigle € donc quels attribut faut il ajouter pour resoudre mon probleme
merci à vous et bonne soirée
Sub Macro1()


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

peu t'on compiler ces deux macros 1 et 2

Sub Macro2()



Dim C As Range
Dim i As Byte
Dim nombre As String

For Each C In Selection
For i = 1 To Len(C)
If IsNumeric(Mid(C, i, 1)) Then
nombre = nombre & Mid(C, i, 1)
End If
Next i
C = CDbl(nombre)
nombre = ""
Next C

End Sub

 

[PascalXLD]

Re : Probleme de caracteres

Bonjour

Ajouter le texte en bleu

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
Plage.Replace Chr(44), "" 'point
Plage.Replace Chr(46), "" 'virgule
Plage.Replace Chr(128), "" 'sigle €
Application.ScreenUpdating = True
End Sub

 

[Olyxier]

Re : Probleme de caracteres

BONSOIR
merci beaucoup je suis désolé j'ai reposter un post car lorsque j'ai regarder le forum je ne l'ai plus trouvé ce post donc je me suis dis que j'avais mal poster et j'ai reposter un autre presque identique merci a toi et désolé

comment fait on pour trouver la liste des valeur chr(44) ext car je voudrais aussi supprimer des double points : ou des apostrophes '
et peut etre des autres
@+ et bonne soirée

 

[PascalXLD]

Re : Probleme de caracteres

re

tu vas dans l'aide VBA et là tu tapes caractère et tu auras la liste de 0 à 127 et de 128 à 255

 

[Olyxier]

Re : Probleme de caracteres

OK MERCI pour t'on aide mais voilà lorsque je cherche dans l'aide j'ai 100 reponse et je ne vois pas la ligne que tu me dis
@+

 

[PascalXLD]

Re : Probleme de caracteres

Re

Voici une copie d'ecran