Précédent   Forum des professionnels en informatique > Logiciels > Microsoft Office > Excel
Excel Forum d'entraide sur Excel. Vos questions sur les fonctions, formules, manipulations, et tout sujet qui ne trouve pas sa place dans un sous-forum.
Partagez cette discussion sur d'autres réseaux sociaux : Viadeo Twitter Google Facebook Digg Delicious MySpace Yahoo
Réponse Proposer ce sujet en actualité
 
Outils de la discussion
Publicité
'
Vieux 08/05/2011, 17h29   #1
Membre du Club
 
Homme
Retaité
Inscription : août 2010
Messages : 40
Détails du profil
Informations personnelles :
Sexe : Homme
Âge : 61
Localisation : France

Informations professionnelles :
Activité : Retaité

Informations forums :
Inscription : août 2010
Messages : 40
Points : 9
Points : 9
Par défaut comment faire pour que ce soit une division.

Bonjour le forum et bon dimanche à vous, voilà j'ai récupéré ce fichier tres sympa dont je ne connais pas l'auteur, j'aimerai savoir comment changer de l'addition en division ou en soustraction. quel code il faut changer. Merci de votre savoir. Dan
Danaxia est déconnecté   Envoyer un message privé Réponse avec citation 00
Vieux 08/05/2011, 17h48   #2
Rédacteur

 
Avatar de Maxence HUBICHE
 
Homme Maxence HUBICHE
Formateur et Développeur - Conseil en Informatique
Inscription : juin 2002
Messages : 3 687
Détails du profil
Informations personnelles :
Nom : Homme Maxence HUBICHE
Âge : 42
Localisation : France, Val d'Oise (Île de France)

Informations professionnelles :
Activité : Formateur et Développeur - Conseil en Informatique

Informations forums :
Inscription : juin 2002
Messages : 3 687
Points : 6 516
Points : 6 516
Envoyer un message via MSN à Maxence HUBICHE Envoyer un message via Skype™ à Maxence HUBICHE
multiplication
Code :
1
2
3
4
5
6
7
8
9
10
11
  N2 = Int((100 * Rnd) + 1) ' Génération d'un nombre au hasard N2
  Reponse = InputBox("Combien font " & N1 & " x " & N2 & " ?")
  ' Si le joueur répond correctement :
  If Reponse = N1 * N2 Then
    MsgBox "Bonne réponse !"
    Score = Score + 1 ' On augmente son score s'il répond bien
  Else ' Sinon...
    ' Sinon, son score ne bouge pas...
    MsgBox "Désolé... la bonne réponse était " & N1 * N2
  End If
  Next ' Fin du For
division
Code :
1
2
3
4
5
6
7
8
9
10
11
  N2 = Int((100 * Rnd) + 1) ' Génération d'un nombre au hasard N2
  Reponse = InputBox("Combien font " & N1 & " / " & N2 & " ?")
  ' Si le joueur répond correctement :
  If Reponse = N1 / N2 Then
    MsgBox "Bonne réponse !"
    Score = Score + 1 ' On augmente son score s'il répond bien
  Else ' Sinon...
    ' Sinon, son score ne bouge pas...
    MsgBox "Désolé... la bonne réponse était " & N1 / N2
  End If
  Next ' Fin du For
etc.
__________________
1formaxion, une formation de qualité, des formateurs compétents
Mes tutoriels et vidéos :
Tableaux croisés dynamiques, Access les Bases, et les autres !
Maxence HUBICHE est déconnecté   Envoyer un message privé Réponse avec citation 00
Vieux 08/05/2011, 17h55   #3
Membre du Club
 
Homme
Retaité
Inscription : août 2010
Messages : 40
Détails du profil
Informations personnelles :
Sexe : Homme
Âge : 61
Localisation : France

Informations professionnelles :
Activité : Retaité

Informations forums :
Inscription : août 2010
Messages : 40
Points : 9
Points : 9
Par défaut pour la -

