Créer une macro pour additionner deux chiffres

Version imprimable

13/10/2015, 10h05
vikidab

1 pièce(s) jointe(s)

Créer une macro pour additionner deux chiffres

Bonjour a tous

je cherche simplement a créer une sorte de programme pour ma fille pour la familiariser avec l’addition en CP/CE1.
alors mon petit projet consiste a générer deux chiffres aléatoirement et les mettre dans deux cases et elle va mettre le total dans une troisième case.

si la réponse est bonne j'aime bien lancer un son(1) enregistré sur mon pc en préalable et si c'est faux il lance un son(2).

merci.

voici une photo de ce que j'ai réalisé pour le moment ( j'avoue que j'ai rien fais :roll: )Pièce jointe 190057
13/10/2015, 11h04
SfJ5Rpw8

Bonjour,

Pour écrire ou lire dans tes text-box ... et pour rajouter un controle bouton pour affichage du résultat :

http://silkyroad.developpez.com/VBA/...serForm/#LII-E

pour le son : Comment jouer un fichier audio ou musical depuis excel ?

Voilà commence déjà avec cela et reviens nous voir si tu bloque..

Bonjour,

Un début de piste.

La fonction pour générer des chiffres aléatoires

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
 
 
Sub aleatoire()
 
    'CHIFFRE 1--------------------------------------------------------------------------------------------
 
     'Initialiser le générateur de nombres aléatoires
     '=> Randomize : à ajouter avant d'utiliser Rnd pour obtenir des valeurs complètement aléatoires
     Randomize
 
     'Nombre aléatoire entier entre 1 et 10 :
     nombre_aleatoire = Int(10 * Rnd) + 1
 
     Me.TextBox_c1 = nombre_aleatoire 'TextBox_c1 correspond à une zone de texte
 
     'CHIFFRE 2--------------------------------------------------------------------------------------------
 
    'Initialiser le générateur de nombres aléatoires
     '=> Randomize : à ajouter avant d'utiliser Rnd pour obtenir des valeurs complètement aléatoires
     Randomize
 
     'Nombre aléatoire entier entre 1 et 10 :
     nombre_aleatoire = Int(10 * Rnd) + 1
 
     Me.TextBox_c2 = nombre_aleatoire 'TextBox_c2 correspond à une zone de texte
 
End Sub

Il faut créer un bouton cmd_generer_chiffres pour appeler la procédure aleaoire

Code:

1
2
3
4
5
 
 
Private Sub cmd_generer_chiffres_Click()
    aleatoire
End Sub

Créer un bouton cmd_valider permettant de valider la réponse

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
 
Private Sub cmd_valider_Click()
 
Dim resultat_attendu As Integer
Dim resultat_saisi As Integer
 
resultat_attendu = Int(Me.TextBox_c1) + Int(Me.TextBox_c2)
resultat_saisi = Me.TextBox_result 'TextBox_result correspond à une zone de texte
 
If resultat_saisi <> resultat_attendu Then
    MsgBox "Dommage !!!!" & "le résultat attendu est:" & resultat_attendu
Else
    MsgBox "bravo !!!!"
End If
 
 
 
End Sub

Cordialement

14/10/2015, 10h55
vikidab

merci

bonjour est merci a vous tous , fin a vous deux pour le moment ( bbil et goldstar) je reviendrais vers vous pour la suite de mon Projet :lol:.

Cordialement.

1 pièce(s) jointe(s)

Bonjour à tous,

Avec un formulaire comme ça :
Pièce jointe 190173

Tu peux déjà mettre dans un module standard le code suivant :

Code:

1
2
3
4
5
6
7
8
9
Declare Function sndPlaySound32 Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long
 
Sub Jouer_Son_Bonne_Reponse()
    Call sndPlaySound32("C:\Users\***\Desktop\Speech Disambiguation.wav", 0)
End Sub
 
Sub Jouer_Son_mauvaise_Reponse()
    Call sndPlaySound32("C:\Users\***\Desktop\Speech Sleep.wav", 0)
End Sub

C'est pour jouer les sons en cas de bonne ou mauvaise réponse.
Tu dois juste adapter le chemin vers les fichiers Wav de ton PC.

Ensuite une fonction simple pour tester la réponse :

Code:

1
2
3
Function Tester_Response(x As Long, y As Long, z As Long) As Boolean
    Tester_Response = (x + y = z)
End Function

Et pour finir dans le code de ton UF :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Sub New_Add()
    With UserForm1
        .Label1 = Application.WorksheetFunction.RandBetween(1, 10)
        .Label2 = Application.WorksheetFunction.RandBetween(1, 10)
        .TextBox1 = ""
    End With
End Sub
 
