Discussion :

[BenoitL77]

Bonjour le forum,
J'ai fait le petit code tout simple si dessous :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[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

[zoltar_x]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

MsgBox (Range("T12").Value)

[Menhir]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[BenoitL77]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Patrice740]

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.

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

Ça confirme l'hypothèse de Menhir (), 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 !