Extraction Chiffre d'une Chaine (gauche, droite variables)

[Sghaier Chafaa]

Bonsoir à tous,

j'ai des cellules qui contiennent des chaines alphanumériques: 1 Lt, 0.50 Kg, 0.125Lt, etc...

Je ne trouve pas comment exploiter les fonctions "droite" et "gauche" pour l'extraction de la partie numérique de ces chaines pour l'utiliser au calcul de poids net total, car les chaines n'ont pas une écriture 'monotone'

Avez vous de solutions ?, j'essaye d’éviter les macro

Merci

 

[Chris24]

Bonsoir

Si ton séparateur décimal est différent de celui présent dans la chaîne (adapter les arguments dans la fonction SUBSTITUE) :

=1*STXT(SUBSTITUE(A2;".";",");MIN(SI(ESTNUM(1*STXT(A2;LIGNE(INDIRECT("1:"&NBCAR(A2)));1))*LIGNE(INDIRECT("1:"&NBCAR(A2)))>0;ESTNUM(1*STXT(A2;LIGNE(INDIRECT("1:"&NBCAR(A2)));1))*LIGNE(INDIRECT("1:"&NBCAR(A2)))));MAX(ESTNUM(1*STXT(A2;LIGNE(INDIRECT("1:"&NBCAR(A2)));1))*LIGNE(INDIRECT("1:"&NBCAR(A2))))-MIN(SI(ESTNUM(1*STXT(A2;LIGNE(INDIRECT("1:"&NBCAR(A2)));1))*LIGNE(INDIRECT("1:"&NBCAR(A2)))>0;ESTNUM(1*STXT(A2;LIGNE(INDIRECT("1:"&NBCAR(A2)));1))*LIGNE(INDIRECT("1:"&NBCAR(A2)))))+1)

Si ton séparateur décimal est le même que celui présent dans la chaîne :

=1*STXT(A2;MIN(SI(ESTNUM(1*STXT(A2;LIGNE(INDIRECT("1:"&NBCAR(A2)));1))*LIGNE(INDIRECT("1:"&NBCAR(A2)))>0;ESTNUM(1*STXT(A2;LIGNE(INDIRECT("1:"&NBCAR(A2)));1))*LIGNE(INDIRECT("1:"&NBCAR(A2)))));MAX(ESTNUM(1*STXT(A2;LIGNE(INDIRECT("1:"&NBCAR(A2)));1))*LIGNE(INDIRECT("1:"&NBCAR(A2))))-MIN(SI(ESTNUM(1*STXT(A2;LIGNE(INDIRECT("1:"&NBCAR(A2)));1))*LIGNE(INDIRECT("1:"&NBCAR(A2)))>0;ESTNUM(1*STXT(A2;LIGNE(INDIRECT("1:"&NBCAR(A2)));1))*LIGNE(INDIRECT("1:"&NBCAR(A2)))))+1)

Formules matricielles valider par Ctrl+Maj+Entrée

Cdt

 

[Sghaier Chafaa]

Bonsoir

Si ton séparateur décimal est différent de celui présent dans la chaîne (adapter les arguments dans la fonction SUBSTITUE) :

=1*STXT(SUBSTITUE(A2;".";",");MIN(SI(ESTNUM(1*STXT(A2;LIGNE(INDIRECT("1:"&NBCAR(A2)));1))*LIGNE(INDIRECT("1:"&NBCAR(A2)))>0;ESTNUM(1*STXT(A2;LIGNE(INDIRECT("1:"&NBCAR(A2)));1))*LIGNE(INDIRECT("1:"&NBCAR(A2)))));MAX(ESTNUM(1*STXT(A2;LIGNE(INDIRECT("1:"&NBCAR(A2)));1))*LIGNE(INDIRECT("1:"&NBCAR(A2))))-MIN(SI(ESTNUM(1*STXT(A2;LIGNE(INDIRECT("1:"&NBCAR(A2)));1))*LIGNE(INDIRECT("1:"&NBCAR(A2)))>0;ESTNUM(1*STXT(A2;LIGNE(INDIRECT("1:"&NBCAR(A2)));1))*LIGNE(INDIRECT("1:"&NBCAR(A2)))))+1)

Si ton séparateur décimal est le même que celui présent dans la chaîne :

