Extraire uniquement les chiffes

Le
Ulysse
bjr tt le monde

dans une plage de cellules, j'ai des chiffres et des lettres ex. "Mariane
1245" ; "Cousin PA142587" ; "Frère T 214587"
Comment extraire uniquement les chiffres ?

merci d'avance
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
FFO
Le #4442501
Salut Ulysse
Ma solution Macro :
'en considérant la cellule Active
For i = 1 To Len(ActiveCell)
car = Mid(ActiveCell, i, 1)
If car = 0 Or car = 1 Or car = 2 Or car = 3 Or car = 4 Or car = 5 Or car = 6
Or car = 7 Or car = 8 Or car = 9 Then
chainenum = chainenum & car
End If
Next
MsgBox (chainenum)
'En Considérant la Cellule A1
For i = 1 To Len(Range("A1"))
car = Mid(Range("A1"), i, 1)
If car = 0 Or car = 1 Or car = 2 Or car = 3 Or car = 4 Or car = 5 Or car = 6
Or car = 7 Or car = 8 Or car = 9 Then
chainenum = chainenum & car
End If
Next
MsgBox (chainenum)
Qu'en penses tu ??

bjr tt le monde

dans une plage de cellules, j'ai des chiffres et des lettres ex. "Mariane
1245" ; "Cousin PA142587" ; "Frère T 214587" ...
Comment extraire uniquement les chiffres ?

merci d'avance


FFO
Le #4442471
J'ai oublié le code pour une plage :
considérant la plage A1:A10 avec résultat dans la cellule adjacente de la
colonne B

For Each c In Worksheets("Onglet").Range("A1:A10")
If c <> "" Then
c.Select
chainenum = ""
For i = 1 To Len(ActiveCell)
car = Mid(ActiveCell, i, 1)
If car = 0 Or car = 1 Or car = 2 Or car = 3 Or car = 4 Or car = 5 Or car = 6
Or car = 7 Or car = 8 Or car = 9 Then
chainenum = chainenum & car
End If
Next
c.Offset(0, 1) = chainenum
End If
Next

N'est ce pas mieux ???



bjr tt le monde

dans une plage de cellules, j'ai des chiffres et des lettres ex. "Mariane
1245" ; "Cousin PA142587" ; "Frère T 214587" ...
Comment extraire uniquement les chiffres ?

merci d'avance


isabelle
Le #4442461
bonjour Ulyssae,

x = "Frère T 214587"
For i = 1 To Len(x)
If IsNumeric(Mid(x, i, 1)) Then y = y & Mid(x, i, 1)
Next

isabelle


bjr tt le monde

dans une plage de cellules, j'ai des chiffres et des lettres ex. "Mariane
1245" ; "Cousin PA142587" ; "Frère T 214587" ...
Comment extraire uniquement les chiffres ?

merci d'avance


JB
Le #4442351
Bonjour,

=STXT(A1;EQUIV(FAUX;ESTERREUR(STXT(A1;LIGNE(INDIRECT("1:"&NBCAR(A1)));
1)*1);0);999)
Valider avec Maj+Ctrl+Entrée

http://boisgontierjacques.free.fr/fichiers/Matriciel/MatricielTexte.xls

JB

On 18 avr, 16:44, Ulysse
bjr tt le monde

dans une plage de cellules, j'ai des chiffres et des lettres ex. "Mariane
1245" ; "Cousin PA142587" ; "Frère T 214587" ...
Comment extraire uniquement les chiffres ?

merci d'avance


Ulysse
Le #4441191
Merci Isabelle

ça marche à merveille


bonjour Ulyssae,

x = "Frère T 214587"
For i = 1 To Len(x)
If IsNumeric(Mid(x, i, 1)) Then y = y & Mid(x, i, 1)
Next

isabelle


bjr tt le monde

dans une plage de cellules, j'ai des chiffres et des lettres ex. "Mariane
1245" ; "Cousin PA142587" ; "Frère T 214587" ...
Comment extraire uniquement les chiffres ?

merci d'avance





Ulysse
Le #4441181
Pour JB

merci ça marche

cependant pourquoi le Maj+Ctrl+Entrée ?


Bonjour,

=STXT(A1;EQUIV(FAUX;ESTERREUR(STXT(A1;LIGNE(INDIRECT("1:"&NBCAR(A1)));
1)*1);0);999)
Valider avec Maj+Ctrl+Entrée

http://boisgontierjacques.free.fr/fichiers/Matriciel/MatricielTexte.xls

JB

On 18 avr, 16:44, Ulysse
bjr tt le monde

dans une plage de cellules, j'ai des chiffres et des lettres ex. "Mariane
1245" ; "Cousin PA142587" ; "Frère T 214587" ...
Comment extraire uniquement les chiffres ?

merci d'avance







Ulysse
Le #4441161
Un grand Merci à toi FFO


J'ai oublié le code pour une plage :
considérant la plage A1:A10 avec résultat dans la cellule adjacente de la
colonne B

For Each c In Worksheets("Onglet").Range("A1:A10")
If c <> "" Then
c.Select
chainenum = ""
For i = 1 To Len(ActiveCell)
car = Mid(ActiveCell, i, 1)
If car = 0 Or car = 1 Or car = 2 Or car = 3 Or car = 4 Or car = 5 Or car = 6
Or car = 7 Or car = 8 Or car = 9 Then
chainenum = chainenum & car
End If
Next
c.Offset(0, 1) = chainenum
End If
Next

N'est ce pas mieux ???



bjr tt le monde

dans une plage de cellules, j'ai des chiffres et des lettres ex. "Mariane
1245" ; "Cousin PA142587" ; "Frère T 214587" ...
Comment extraire uniquement les chiffres ?

merci d'avance




JB
Le #4440881
C'est une formule matricielle

JB
On 19 avr, 14:46, Ulysse
Pour JB

merci ça marche

cependant pourquoi le Maj+Ctrl+Entrée ?




Bonjour,

=STXT(A1;EQUIV(FAUX;ESTERREUR(STXT(A1;LIGNE(INDIRECT("1:"&NBCAR(A1)));
1)*1);0);999)
Valider avec Maj+Ctrl+Entrée

http://boisgontierjacques.free.fr/fichiers/Matriciel/MatricielTexte.xls

JB

On 18 avr, 16:44, Ulysse
bjr tt le monde

dans une plage de cellules, j'ai des chiffres et des lettres ex. "Mar iane
1245" ; "Cousin PA142587" ; "Frère T 214587" ...
Comment extraire uniquement les chiffres ?

merci d'avance- Masquer le texte des messages précédents -



- Afficher le texte des messages précédents -




Publicité
Poster une réponse
Anonyme