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

Le
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
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
JB
Le #5232211
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"
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


JB
Le #5232191
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
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"


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 -



Publicité
Poster une réponse
Anonyme