Aplliquer 2 macros sans que la 1ère écrase la 2ème
Résolu
PLAYA2
-
PLAYA2 -
PLAYA2 -
Bonjour,
J'ai créer 2 macros qui fonctionnent très bien individuellement mais lorsque je les lancent l'une après l'autre, la seconde annule la première ; j'ai donc tenté de n'en faire qu'une seule qui donne ceci :
Sub Macrolignes()
'
' Macrolignes Macro
' Macro enregistrée le 14/01/2013 par RATP
'
ActiveSheet.Unprotect
For Each work In Worksheets
work.Activate
With work
If work.Name <> "Accueil" And work.Name <> "MDG" Then
.Columns("AL:AL").Select
selection.AutoFilter
selection.AutoFilter Field:=1, Criteria1:="1"
.Columns("AJ:AJ").Select
selection.AutoFilter
selection.AutoFilter Field:=1, Criteria1:="=A", Operator:=xlOr, _
Criteria2:="<>0"
End If
End With
Next work
ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:=True
End Sub
Mais je renconter la même problème...
Avez-vous une solution svp ???
J'ai créer 2 macros qui fonctionnent très bien individuellement mais lorsque je les lancent l'une après l'autre, la seconde annule la première ; j'ai donc tenté de n'en faire qu'une seule qui donne ceci :
Sub Macrolignes()
'
' Macrolignes Macro
' Macro enregistrée le 14/01/2013 par RATP
'
ActiveSheet.Unprotect
For Each work In Worksheets
work.Activate
With work
If work.Name <> "Accueil" And work.Name <> "MDG" Then
.Columns("AL:AL").Select
selection.AutoFilter
selection.AutoFilter Field:=1, Criteria1:="1"
.Columns("AJ:AJ").Select
selection.AutoFilter
selection.AutoFilter Field:=1, Criteria1:="=A", Operator:=xlOr, _
Criteria2:="<>0"
End If
End With
Next work
ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:=True
End Sub
Mais je renconter la même problème...
Avez-vous une solution svp ???
A voir également:
- Aplliquer 2 macros sans que la 1ère écrase la 2ème
- Supercopier 2 - Télécharger - Gestion de fichiers
- 2eme ecran pc - Guide
- Réinitialiser chromecast 1ere génération - Guide
- 2eme whatsapp - Guide
- 2 comptes instagram avec la même adresse mail - Guide
1 réponse
C bon à force de charcher, j'ai trouvé cette macro qui fonctionne :
ActiveSheet.Unprotect
For Each work In Worksheets
work.Activate
With work
If work.Name <> "Accueil" And work.Name <> "MDG" Then
selection.AutoFilter
selection.AutoFilter Field:=6, Criteria1:="1"
selection.AutoFilter Field:=4, Criteria1:="=A", Operator:=xlOr, _
Criteria2:="<>0"
End If
End With
Next work
ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:=True
End Sub
Voilà, pour info si ça peut servir à quelqu'un !!!
ActiveSheet.Unprotect
For Each work In Worksheets
work.Activate
With work
If work.Name <> "Accueil" And work.Name <> "MDG" Then
selection.AutoFilter
selection.AutoFilter Field:=6, Criteria1:="1"
selection.AutoFilter Field:=4, Criteria1:="=A", Operator:=xlOr, _
Criteria2:="<>0"
End If
End With
Next work
ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:=True
End Sub
Voilà, pour info si ça peut servir à quelqu'un !!!