=1*STXT(A2;MIN(SI(ESTNUM(1*STXT(A2;LIGNE(INDIRECT("1:"&NBCAR(A2)));1))*LIGNE(INDIRECT("1:"&NBCAR(A2)))>0;ESTNUM(1*STXT(A2;LIGNE(INDIRECT("1:"&NBCAR(A2)));1))*LIGNE(INDIRECT("1:"&NBCAR(A2)))));MAX(ESTNUM(1*STXT(A2;LIGNE(INDIRECT("1:"&NBCAR(A2)));1))*LIGNE(INDIRECT("1:"&NBCAR(A2))))-MIN(SI(ESTNUM(1*STXT(A2;LIGNE(INDIRECT("1:"&NBCAR(A2)));1))*LIGNE(INDIRECT("1:"&NBCAR(A2)))>0;ESTNUM(1*STXT(A2;LIGNE(INDIRECT("1:"&NBCAR(A2)));1))*LIGNE(INDIRECT("1:"&NBCAR(A2)))))+1)

Formules matricielles valider par Ctrl+Maj+Entrée

Cdt

Merci monsieur Chris pour les deux proposition,

j'ai trouvé cette solution en internet, que franchement j'ai pas compris son code, sauf qu'elle est tres efficace et elle est jocker de partt

Option Explicit
Function Extraire_chiffres(Cellule As Range) As Double
Dim i As Integer, N As Integer
Dim K As String, Texte As String
If Cellule <> "" Then
For i = 1 To Len(Cellule)
K = Cellule.Characters(i, 1).Text
N = Asc(K)
If IsNumeric(K) Or N = 44 Then Texte = Texte & K
Next i
Extraire_chiffres = CDbl(Texte)
End If
End Function


1,67 AAA ---> 1,670
1,671 BBA ---> 1,671
1,67g CBA ---> 1,670
1,67 g ADA ---> 1,670
10,670ASA ---> 10,670
10,670m ALA ---> 10,670
10,57 / AA ---> 10,570

 

[Staple1600]

Bonjour le fil, le forum

Bonsoir à tous,
Avez vous de solutions ?,j'essaye d’éviter les macro
Merci

Donc finalement pas d'évitement de macros alors?

Un autre formule (non matricielle) qui donne les bons résultats avec les exemples du message#3

=RECHERCHE(9^9;--("0"&STXT(A1;MIN(CHERCHE({0.1.2.3.4.5.6.7.8.9};A1&"0 123456789"));LIGNE($1:$100))))

 

[Chris24]

Bonjour Sghaier Chafaa, Staple 1600

@ Staple1600 Je retiens cette formule car pourquoi faire compliqué quand on peut faire simple

Le monsieur dans sa question a mis des points comme séparateur décimale et des virgules dans le#3
la fonction du #3 ne prend en compte que la virgule

Je suggère une petite modification de ta formule

=RECHERCHE(9^9;--("0"&STXT(SUBSTITUE(A1;".";",");MIN(CHERCHE({0.1.2.3.4.5.6.7.8.9};A1&"0 123456789"));LIGNE($1:$100))))

Cdt

 

[Staple1600]

Bonjour chris24

Point vu de point dans cette vue

1,67 AAA ---> 1,670
1,671 BBA ---> 1,671
1,67g CBA ---> 1,670
1,67 g ADA ---> 1,670
10,670ASA ---> 10,670
10,670m ALA ---> 10,670
10,57 / AA ---> 10,570

D'où mon point de vue formulistique vu dans le message #4

Merci pour la suggestion

PS: Cette formule traînait dans un de mes posts* sur XLD
(ce qui illustre au passage la triste vie de la loupe en haut en gauche qui année après année est ignorée par les demandeurs et se désole sans broncher en voyant le lustre de son foyer se ternir tellement inusité il est )

*: (novembre 2014)

 

[Sghaier Chafaa]

Bonjour le fil, le forum



Donc finalement pas d'évitement de macros alors?

Un autre formule (non matricielle) qui donne les bons résultats avec les exemples du message#3

=RECHERCHE(9^9;--("0"&STXT(A1;MIN(CHERCHE({0.1.2.3.4.5.6.7.8.9};A1&"0 123456789"));LIGNE($1:$100))))

Woww!! NIKEL
Mercii