Discussion :

[Cakan_75]

Bonjour,

je suis à la recherche d'une macro qui me permettrai du supprimer dans un cellule toutes les caractères qui ne sont pas des chiffres et ainsi garder que le numéro.
Pour exemple j'ai dans ma colonne "J" les informations suivantes (chaque ligne représente une cellule différente) :
N° 06029/ROINGEARD
N° 05390/El Benna
N° 04344/Mme Jessel
EB08741/Gorvel
BIO08565/Jamin

Je voudrais conserver que les chiffres et supprimer toutes les lettres et espace.
Idéalement je souhaiterai afficher ce résultat dans une nouvelle colonne comme suit :
06029
05390
04344
08741
08565

Si le premier chiffre est un Zéro je souhaite qu'il soit affiché.


Merci de votre aide précieuse.

Cakan

[Menhir]

En supposant que la zone à tester est A1:A10 :

Code :

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

1
2
3
4
5
6
7
8
9
10
Dim Source As String, Dest As String, Loc As Range, Car As Integer
 
For Each Loc In Range("A1:A10")
    Source = Loc.Value
    Dest = ""
    For Car = 1 To Len(Source)
        If Asc(Mid(Source, Car, 1))>=48 And Asc(Mid(Source, Car, 1))<=57 Then Dest = Dest & Mid(Source, Car, 1)
    Next Car
    Loc.Value = Dest
Next Loc

C'est du code taper à l'arrache sur le forum et non tester. Tu auras donc peut-être un peu de débugage à faire.

[Zekraoui_Jakani]

Vous pouvez copier la procedure suivante dans un module séparé.
ensuite, à droite de chaque cellule, taper l'instruction "=testChiffres(AdresseContenantLeTexteAdéchiffrer)".
Exemple si A5 contient "EB08741/Gorvel", alors en B5 taper "=testChiffres(A5), ce qui donnera "08741"

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Function testChiffres(monTxt)
 
Dim resultat As String
Dim j As Integer
Dim sousTxt As String
Dim extrait As String
 
    resultat = ""
    For j = 1 To Len(monTxt)
        sousTxt = Mid(monTxt, j, 1)
        If Asc(sousTxt) > 47 And Asc(sousTxt) < 58 Then
            extrait = sousTxt: resultat = resultat & extrait
        End If
    Next j
    testChiffres = resultat
 
End Function

[unparia]

Bonjour
Les exemples donnés montrant qu'il s'agit de codes postaux, je proposerais volontiers ceci :

Code :

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

1
2
3
4
5
6
chaine = "blabla06029blabla"
titi = chaine
Do While Not titi Like "#####*"
  titi = Mid(titi, 2)
Loop
MsgBox Format(Val(titi), "00000")

[Cakan_75]

1000 Merci pour ce code qui fonctionne très bien.
Certain de mes numéros comprennent parfois un point (exemple : N° 88513.14/M Tartampion) et je voudrais garder ce point. Comment faut il procéder ?
Comme je suis un simple débutant en VBA serait il possible d'avoir les explications de ce code en précisant ce que chaque ligne fait ?

Cakan

Vous pouvez copier la procedure suivante dans un module séparé.
ensuite, à droite de chaque cellule, taper l'instruction "=testChiffres(AdresseContenantLeTexteAdéchiffrer)".
Exemple si A5 contient "EB08741/Gorvel", alors en B5 taper "=testChiffres(A5), ce qui donnera "08741"

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Function testChiffres(monTxt)
 
Dim resultat As String
Dim j As Integer
Dim sousTxt As String
Dim extrait As String
 
    resultat = ""
    For j = 1 To Len(monTxt)
        sousTxt = Mid(monTxt, j, 1)
        If Asc(sousTxt) > 47 And Asc(sousTxt) < 58 Then
            extrait = sousTxt: resultat = resultat & extrait
        End If
    Next j
    testChiffres = resultat
 
End Function

[Cakan_75]

merci aux autres pour leur proposition de code
Menhir ton code fonctionne mais il ne conserve pas le "0" quand le numéro commence par "0". Ce qui dans mon cas est problématique.
Par ailleurs je ne sais pas comment coder que le résultat de cette transformation soit dans une autre colonne et non dans la cellule initiale.

[Menhir]

Menhir ton code fonctionne mais il ne conserve pas le "0" quand le numéro commence par "0". Ce qui dans mon cas est problématique.

C'est juste une question de format

Code :

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

    Loc.NumberFormat =  "@"

A mettre avant le Loc.Value =.

Par ailleurs je ne sais pas comment coder que le résultat de cette transformation soit dans une autre colonne et non dans la cellule initiale.

Il suffit de remplacer Loc dans les dernières lignes du code par l'adresse où tu veux mettre ta valeur.

Certain de mes numéros comprennent parfois un point (exemple : N° 88513.14/M Tartampion) et je voudrais garder ce point. Comment faut il procéder ?

Il suffit d'ajouter à la condition du test If qu'on accepte aussi le code du point.

Comme je suis un simple débutant en VBA serait il possible d'avoir les explications de ce code en précisant ce que chaque ligne fait ?

Et si tu consultait l'aide en apprenant l'usage de la touche F1 ?