Citation:
Envoyé par Maxence HUBICHE Voir le message
multiplication
Code :
1
2
3
4
5
6
7
8
9
10
11
  N2 = Int((100 * Rnd) + 1) ' Génération d'un nombre au hasard N2
  Reponse = InputBox("Combien font " & N1 & " x " & N2 & " ?")
  ' Si le joueur répond correctement :
  If Reponse = N1 * N2 Then
    MsgBox "Bonne réponse !"
    Score = Score + 1 ' On augmente son score s'il répond bien
  Else ' Sinon...
    ' Sinon, son score ne bouge pas...
    MsgBox "Désolé... la bonne réponse était " & N1 * N2
  End If
  Next ' Fin du For
division
Code :
1
2
3
4
5
6
7
8
9
10
11
  N2 = Int((100 * Rnd) + 1) ' Génération d'un nombre au hasard N2
  Reponse = InputBox("Combien font " & N1 & " / " & N2 & " ?")
  ' Si le joueur répond correctement :
  If Reponse = N1 / N2 Then
    MsgBox "Bonne réponse !"
    Score = Score + 1 ' On augmente son score s'il répond bien
  Else ' Sinon...
    ' Sinon, son score ne bouge pas...
    MsgBox "Désolé... la bonne réponse était " & N1 / N2
  End If
  Next ' Fin du For
etc.
Merci pour ta réponse je vais essayer maintenant je dirai si j'ai bien compris et merci encore.

Et por faire la soustraction je n'y arrive pas, désolé de redemander votre aide. Merci. Dan
Danaxia est déconnecté   Envoyer un message privé Réponse avec citation 00
Vieux 08/05/2011, 18h11   #4
Rédacteur

 
Avatar de Maxence HUBICHE
 
Homme Maxence HUBICHE
Formateur et Développeur - Conseil en Informatique
Inscription : juin 2002
Messages : 3 687
Détails du profil
Informations personnelles :
Nom : Homme Maxence HUBICHE
Âge : 42
Localisation : France, Val d'Oise (Île de France)

Informations professionnelles :
Activité : Formateur et Développeur - Conseil en Informatique

Informations forums :
Inscription : juin 2002
Messages : 3 687
Points : 6 516
Points : 6 516
Envoyer un message via MSN à Maxence HUBICHE Envoyer un message via Skype™ à Maxence HUBICHE
ok... alors, essaie de remarquer ce qui change dans les deux codes ci-dessus.
En tout, il y a 3 différences...
Et comme c'est le week-end => détente ! tu vas jouer au jeu des 3 différences.
Vas-tu les trouver ?
__________________
1formaxion, une formation de qualité, des formateurs compétents
Mes tutoriels et vidéos :
Tableaux croisés dynamiques, Access les Bases, et les autres !
Maxence HUBICHE est déconnecté   Envoyer un message privé Réponse avec citation 00
Vieux 08/05/2011, 18h27   #5
Membre du Club
 
Homme
Retaité
Inscription : août 2010
Messages : 40
Détails du profil
Informations personnelles :
Sexe : Homme
Âge : 61
Localisation : France

Informations professionnelles :
Activité : Retaité

Informations forums :
Inscription : août 2010
Messages : 40
Points : 9
Points : 9
Citation:
Envoyé par Maxence HUBICHE Voir le message
ok... alors, essaie de remarquer ce qui change dans les deux codes ci-dessus.
En tout, il y a 3 différences...
Et comme c'est le week-end => détente ! tu vas jouer au jeu des 3 différences.
Vas-tu les trouver ?
Ok Je vais y arriver et bonne soirée à toi. Dan
Danaxia est déconnecté   Envoyer un message privé Réponse avec citation 00
Réponse Proposer ce sujet en actualité Cette discussion est résolue.
Outils de la discussion



Fuseau horaire GMT +2. Il est actuellement 12h53.


 
 
 
 
Partenaires

Hébergement Web