variable label entre deux user

[Dennnisss]

Bonjour a tous

J'ai un userform qui fait des excercise de calcul et en terminant sur le dernier textbox il a une autre user qui ouvre et qui doit donnees le nombre de reponse bonne et fausse , j'ai mit les variables dans un module cataloguer public mais je n,ai pas reussi

alors besoin de votre aide svp

merci dennnisss 😉 😉

 

[Lii]

Re : variable label entre deux user

Bonsoir,

Dans ton module1, remplace
Dim bonne As Integer, fausse As Integer
par Public bonne As Integer, fausse As Integer.

Pour gérer le singulier-pluriel, le code de l'USF3 peut être, avec 2 labels seulement,

Private Sub UserForm_Initialize()
plur1 = IIf(bonne < 2, "", "s")
plur2 = IIf(fausse < 2, "", "s")
Label2 = bonne & " réponse" & plur1 & " bonne" & plur1 & "."
Label3 = fausse & " réponse" & plur2 & " fausse" & plur2 & "."
End Sub

 

[Dennnisss]

Re : variable label entre deux user

Salut Lii

Oui ton code je l'ai mis en place et il est Ok
Mais je m'apppercoit que j'ai un autre probleme

Private Sub TextBox1_Change()
reponse1 = Range("K24")
If Len(TextBox1.Value) = 2 Then TextBox2.SetFocus
If reponse1 = TextBox1.Value Then
Label18 = "Bravo"
bonne = bonne + 1
Else
Label18 = "Erreur"
fausse = fausse + 1
End If
End Sub

dans ce code je lui dit qu'apres deux chiffre tu change de textbox et il le fait bien sauf qu'il lit aussi le premier chiffre que j'inscrit et il mais une erreur de calcul si la reponse est de deux chiffres et il additionne les fautes
soit que je ne met pas le test des bonnes au bon endroit dans mon code ou je definie mal ce code

If Len(TextBox1.Value) = 2 Then TextBox2.SetFocus

alors merci a toi Lii et attend vos solutions svp

merci dennnisss 😉 😉

 

[Lii]

Re : variable label entre deux user

Bonjour,

A voir (avec quelques modifications).