Salut Myta !
Merci à toi, c'est sympa de me trouver une solution.
Mais en fait, j'ai opté pour une autre solution, toute autre.
En effet, j'ai fait la même macro, pour supprimer du texte et il se pose un véritable problème avec les caractères spéciaux tels que : ? , * , ~.
Donc, j'ai opté pour un système travaillant sur les codes Ascii.
C'est beaucoup plus précis et cela donne plus de possibilités.
L'inconvénient par contre, c'est la lenteur, en effet, je balaie la cellule en comparant les 255 caractères possibles.
Sub SupToutSaufChiffre()
Dim X As Integer
For Each Cell In selection
For X = 1 To 256
Select Case X
Case 9, 10, 13, 58 To 255, 32 To 48
If X = 42 Or X = 63 Then
Car = "~" & Chr(X) & ""
ElseIf X = 126 Then
Car = "" & Chr(X) & Chr(X) & ""
Else
Car = "" & Chr(X) & ""
End If
Cell.Replace What:=Car, Replacement:=""
End Select
Next X
Next Cell
End Sub
En fait j'avais commencé une macro travaillant sur les codes Ascii en premier, mais je n'arrivais pas à résoudre le problème des trois caractères spéciaux.
Puis cet après-midi, j'ai trouvé les bouts de code, qui me manquait, sur internet.
Car = "~" & Chr(X) & ""
Car = "" & Chr(X) & Chr(X) & ""
Car = "" & Chr(X) & ""
Honnêtement, je n'en saisi pas tous les contours, car moi je m'arrêtais à
Car= ""
Bonne soirée à toi et merci encore, je garde ton truc sous le coude.
@ +
moa