VBA supprimer des caractères des cellules dans une colonne

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

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

Code:

---

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.

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:

---

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

---

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

Code:

---

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")

---

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

Citation:

---

Envoyé par 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:

---

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

---

---

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.

Citation:

---

Envoyé par Cakan_75

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:

---

Loc.NumberFormat = "@"

---

A mettre avant le Loc.Value =.

Citation:

---

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.

Citation:

---

Envoyé par Cakan_75

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.

Citation:

---

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 ? :?