Sujet Précédent Sujet Suivant

Meme macro sur plusieurs feuille Excel

Résolu/Fermé
anocheda Messages postés 54 Date d'inscription jeudi 22 mai 2008 Statut Membre Dernière intervention 17 novembre 2008 - 6 août 2008 à 16:11
m@rina Messages postés 20221 Date d'inscription mardi 12 juin 2007 Statut Contributeur Dernière intervention 16 mai 2024 - 7 août 2008 à 16:37
Bonjour,

J'ai une trentaine de feuilles dans un classeur Excel et sur chacune d'entre elle j'ai une CheckBox1 , Deux label (label1 et label2 ) et deux textbox (1 et 2). C'est objet ont tous le meme nom dans toutes les feuilles.

j'ai la macro suivante :

Private Sub CheckBox1_Click()
On Error GoTo toto

Dim X, Y, Z As Variant, i As Integer

If CheckBox1.Value = True Then
Label2.Visible = True
Label1.Visible = False
Else: CheckBox1.Value = False
Label2.Visible = False
Label1.Visible = True
End If
TextBox1.Value = ActiveSheet.Name
TextBox3.Value = Feuil1.NouvellePeriode.Value
X = CheckBox1.Value
Y = TextBox1.Value

For i = 1 To 120

If Feuil1.Cells(i, 9).Value = Y Then
TextBox2.Value = Feuil1.Cells(i, 10)
Feuil1.Cells(i, 11) = X
End If
Next i

toto:
Err.Clear
Resume Next

End Sub


J'ai mi cette macro sur toute mes feuilles et du coup ca prend pas mal de taille et je trouve pas ca tres propre
est ce qu'il est possible de la mettre que sur une seule page avec une boucle ou quoi que ce soit

Merci

Antoine
A voir également:

3 réponses

Réponse 1 / 3
gbinforme Messages postés 14946 Date d'inscription lundi 18 octobre 2004 Statut Contributeur Dernière intervention 24 juin 2020 4 688
6 août 2008 à 23:32
bonjour

Dans un module, tu mets ta macro en lui donnant un nom : Public Sub commune() par exemple

Dans tes feuilles tu remplaces ta macro ainsi : 
Private Sub CheckBox1_Click()
    Call commune
End Sub

Dans ta macro il faut qualifier tous tes objets : If ActiveSheet.CheckBox1.Value = True Then
et tu n'as plus qu'une macro à maintenir.
0
Réponse 2 / 3
anocheda Messages postés 54 Date d'inscription jeudi 22 mai 2008 Statut Membre Dernière intervention 17 novembre 2008 3
7 août 2008 à 15:55
excelent ca marche

c'est donc a ca que ca sert les modules?

merci
0
Réponse 3 / 3
m@rina Messages postés 20221 Date d'inscription mardi 12 juin 2007 Statut Contributeur Dernière intervention 16 mai 2024 11 282
7 août 2008 à 16:37
Bonjour,

En général les macros se mettent dans les modules. Elles sont ainsi accessibles depuis toutes les feuilles.
On ne met dans une feuille que les macros afférentes à celle.ci, et en particulier les macros événementielles et les macros liées à un contrôle activex.

m@rina
0