Comment extraire un chiffre dans une cellule
Résolu
Bob
-
vazah -
vazah -
Bonjour,
Est-ce possible d'extraire deux chiffres qui se situe à des positions différentes dans le texte.
Voici mes deux possibilités (les chiffres sont des exemples).
A1: XXXX_40.3ab...
A2: 35cd_...
A3: XXXX_ 56ab
etc....
Comment faire pour qu'une seule formule puisse me donner les deux premiers chiffres qu'il détecte.
Merci pour votre aide
Est-ce possible d'extraire deux chiffres qui se situe à des positions différentes dans le texte.
Voici mes deux possibilités (les chiffres sont des exemples).
A1: XXXX_40.3ab...
A2: 35cd_...
A3: XXXX_ 56ab
etc....
Comment faire pour qu'une seule formule puisse me donner les deux premiers chiffres qu'il détecte.
Merci pour votre aide
A voir également:
- Comment extraire un chiffre dans une cellule
- Extraire une video youtube - Guide
- Extraire le son d'une vidéo - Guide
- Excel trier par ordre croissant chiffre - Guide
- Clavier iphone chiffre et lettre - Guide
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
3 réponses
Bonjour
si vous n'avez vraiment que ces deux configurations, c'est à dire:
__soit le texte commence par les deux chiffres
__soit le chiffre dans let texte est précédé par underscore
cette formule devrait faire l'affaire
=SI(ESTERREUR(GAUCHE(A2;1)*1);STXT(A2;TROUVE("_";A2;1)+1;2)*1;GAUCHE(A2;2)*1)
crdlmnt
si vous n'avez vraiment que ces deux configurations, c'est à dire:
__soit le texte commence par les deux chiffres
__soit le chiffre dans let texte est précédé par underscore
cette formule devrait faire l'affaire
=SI(ESTERREUR(GAUCHE(A2;1)*1);STXT(A2;TROUVE("_";A2;1)+1;2)*1;GAUCHE(A2;2)*1)
crdlmnt
Bonjour
Possible avec une fonction personnalisée
ALT F11 pour ouvrir l'éditeur VBA
Onglet Insertion Module
Copier et coller cette fonction :
Function chiffres(chaine)
chif = ""
For n = 1 To Len(chaine)
c = Mid(chaine, n, 1)
If c >= "0" And c <= "9" And Len(chif) < 2 Then chif = chif & c
Next
chiffres = Val(chif)
End Function
Fermer l'éditeur
S'utilise après comme n'importe quelle fonction
= chiffres (A1) renverra 40
Cdlmnt
Possible avec une fonction personnalisée
ALT F11 pour ouvrir l'éditeur VBA
Onglet Insertion Module
Copier et coller cette fonction :
Function chiffres(chaine)
chif = ""
For n = 1 To Len(chaine)
c = Mid(chaine, n, 1)
If c >= "0" And c <= "9" And Len(chif) < 2 Then chif = chif & c
Next
chiffres = Val(chif)
End Function
Fermer l'éditeur
S'utilise après comme n'importe quelle fonction
= chiffres (A1) renverra 40
Cdlmnt