Sortir d'une boucle
Bonjour à tous. j'espère être le bienvenu parmi vous.
J'ai crée une boucle pour calculer la moyenne et j'ai utilisé pour ce fait des textbox(1,2,3....) dont la moyenne sera calculée dans un autre textbox(7), en évitant bien sûr les vides. Voici mon code:
Dim a As Byte, x As Variant, y As Byte
For a = 1 To 6
'calculer la somme des textbox et diviser par le nombre de textbox non vides
If Controls("TxtNote_" & a) <> "" Then x = x + CDbl(Controls("TxtNote_" & a)): y = y + 1
Next a
TxtMoy_1 = x / y
ça marche très bien sauf que lorsque toutes les textbox sont vides ça bloque.
En plus, je désire que la moyenne soit affichée avec deux décimales.
Merci pour l'aide.
Bonjour et bienvenue
remplace ta formule de moyenne par ceci
if y>0 then TxtMoy_1 = format (x / y,"0.00"")Bonjour,
Sans tester, essaie de vérifier ta variable "y"
Style :
if y = 0 then Exit SubPour le format du textbox_1, essaie ainsi :
TxtMoy_1 = format(x / y, "0.00")Peut-être...
Bon courage
Bonjour à tous.
merci pour l'aide. Mon problème est résolu.