Extraction de valeur numériques
FerméFrenchie83 Messages postés 2240 Date d'inscription lundi 6 mai 2013 Statut Membre Dernière intervention 11 août 2023 - 18 déc. 2022 à 08:10
- Extraction de valeur numériques
- Logiciel gratuit calcul valeur nutritionnelle - Télécharger - Santé & Bien-être
- Jonas tape 125 sur le pavé numérique de son clavier mais rien n'apparaît à l'écran. donnez le numéro de la touche sur laquelle elle doit appuyer pour que le pavé numérique fonctionne. - Forum Windows
- Excel renvoyer la valeur d'une cellule en fonction d'une autre - Forum Logiciels
- Liste de valeur excel - Guide
- Donner une valeur numérique à un texte dans excel - Forum Excel
3 réponses
14 déc. 2022 à 16:55
Bonjour,
On pourrait couper le texte au premier blanc =STXT(A1;1;CHERCHE(" ";A1)-1)
sachant que 0.54 n'est pas un numérique sur excel en français, et que >1 non plus
Bonsoir, merci pour votre réponse, oui c'est bien le problème que je rencontre des valeurs numériques simple il n'y pas de problème en revanche j'ai besoin d'impliquer 3 caractères non numériques. Concernant le séparateur décimal celui ci est converti automatiquement lors de l'importation des données.
Je ne trouve pas de solutions pour avoir un résultat numériques en incluant "<,>,-". Faut il peut-être une macros ? Si cela est possible en VB
Cordialement
Modifié le 14 déc. 2022 à 18:58
< et > ne sont pas des indicateurs que l'on peut avoir dans une cellule avec une valeur numérique. Ils ne peuvent donc figurer que dans une chaine de caractère
Le - oui est bien inclus dans dans une valeur numérique et si excel est paramétré en français, il faut convertir le point en virgule
18 déc. 2022 à 08:10
Bonjour,
Avec un bout de code en VBA
https://www.cjoint.com/c/LLshjyXbhKk
le code:
Sub Extraction()
Dim DerLig As Long, i As Long
Application.ScreenUpdating = False
DerLig = Range("A" & Rows.Count).End(xlUp).Row
For i = 1 To DerLig
With CreateObject("vbscript.regexp")
.Pattern = "([A-Z\; /])"
.IgnoreCase = True
.Global = True
Cells(i, "B") = .Replace(Cells(i, "A"), " ")
End With
Next i
End Sub
Cdlt
