Meme macro sur plusieurs feuille Excel
Résolu
anocheda
Messages postés
54
Date d'inscription
Statut
Membre
Dernière intervention
-
m@rina Messages postés 23905 Date d'inscription Statut Contributeur Dernière intervention -
m@rina Messages postés 23905 Date d'inscription Statut Contributeur Dernière intervention -
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
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:
- Meme macro sur plusieurs feuille Excel
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Liste déroulante excel - Guide
- Feuille de pointage excel - Télécharger - Tableur
- Formule moyenne excel plusieurs colonnes - Guide
- Word et excel gratuit - Guide
3 réponses
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 :
Dans ta macro il faut qualifier tous tes objets : If ActiveSheet.CheckBox1.Value = True Then
et tu n'as plus qu'une macro à maintenir.
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.
