XL 2010 problème de format nombre/texte

Sheldor · 25 Février 2021

bonjour,
j'ai une vérification qui tourne sur un fichier de saisie depuis des années et qui consiste à vérifier si la valeur 1 est supérieur à la valeur 2 associée

les cellules sont protégées et en format nombre dans le fichier de saisi fourni aux utilisateurs qui entre les valeurs 1 et 2

pour la première fois j'ai un problème sur trois valeurs: excel les considère comme du texte et me dit du coup qu'elle sont supérieur à la valeur 2 associée

je ne comprends pas pourquoi et ne comprenant pas je ne trouve pas de solution, je me demande si je rate un truc évident ou si il n'y a pas de solution

les données ne viennent pas de format exotique passant par le web ou autre c'est une saisie manuelle directement dans excel, je ne vois pas d'espace ni de caractères cachés, si je revalide la valeur avec entrée le problème disparaît mais ça ne solutionne pas mon problème

très grand merci par avance de vos lumières

nico

Rouge · 25 Février 2021

Bonjour,

Vos données en colonne A (celles en orange) ont bien été saisies sous forme de texte, il faut les ressaisir au format nombre ou standard.

Sinon avec la macro :
Sub Bouton26_Cliquer()
For i = 3 To 9
If CDbl(Cells(i, 1)) > CDbl(Cells(i, 2)) Then Cells(i, 3) = "oui"
Next i
End Sub

sylvanu · 25 Février 2021

Bonjour Nicopec, Rouge,
S'agissant d'un outil, le problème est que l'utilisateur peut refaire l'erreur.
Le plus simple à mes yeux pour contourner le problème est de transformer les chaines en nombres avec :

VB:

If Val(Cells(i, 1)) > Val(Cells(i, 2)) Then

Sheldor · 25 Février 2021

bonjour Rouge, Sylvanu,

merci pour vos messages

j'imagine que l'utilisateur a fait une saisie ailleurs dans un format texte pour le coller dans le fichier de saisie en passant outre les validations au format décimal...

mais du coup comment détecter qu'il "considère" que c'est du texte car je pensais que IsNumeric(cells(4,1)) me renverrait false mais pas du tout... ce qui est une grande certitude qui vient de s'effondrer...

merci
nico

Laurent78 · 25 Février 2021

nicopec à dit:
bonjour Rouge, Sylvanu,

merci pour vos messages

j'imagine que l'utilisateur a fait une saisie ailleurs dans un format texte pour le coller dans le fichier de saisie en passant outre les validations au format décimal...

mais du coup comment détecter qu'il "considère" que c'est du texte car je pensais que IsNumeric(cells(4,1)) me renverrait false mais pas du tout... ce qui est une grande certitude qui vient de s'effondrer...

merci
nico

Bonjour à Tous,
...et pour la fonction Excel (pas en VBA) ESTNUM(A4) renvoie bien FAUX, du coup, peut-être une MFC pour alerter d'une "erreur" de saisie

sylvanu · 25 Février 2021

Re,
Après essais, il s'avère qu'avant de regarder si la valeur est numérique, il évalue si la valeur pourrait être numérique, et si c'est le cas il prend cette valeur transformée. Il est futé.

En fait il fait :
Valeur=Val(Cellule)
Isnumeric(Valeur)

Par ex :
a1=3 isnumeric=VRAI
a1='3 ( donc commentaire ) isnumeric=VRAI
a1=3 en format texte, isnumeric=VRAI

Sheldor · 25 Février 2021

j'ai choisi de ne pas mettre de MEFC car il y a trop de colonnes et de lignes, le fichier serait trop ralenti

si IsNumeric n'arrive pas à le détecter que me reste-t-il... ?

sylvanu · 25 Février 2021

?
Vous avez essayez le post #3 ? Je l'ai testé, et ça marche.

Sheldor · 25 Février 2021

je voulais dire: si je veux détecter une valeur non numérique j'utilise IsNumeric mais dans ce cas il n'arrive pas à détecter que ce n'est pas numérique du coup je me demandais s'il y avait un autre moyen

après oui merci pour Val() que je ne connaissais pas

sylvanu · 25 Février 2021

J'ai l'impression qu'en tout début le VBA va évaluer si cela pourrait être numérique, et si ça l'est il convertit.
Je n'ai rien trouvé permettant de lever l'ambiguïté, je ne suis pas arrivé à tricher.
Mais peut être que cela existe.

Laurent78 · 25 Février 2021

ou faire une boucle à l'ouverture du classeur
Cells(i, 1) = Val(Cells(i, 1))

pierrejean · 25 Février 2021

Bonjour à tous
Autre solution

VB:

Sub Bouton26_Cliquer()
For i = 3 To 9

If Cells(i, 1) * 1 > Cells(i, 2) * 1 Then Cells(i, 3) = "oui"

Next i

End Sub

et plus prudent

VB:

Sub Bouton26_Cliquer()
For i = 3 To 9
If Cells(i, 1) * 1 > Cells(i, 2) * 1 Then
   Cells(i, 3) = "oui"
Else
   Cells(i, 3) = ""
Next i
End Sub

Sheldor · 25 Février 2021

merci à tous pour votre aide et vos éclaircissements, cette vérif fait partie d'un ensemble de vérifs et j'ai construit mon code en testant si la valeur est numérique ou non avant de décider quoi en faire mais je vais peut être devoir reconsidérer cette approche

excellente journée à vous

Laurent78 · 25 Février 2021

j'ai une autre idée :
créer une fonction personnalisée :

VB:

Function EstNumMaisChaine(c As Range)
   Application.Volatile
   EstNumMaisChaine = (VarType(c.Value) = vbString) And IsNumeric(c)
End Function

Sheldor · 26 Février 2021

bonjour Laurent78
je viens de tester, c'est génial, merci beaucoup
pour ma culture que fait "application.volatile" ?
merci encore
nico

XL 2010 problème de format nombre/texte

Sheldor

XLDnaute Occasionnel

Pièces jointes

Rouge

XLDnaute Impliqué

sylvanu

XLDnaute Barbatruc

Sheldor

XLDnaute Occasionnel

Laurent78

XLDnaute Occasionnel

sylvanu

XLDnaute Barbatruc

Sheldor

XLDnaute Occasionnel

sylvanu

XLDnaute Barbatruc

Sheldor

XLDnaute Occasionnel

sylvanu

XLDnaute Barbatruc

Laurent78

XLDnaute Occasionnel

pierrejean

XLDnaute Barbatruc

Sheldor

XLDnaute Occasionnel

Laurent78

XLDnaute Occasionnel

Sheldor

XLDnaute Occasionnel

Discussions similaires