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
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
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 )