Private Sub CommandButton1_Click()
    With UserForm1
        If Tester_Response(.Label1, .Label2, Val(.TextBox1)) Then
            Call Jouer_Son_Bonne_Reponse
            MsgBox "Bonne réponse !" & vbCr & vbCr & .Label1 & " + " & .Label2 & " = " & .TextBox1
            Call New_Add
        Else
            Call Jouer_Son_mauvaise_Reponse
            .TextBox1 = ""
        End If
    End With
End Sub
 
Private Sub UserForm_Initialize()
    Call New_Add
End Sub

Application.WorksheetFunction.RandBetween(1, 10) c'est pour un nombre aléatoire entre 1 et 10, tu peux bien sur changer les bornes.

Autre petite chose pour obliger les chiffres dans le TextBox de l'UF :

Code:

1
2
3
4
5
6
7
8
9
10
Private Sub TextBox1_Change()
    On Error Resume Next
    With UserForm1
        If IsNumeric(.TextBox1) Then
            'rien
        Else
            .TextBox1 = Left(.TextBox1, Len(.TextBox1) - 1)
        End If
    End With
End Sub

14/10/2015, 14h16
vikidab

merci antonysansh

Bonjour

Alors la .... Merci pour le coup de main, fin il me reste rien a faire que copier-coller le code est l'adapter a mes fichier son.:zoubi:
Franchement merci, je suis au travail, de que je entre je vous tien au courant.

1 pièce(s) jointe(s)

Bonjour vikidab,

Le code n'est surement pas en cause, chez moi il tourne très bien.

Mais la tu dois gérer deux types de module (un formulaire et un module standard) et le code doit être placé au bon endroit.

Citation:

If Tester_Response(.Label1, .Label2, Val(.TextBox1)) Then avec le message suivant: Erreur de compilation Sub ou Function non définie !!!

Excel te dit ici que la fonction Tester_Reponse et ben il ne connait pas. C'est normale elle n'existe pas. Il faut l'écrire et la mettre dans un module standard.

Citation:

erreur de compilation: seuls des commentaires peuvent apparaitre apres End Sub, End Function ou End Perperty.

et il sélectionne en bleu la ligne ( Declare Function sndPlaySound32 Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long )

Ici on déclare une fonction qui permet de jouer un son. C’est un DLL qui est installé avec Windows normalement.
Cette déclaration doit impérativement se faire en tête de module.

En résumé tu as un projet qui ressemble a ça :
Pièce jointe 190234
Dans Userform1 tu dois avoir ton formulaire et le code suivant :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 Option Explicit Sub New_Add() With UserForm1 .Label1 = Application.WorksheetFunction.RandBetween(1, 10) .Label2 = Application.WorksheetFunction.RandBetween(1, 10) .TextBox1 = "" End With End Sub Private Sub CommandButton1_Click() With UserForm1 If Tester_Response(.Label1, .Label2, Val(.TextBox1)) Then Call Jouer_Son_Bonne_Reponse MsgBox "Bonne réponse !" & vbCr & vbCr & .Label1 & " + " & .Label2 & " = " & .TextBox1 Call New_Add Else Call Jouer_Son_mauvaise_Reponse .TextBox1 = "" End If End With End Sub Private Sub TextBox1_Change() On Error Resume Next With UserForm1 If IsNumeric(.TextBox1) Then 'rien Else .TextBox1 = Left(.TextBox1, Len(.TextBox1) - 1) End If End With End Sub Private Sub UserForm_Initialize() Call New_Add End Sub
Il faut bien sur remplacer les noms des TextBox, Label, CommandButton et de l'UserForm par leurs noms dans ton projet et évidement que tu ais choisis comme moi 2 labels pour les nombres à additionner et un TextBox pour la réponse.

Dans le module1 le code :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 Option Explicit Declare Function sndPlaySound32 Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long Sub Jouer_Son_Bonne_Reponse() Call sndPlaySound32("C:\Users\CARONAT\Desktop\Speech Disambiguation.wav", 0) End Sub Sub Jouer_Son_mauvaise_Reponse() Call sndPlaySound32("C:\Users\CARONAT\Desktop\Speech Sleep.wav", 0) End Sub Function Tester_Response(x As Long, y As Long, z As Long) As Boolean Tester_Response = (x + y = z) End Function
Avec le tout dans ton projet et au même endroit ça devrait fonctionner.

21/10/2015, 14h46
vikidab

Merciiiii

Ben mervi encore une fois. Sa tourne a merveille.
Du coup je compte faire le tableau d'addition .
Une dorte de tableau vide qu'elle va remplir au fur et à mesure. Parril pour une bonnr réponse un bruit 1 et l'inverse un bruit 2.

Merci encore.
21/10/2015, 15h23
antonysansh

Bonjour vikidab,

Content d'avoir pu aider.
Pense à passer le poste en :resolu:

Bonne journée