Discussion :

[victorzecat]

bonjour à tous,

Je cherche à créer une macro (et/ou) fonction permettant de supprimer, au sein d'une cellule tout caractère qui ne serait pas un chiffre:

Exemple:

nous avons dans la cellule A1 = jlls456s-* f57s8f

Après action de la macro nous aurions: 456578

Etant débutant, je ne sais pas trop par où commencer... pensez vous que c'est réalisable?

merci d'avance pour votre aide.

[tirex28]

Bonsoir,

Le code est à insérer dans un module standard.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
 
Function GarderChiffres(Chaine As String) As String
    Dim i As Long, t As String
    For i = 1 To Len(Chaine)
        t = Mid$(Chaine, i, 1)
        If Asc(t) > 47 And Asc(t) < 58 Then GarderChiffres = GarderChiffres & t
    Next
End Function

Tu peux utiliser la fonction dans une cellule en tapant simplement:
=garderchiffres(A1)

Cordialement,

Tirex28/

[victorzecat]

merci beaucoup ça fonctionne au top.

PS: j'ai rajouté la possibilité de détecter les virgules.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Function GarderChiffres(Chaine As String) As String
    Dim i As Long, t As String
    For i = 1 To Len(Chaine)
        t = Mid$(Chaine, i, 1)
        If Asc(t) > 47 And Asc(t) < 58 Or t = "," Then GarderChiffres = GarderChiffres & t
    Next
End Function