Moyenne TextBox erronée si TextBox vide

L

laetitia90

XLDnaute Barbatruc

• 15 Avril 2011

• #2

Re : Moyenne TextBox erronée si TextBox vide

bonjour mikael2235
sans plus d'infos pas facile
il faut partir sur une boucle
un exemple de base je suppose sur un userform???

Code:

Dim i As Byte, x As Variant
For i = 1 To 10
If Controls("TextBox" & i) <> "" Then x = x + CDbl(Controls("TextBox" & i))
Next i
Label1 = x

 

Vote positif 0 Vote négatif

M

mikael2235

XLDnaute Occasionnel

• 15 Avril 2011

• #3

Re : Moyenne TextBox erronée si TextBox vide

Salut laetitia,

Oui c'est utilisé dans un Userform !

Pour ta boucle, l'idée est là. mais au lieu d'additionner la valeur des TextBox non vides, ça serait mieux qu'il compte le nombre de TextBox non vide.

Ensuite je pourrais faire la somme des TextBox et diviser par ce nombre.

Avec ta solution j'aurai la somme mais je ne serai pas par combien la diviser.

Merci

 

Vote positif 0 Vote négatif

L

laetitia90

XLDnaute Barbatruc

• 15 Avril 2011

• #4

Re : Moyenne TextBox erronée si TextBox vide

re,

Code:

Dim i As Byte, x As Variant, y As Byte
For i = 1 To 10
If Controls("TextBox" & i) <> "" Then x = x + CDbl(Controls("TextBox" & i)): y = y + 1
Next i
Label1 = x / y

 

Vote positif 0 Vote négatif

M

mikael2235

XLDnaute Occasionnel

• 15 Avril 2011

• #5

Re : Moyenne TextBox erronée si TextBox vide

Ok c'est plus simple comme ça,

J'avais mis dans ton code x = x+1

et ensuite j'avais fait Application.Sum
et ensuite la division...

ça permet de gagner quelques lignes



Autrement, sujet différent mais qui concerne la même macro, tu vas peut-être pouvoir m'aider.
Je souhaite mettre ce code dans une Private Sub TextBox1_Afterupdate() et pour éviter de mettre mon code 10 fois.

Peux-t'on faire quelque chose de ce genre ?

Code:

Private Sub TextBox1_Afterupdate(),TextBox2_Afterupdate(),...

Merci

 

Vote positif 0 Vote négatif

L

laetitia90

XLDnaute Barbatruc

• 15 Avril 2011

• #6

Re : Moyenne TextBox erronée si TextBox vide

re, pour cela il faut passer par un module de classe. je te fais un exemple d'ici 10 minutes

 

Vote positif 0 Vote négatif

M

mikael2235

XLDnaute Occasionnel

• 15 Avril 2011

• #7

Re : Moyenne TextBox erronée si TextBox vide

merci laetitia ;-)

 

Vote positif 0 Vote négatif

L

laetitia90

XLDnaute Barbatruc

• 15 Avril 2011

• #8

Re : Moyenne TextBox erronée si TextBox vide

re, plus le temps de rester regarderais en fin de journée🙂

 

Vote positif 0 Vote négatif

L

laetitia90

XLDnaute Barbatruc

• 15 Avril 2011

• #9

Re : Moyenne TextBox erronée si TextBox vide

re,
au sujet du format du resultat j'ai mis 2 chiffres aprés le point si pas un entier
si pas d'importance pour toi. tu ecris simplement comme cela

Code:

User.Label1 = x / y

au lieu de

Code:

If x / y - Int(x / y) = 0 Then User.Label1 = x / y Else User.Label1 = Format(x / y, "0.00")

attention User c'est le nom de mon userform ...adapte
j'ai bloque aussi pour pouvoir taper que des chiffres & point adapte si tu veus une virgule je suis reste sur

Code:

CDbl

accepte point & virgule

Code:

val

accepte que le point

 

Pièces jointes

• class.zip

  17 KB · Affichages: 59
• class.zip

  17 KB · Affichages: 61
• class.zip

  17 KB · Affichages: 64

Vote positif 0 Vote négatif