Extraire chiffres d'une valeur

JeanMikael · 4 Septembre 2007

Re-bonjour le forum, alors maintenant ce que j'essai de faire c'est extraire
les troisièmes et quatrièmes chiffres d'une valeur, par exemple j'ai 12345678
si j'extrait les troisème et quatrième j'obtient donc 34 avec la fonction STXT aucun problème seulement voilà, je peux avoir des valeurs de cette forme 00011200 et là, la fonction STXT ne tient pas compte des 0 et me renvoi la valeur 20 alors qu'elle devrait me renvoyer la valeur 01, j'espère que j'ai été précis d'avance merci, bonne fin d'après-midi.

Cordialement,
Jean-Mikaël

wilfried_42 · 4 Septembre 2007

Re : Extraire chiffres d'une valeur

Bonjour Jeanmikael

=STXT(TEXTE(B3;"00000000");3;2)

essaye ca

JeanMikael · 4 Septembre 2007

Re : Extraire chiffres d'une valeur

Bonjour Wilfried,

merci pour ta réponse elle marche très bien, très bonne fin de journée.

Cordialement,
Jean-Mikaël

SergiO · 4 Septembre 2007

Re : Extraire chiffres d'une valeur

Bonjour JeanMikael, Wilfried,

Une autre formule qui marche pour des nombres à 8 chiffres maxi :

Valeur en A1, la formule : =MOD(ENT(A1/10000);100) au format "00".

@+

JeanMikael · 4 Septembre 2007

Re : Extraire chiffres d'une valeur

Bonjour Sergio, j'ai du mal a comprendre ta formule, en fait STXT est très bien mais quelqu'un aurait-il une solution via macro que dans la colonne P j'ai le résultat de l'extraction de ma colonne A donc par exemple j'ai une série de 5 valeurs dans la colonne A, comme 45656000,32145788,53153102,45631531,32454155 donc via la macro dans la colonne P j'aurai le résultat de mon extraction soit 65,14,15,63,45 sachant que ces valeurs sont respectivement en A2,3,4,5,6 du coup j'aurai le résultat correspondant en P2,3,4,5,6 j'espère avoir été clair merci de votre aide,
bonne fin de journée.

Cordialement,
Jean-Mikaël

SergiO · 4 Septembre 2007

Re : Extraire chiffres d'une valeur

Re,

Voici un code à tester :

Code:

Sub Extraire()
DerLig = Range("A65536").End(xlUp).Row
For L = 2 To DerLig
X = Mid(Format(Cells(L, 1), "00000000"), 3, 2)
Cells(L, 16) = X
Next L
End Sub

@+

Extraire chiffres d'une valeur

JeanMikael

Guest

wilfried_42

XLDnaute Barbatruc

JeanMikael

Guest

SergiO

XLDnaute Accro

JeanMikael

Guest

SergiO

XLDnaute Accro

Discussions similaires

Extraire chiffres d'une valeur

JeanMikael

Guest

wilfried_42

XLDnaute Barbatruc

JeanMikael

Guest

SergiO

XLDnaute Accro

JeanMikael

Guest

SergiO

XLDnaute Accro

Discussions similaires

Privacy & Transparency

Privacy & Transparency