Extraction d'un nombre décimal d'une plage alphanumérique
2 réponses
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)
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
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
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" <Phi...@swissonline.ch> 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)
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
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
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 -
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 <boisgont...@hotmail.com> 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" <Phi...@swissonline.ch> 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 -
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
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 -