TABLES DE MULTIPLICATION

Commentaire de Le Pivert le 04/09/2008 15:35:07

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

Commentaire de bigfish_le vrai le 05/09/2008 20:58:22

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+