Discussion :

[Chipsus]

Bonjour,

J'ai dans mon classeur 4 feuilles, dont 3 sur lesquels j'ai installé des boutons qui mettent à jour un tableau de données.
La quatrième feuille est une feuille bilan. je souhaiterais savoir s'il était possible qu'un bouton de la 4ème feuille renvoie aux boutons des autres feuilles.
En gros en un click sur la quatrième feuille, je veux cliquer sur les boutons de chaque feuille.
Je ne suis pas sûr d'être très clair...

Voila le sub présent sur chacune des trois feuilles.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Sub CommandButton1_Click()
test1
End Sub

test1 va en fait mettre à jour le tableau. test 1 est dans module.

Sur la quatrieme feuille j'aimerai avoir une fonction sub du même genre.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Sub CommandButton1_Click()
 call test1
End Sub

Mais je veux que le test 1 soit appliqué aux trois autres feuilles. que faut il que j'ajoute ou que je fasse ?

Merci

[sabzzz]

bonjour Chipsus,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Sub CommandButton1_Click()
call test1
call test2
call test3
End Sub

[Minick]

Salut,

Si j'ai bien compris et si Test1 est dans un module standard:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Option Explicit
 
Sub LanceTest()
    Dim Feuilles As Variant
    Dim Cpt As Byte
 
    Feuilles = Array("Feuil1", "Feuil2", "Feuil3")
 
    Application.ScreenUpdating = False
    For Cpt = 0 To UBound(Feuilles)
        Sheets(Feuilles(Cpt)).Activate
        Call Test1
    Next Cpt
    Application.ScreenUpdating = True
End Sub