Meme macro sur plusieurs feuille Excel Résolu/Fermé

Question

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

gbinforme · Answer

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.

anocheda · Answer

excelent ca marche  

c'est donc a ca que ca sert les modules?

merci

m@rina · Answer

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

Meme macro sur plusieurs feuille Excel

3 réponses

Discussions similaires