Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11

Extraction d'un nombre décimal d'une plage alphanumérique

2 réponses
Avatar
Philippe GETAZ
Bonjour,

Je suis à la recherche d'une formule me permettant d'extraire un nombre
décimal, de longueur variable ayant un point comme séparateur, d'une cellule
alphanumérique, voire le nombre et la ou les deux lettre qui le précèdent.

Ex. de cellule :

Champ de coton, rendement kg 1.265 (soit extraire 1.265) ou
Champ de coton, qualité G 5.6 (extraire G 5.6) ou
Champ de coton, qualité GL 5.6 (extraire GL 5.6)

Merci d'avance

2 réponses

Avatar
JB
Bonsoir,

Pour la partie num seulement:

Function NumChaine(chaine)
temp = ""
For i = 1 To Len(chaine)
c = Mid(chaine, i, 1)
If c >= "0" And c <= "9" Or c = "." Then temp = temp & c
Next i
NumChaine = temp
End Function

JB



On 8 mar, 18:29, "Philippe GETAZ" wrote:
Bonjour,

Je suis à la recherche d'une formule me permettant d'extraire un nombre
décimal, de longueur variable ayant un point comme séparateur, d'une c ellule
alphanumérique, voire le nombre et la ou les deux lettre qui le préc èdent.

Ex. de cellule :

Champ de coton, rendement kg 1.265 (soit extraire 1.265) ou
Champ de coton, qualité G 5.6 (extraire G 5.6) ou
Champ de coton, qualité GL 5.6 (extraire GL 5.6)

Merci d'avance


Avatar
JB
Function NumChaine2(chaine)
i = Len(chaine)
Do While i > 1 And Not témoin
c = Mid(chaine, i, 1)
If (c >= "0" And c <= "9") Or c = "." Or c = " " Or
InStr("ABCDEFGHIJKLMOPQRSTUVWXYZ", c) > 0 Then
i = i - 1
Else
témoin = True
End If
Loop
NumChaine2 = Mid(chaine, i + 2)
End Function

JB
http://boisgontierjacques.free.fr


On 8 mar, 19:09, JB wrote:
Bonsoir,

Pour la partie num seulement:

Function NumChaine(chaine)
  temp = ""
  For i = 1 To Len(chaine)
    c = Mid(chaine, i, 1)
    If c >= "0" And c <= "9" Or c = "." Then temp = temp & c
  Next i
  NumChaine = temp
End Function

JB

On 8 mar, 18:29, "Philippe GETAZ" wrote:



Bonjour,

Je suis à la recherche d'une formule me permettant d'extraire un nombr e
décimal, de longueur variable ayant un point comme séparateur, d'une cellule
alphanumérique, voire le nombre et la ou les deux lettre qui le préc èdent.

Ex. de cellule :

Champ de coton, rendement kg 1.265 (soit extraire 1.265) ou
Champ de coton, qualité G 5.6 (extraire G 5.6) ou
Champ de coton, qualité GL 5.6 (extraire GL 5.6)

Merci d'avance- Masquer le texte des messages précédents -


- Afficher le texte des messages précédents -