test If sur une valeur en %

Version imprimable

29/01/2020, 11h45
BenoitL77

test If sur une valeur en %
Bonjour le forum,
J'ai fait le petit code tout simple si dessous :
Code:

1 2 3 4 5 'test si somme des % de paiement = 100% If Range("t12").Value <> 1 Then MsgBox ("Le total des conditions de paiement est différent de 100%") Exit Sub End If
En T12, j'ai une formule somme qui additionne plusieurs cellules portant des %.
Mon objectif : si la somme de ces pourcentage est différente de 100% : message d'alerte et on sort.
Quand je met 1 en T12 à la place de la formule (format "standard") et 1 dans mon code, ça marche nickel.
Mais avec la formule, il considère toujours que l'on est <> de 1.
j'ai essayé plusieurs format de cellule : standard, nombre, pourcentage. Et plusieurs conditions dans le code : 1, 100 ...sans succès.
Pas le bon format? remplacer Value par autre chose?

Merci de votre aide
Benoit
29/01/2020, 12h04
Philippe Tulliez

Bonjour,
Chez moi, cela fonctionne parfaitement et le format de la cellule contenant les totaux est le même que les cellules référencées pour la somme soit Pourcentage
29/01/2020, 12h14
zoltar_x

Test if

J'ai testé chez moi : ça fonctionne sans problème.
Utilise ton MsgBox pour montrer la valeur de la cellule :

Code:

MsgBox (Range("T12").Value)
29/01/2020, 12h19
Menhir

Citation:

Envoyé par BenoitL77

Quand je met 1 en T12 à la place de la formule (format "standard") et 1 dans mon code, ça marche nickel.
Mais avec la formule, il considère toujours que l'on est <> de 1.

Essaye de mettre 100% (tapé manuelle dans la cellule avec un format de cellule pourcentage).
Si ça fonctionne, c'est que le problème ne vient pas du code mais de la formule.

Il faut faire une différence entre la valeur affichée et la valeur dans la cellule.
Par exemple, si ta formule renvoie 99,99% et que tu as un format "0%" arrondissant le pourcentage à l'entier le plus proche, ta cellule affichera 100% mais ne sera pas égale à 100%.

Essaye de mettre ça dans ton code :

Code:

If Round(Range("T12").Value, 2) <> 1 Then

Si ça fonctionne, c'est qu'il s'agit bien d'un problème d'arrondi.

Cela dit, à ta place, je mettrais plutôt l'arrondi dans la formule Excel plutôt que dans le code VBA.
29/01/2020, 14h21
BenoitL77
A force de tester vos pistes et de bidouiller, j'ai fini par mettre le 1 entre "" :
Code:

1 2 3 4 If Range("t12").Value <> "1" Then MsgBox ("Le total des conditions de paiement est différent de 100%") Exit Sub End If
Et ça marche !.

Merci à tous et bon après midi
Benoit
31/01/2020, 13h24
Patrice740

Citation:

Envoyé par Menhir

Essaye de mettre 100% (tapé manuelle dans la cellule avec un format de cellule pourcentage).
Si ça fonctionne, c'est que le problème ne vient pas du code mais de la formule.

Citation:

Envoyé par BenoitL77

A force de tester vos pistes et de bidouiller, j'ai fini par mettre le 1 entre ""

Ça confirme l'hypothèse de Menhir (:coucou:), le problème ne vient pas du code mais de la formule (que tu n'est pas détaillé) : son résultat est un texte au lieu d'un nombre !