Re : Executer macro en feuille2 pour feuille1
Bonsoir
Voila mon fichier est pratiquement fini...
Un seul point :
Dans module 2 , J'ai seulement accès par (Outils/Macro/Macros.../Modifier/Module 2)
Je trouve ça :
Private Sub Custom1()
Application.ScreenUpdating = False
With ThisWorkbook
If .Sheets("Ecart").CheckBoxes("Check Box 8").Value > 0 Then 'selon la checkbox, active ou désactive le filtre dédié
.Sheets("Saisie").Range("A1").AutoFilter Field:=60, Criteria1:=Array("Plat"), Operator:=xlFilterValues
Else
.Sheets("Saisie").[A1].AutoFilter Field:=60
End If
End With
Call MajTableau
End Sub
-----------------------------------------------------------------------------------------
Private Sub Custom2()
Application.ScreenUpdating = False
With ThisWorkbook
If .Sheets("Ecart").CheckBoxes("Check Box 9") > 0 Then 'selon la checkbox, active ou désactive le filtre dédié
.Sheets("Saisie").Range("A1").AutoFilter Field:=3, Criteria1:=Array("P5"), Operator:=xlFilterValues
Else
.Sheets("Saisie").[A1].AutoFilter Field:=3
End If
End With
Call MajTableau
End Sub
------------------------------------------------------------------------------
Private Sub Filtre()
Application.ScreenUpdating = False
Sheets("Saisie").[A1].AutoFilter 'réinitialise les filtres
With ThisWorkbook.Sheets("Ecart") 'réinitialise les checkbox
For Each box In .CheckBoxes
box.Value = 0
Next box
End With
Call MajTableau
End Sub
----------------------------------------------------------------------
J'aimerai rajouter une autre macro (un autre filtre, comme la première macro "Plat")
Mais "Steeple" (avec toujours un bouton à cocher)
Comment faire ???
je pourrai créer un bouton à cocher et lier à une macro, mais je n'ai rien dans la liste des macro...
Je les trouvent seulement par ce chemin (Outils/Macro/Macros.../Modifier/Module 2)
merci pour vos conseils...
PS: A quoi correspond :
CheckBoxes("Check Box 8")
CheckBoxes("Check Box 9")
