Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11

Extraire uniquement les chiffes

8 réponses
Avatar
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

8 réponses

Avatar
FFO
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


Avatar
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


Avatar
isabelle
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


Avatar
JB
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 wrote:
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


Avatar
Ulysse
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





Avatar
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 wrote:
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







Avatar
Ulysse
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




Avatar
JB
C'est une formule matricielle

JB
On 19 avr, 14:46, Ulysse wrote:
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 wrote:
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 -