Remplacer n caractères dans une cellule

[Guillaume]

Bonjour à tous

Je poste pour la première fois sur ce forum qui m'a déjà beaucoup aidé grace aux archives.

Je voudrais savoir si vous connaissez une façon simple de remplacer toutes les lettres (de a à z) d'une cellule par des espaces pour ne garder que les autres caractères (''-_,;:! etc).

Merci à tous.

 

[myDearFriend!]

Bonsoir Guillaume,

Dans un module de code général (ex : Module1), tu peux copier-coller cette procédure et la lancer :

Sub Remplace()
Dim Cellule As Range
Dim i As Byte
      Set Cellule = ActiveSheet.Range('A1')   'à adapter
      For i = 65 To 90
            Cellule.Value = Replace(Cellule.Value, Chr(i), ' ')
            Cellule.Value = Replace(Cellule.Value, Chr(i + 32), ' ')
      Next i
End Sub

Bonnes fêtes de fin d'année.

 

[Guillaume]

Merci beaucoup Didier, ça marche impec!!

Bonnes fêtes à toi aussi.

Guillaume