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 ?
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
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
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 ?
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
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
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 ?
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
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
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 ?
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
Bonjour,
=STXT(A1;EQUIV(FAUX;ESTERREUR(STXT(A1;LIGNE(INDIRECT("1:"&NBCAR(A1))); 1)*1);0);999) Valider avec Maj+Ctrl+Entrée
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
Bonjour,
=STXT(A1;EQUIV(FAUX;ESTERREUR(STXT(A1;LIGNE(INDIRECT("1:"&NBCAR(A1)));
1)*1);0);999)
Valider avec Maj+Ctrl+Entrée
On 18 avr, 16:44, Ulysse <Uly...@discussions.microsoft.com> 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 ?
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
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
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 ?
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
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
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
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
On 18 avr, 16:44, Ulysse <Uly...@discussions.microsoft.com> 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 ?
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
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
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 ?
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
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
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 -
C'est une formule matricielle
JB
On 19 avr, 14:46, Ulysse <Uly...@discussions.microsoft.com> 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
On 18 avr, 16:44, Ulysse <Uly...@discussions.microsoft.com> 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 -
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 -