Calcul aléatoire en VBA Excel

Résolu/Fermé
jimmy1120112 Messages postés 619 Date d'inscription mardi 30 novembre 2010 Statut Membre Dernière intervention 7 décembre 2014 - Modifié par jimmy1120112 le 3/01/2011 à 19:34
jimmy1120112 Messages postés 619 Date d'inscription mardi 30 novembre 2010 Statut Membre Dernière intervention 7 décembre 2014 - 5 janv. 2011 à 13:36
Bonjour,

Je cherche a faire des calcul aléatoire pour entrainer mon p'ti frère au calcul.
(comme moi il a horreur de lire sur une feuil de papier)

Sa fait plusieurs semaines que je suis sur la VBA en générale je trouve bien et vite tout en comprenant mais la j'avoue que je trouve pas de mes propre moins et pas sur le net non plus.

Ses des calcul du genre :

1x2=
2x2=
3x2=
4x2=
ETC...

En aléatoire, pas a la suite.

Est-ce faisable uniquement par VBA ? ses a dire dans des userform.
Enfin avec la commande vba je trouverais bien le moyen de le repasser sur les userform.

Merci beaucoup.
Cordialement.
Jim
A voir également:

8 réponses

lermite222 Messages postés 8724 Date d'inscription dimanche 8 avril 2007 Statut Contributeur Dernière intervention 22 janvier 2020 1 190
3 janv. 2011 à 21:29
Ton Ti frère va pouvoir s'amuser et toi te perfectionner dans la VBA.
La division marche pas bien, j'ai pas le temps d'approfondir.
A voir
A+

1
lermite222 Messages postés 8724 Date d'inscription dimanche 8 avril 2007 Statut Contributeur Dernière intervention 22 janvier 2020 1 190
Modifié par lermite222 le 5/01/2011 à 12:55
Le classeur corrigé
Tu devra remettre tes couleurs (elle me faisaient mal aux yeux :-D)
J'ai simplifié et optimisé ce que tu voulais faire.
Quand à ton erreur essaye un peu de mettre une formule dans Excel avec =3 X 3
Ça doit être =3*3
Tu a changer les signes dans Array.
Reste à faire : Un bouton "Nouvelle série" avec la macro qui efface les données sur la feuille.
Ça je t'ai laissé. (Plus de MFC)
A+
L'expérience instruit plus sûrement que le conseil. (André Gide)
Si tu te cognes à un pot et que ça sonne creux, c'est pas forcément le pot qui est vide. ;-)(Confucius)X
1
lermite222 Messages postés 8724 Date d'inscription dimanche 8 avril 2007 Statut Contributeur Dernière intervention 22 janvier 2020 1 190
3 janv. 2011 à 19:50
Bonjour,
Regarde la fonction Rnd() et Randomise()
A+
0
jimmy1120112 Messages postés 619 Date d'inscription mardi 30 novembre 2010 Statut Membre Dernière intervention 7 décembre 2014 54
Modifié par jimmy1120112 le 3/01/2011 à 21:57
HAHA ! oui ses exactement sa.

Merci beaucoup pour le fichier !

effectivement ses plus compliqué que se que je pensait.
Je savait pas que l'ont pouvais changé la caption d'un label.

Merci encore.

A bientôt sur CCM.
Cordialement.
Jim
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
jimmy1120112 Messages postés 619 Date d'inscription mardi 30 novembre 2010 Statut Membre Dernière intervention 7 décembre 2014 54
Modifié par jimmy1120112 le 3/01/2011 à 23:23
Re,

Petite modif, avec un statistique, une liste montrant les réponses :

bonne : vert
mauvaise : rouge
correction : orange

suivie du calcul correspondant a la réponse.

Mais cela fonctionne avec l'addition et la soustraction mais pas avec la divisions ni la multiplication.

J'arrive pas a trouvé d'où sa viens.
J'ai déjà du mal a me repéré avec les termes employer

Il me surligne :
rep = Int(Evaluate(Formule)) 

Ayant déjà une condition DIM dedans j'ai pas put inséré la mienne pour faire une liste, donc j'ai passer par de la macro.

voici le fichier : A voir ici

Je tourne avec 2007 et il refuse de me le mettre en .xls il m'oblige a mettre .xlsm pour avoir les macro.

J'améliore, parce que sa vas me servir pour plus tard certainement :D

En tout cas, Merci beaucoup du coup de main !
Cordialement.
Jim
0
lermite222 Messages postés 8724 Date d'inscription dimanche 8 avril 2007 Statut Contributeur Dernière intervention 22 janvier 2020 1 190
4 janv. 2011 à 12:29
Je parvient pas à ouvrir ton fichier.
J'ai le 2007 aussi, enrégistre sous..Classeur Excel prenant en charge les macros.
Pas le mettre dans un zip.
Et tu le poste sur CiJoint.FR où le format xlsm est directement pris en charge.

0
jimmy1120112 Messages postés 619 Date d'inscription mardi 30 novembre 2010 Statut Membre Dernière intervention 7 décembre 2014 54
Modifié par jimmy1120112 le 5/01/2011 à 03:03
Bonjour,

Désoler de répondre un peut en retard.

Voici la modif : Sur CiJoint.FR


Je parvient pas à ouvrir ton fichier.

Comme ses un xlsm, vérifie si tu a bien les options de macros activer :

Bouton menu office / Option Excel / Centre de gestion de la confidentialité / Paramètre du Centre de gestion de la confidentialité / Paramètre des Macros / Activer toutes les macros

Je trouve toujours pas le pourquoi du comment ...

Merci beaucoup !

Bonne journée.
Cordialement.
Jim
0
michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 310
5 janv. 2011 à 10:00
Bonjour,

Excusez l'incruste

Pour le fun, un apprentissage des tables de multiplication réalisé par un certain @+Thierry sur le forum XLD ,XL<2007( Avec de sacrées idées de prog VBA !!!)

https://www.cjoint.com/?0bfkakfKFfJ
0
jimmy1120112 Messages postés 619 Date d'inscription mardi 30 novembre 2010 Statut Membre Dernière intervention 7 décembre 2014 54
5 janv. 2011 à 10:44
Merci ;)
Par contre j'ai toujours rep = Int(Evaluate(Formule)) qui me bloque.

Bonne journée.
0
jimmy1120112 Messages postés 619 Date d'inscription mardi 30 novembre 2010 Statut Membre Dernière intervention 7 décembre 2014 54
Modifié par jimmy1120112 le 5/01/2011 à 13:37
SUPER !!

Il y a même les points :)

Merci beaucoup, je vais murir sa aussi.

A bientôt sur CCM je l'espère.
Cordialement.
Jim
0