Tables de multiplication

Soyez le premier à donner votre avis sur cette source.

Vue 20 717 fois - Téléchargée 922 fois

Description

Pour faire réviser les tables aux tout petits. En VBA Excel. Une table par feuille, dans le sommaire vous avez accès à toutes les feuilles en n'oubliant pas d'activer les boutons "Résultats".Un bouton "Plein Ecran"(supprime les MenuBars).Les bonnes réponses s'inscrivent en Vert; et les mauvaises en Rouge. Vous passez automatiquement à la feuille suivante si vous répondez correctement à toutes les opérations et le bouton "Résultats" s'active.Vous pouvez chronométrer le temps.Un bouton de scores en fin de partie vous indique les bonnes réponses.Vous pouvez choisir la couleur du fond d'écran pour toutes les feuilles.

Conclusion :


Merci à http://frederic.sigonneau.free.fr/ pour les codes de suppression de menuBars, d'accès aux feuilles et de sélection de toutes les feuilles.

Codes Sources

A voir également

Ajouter un commentaire Commentaires
Messages postés
7444
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
26 juillet 2021
125
Je te remercie de tous ces conseils que je vais m'efforcer de mettre en pratique. J'en profite pour te féliciter pour ton dernier programme " Un graphique 3 D tout en mouvement" qui est réellement bluffant.
Messages postés
1835
Date d'inscription
vendredi 13 mai 2005
Statut
Membre
Dernière intervention
20 novembre 2013
10
Un exemple de passage de parametre :

voici le code modifié de ton module1 :

'Solutions L Longre, mpfe
'"Suppression" (je mets des guillemets !) :
Sub CacheBOutils()
Dim CmdB As CommandBar
For Each CmdB In Application.CommandBars
CmdB.Enabled = False
Next CmdB
End Sub

'Résurrection:
Sub AfficheBOutils()
Dim CmdB As CommandBar
For Each CmdB In Application.CommandBars
CmdB.Enabled = True
Next CmdB
End Sub
'sélectionne une feuille si elle existe, la crée si elle n'existe pas

Sub SelectFeuille(Nom$)
On Error Resume Next
Worksheets(Nom).Select
If Err <> 0 Then Worksheets.Add.Name = Nom
End Sub 'fs

Sub Test(NumTest As Long)
SelectFeuille ("Table des " & NumTest)
End Sub

Sub Test_11()
SelectFeuille ("Presentation")
End Sub

apres cette modif pour activer les feuilles de test il suffit de le faire comme suit:

par exemple pour appeler le test 2 depuis le test 1 tu remplaces

test_2 par

test(2) 'la valeur entre parentheses sera passée a la sub Test qui elle meme la recuppere dans la variable NumTest

Et voila ! pas plus compliqué !

A+
Messages postés
1835
Date d'inscription
vendredi 13 mai 2005
Statut
Membre
Dernière intervention
20 novembre 2013
10
Salut,

l'idée est bonne mais...

Excel est un tableur alors pourquoi utiliser des controles textbox dans les feuilles ? Cela aurais considerablement diminué la taille du fichier d'utiliser les cellules.

Apprend à boucler sur les controles cela te permetra de diminuer la taille du code.

Apprend à passer des valeurs en parametre à tes sub cela te permetra aussi de considerablement reduire le code.

Pourquoi ne pas generer, toujours dans la meme feuille, les differentes tables plutot que d'utiliser une feuille par table ?
cela aurait en plus l'avantage de ne pas etre limité et de pouvoir generer une infinité de table.

A+
Messages postés
7444
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
26 juillet 2021
125
NB: avant de cliquer sur un bouton, allez dans la table des 10 où tout est expliqué. En raison de la taille du fichier j'ai supprimé la table des 10, mais pas le code ce qui fait qu'il manque des boutons.Si vous voulez la faire fonctionner comme cela allez dans les feuilles 1 et 3 et supprimé Feuil11.CommandButton1.Enabled = True.
Excusez le contre temps

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.