Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel compiler deux macro

compiler deux macro

13 réponses
Avatar
Cyr13
bonsoir, suite a l' aide de Daniel.C
j ai pu realiser deux action dans mon fichier
mais comment faire pour que les deux macro
n' en deviennent qu' une ??


Sub Impimer_Toute_la_Prod()
'

Application.ScreenUpdating = False

For Each c In Sheets("Menus").Range("L6:L58")
If c.Value = "A Imprimer" Then
onglet = Sheets("Menus").Cells(c.Row, 14)
'3 si nom d'onglet en colonne C
Attente (500)
Sheets(onglet).Unprotect Password:=""
Sheets(onglet).[A6].AutoFilter Field:=1, Criteria1:="<>"
Attente (500)
Sheets(onglet).[H:BH].AutoFit
Attente (500)
Sheets(onglet).PrintOut
Attente (500)
Sheets(onglet).[A6].AutoFilter
Sheets(onglet).Protect Password:=""
End If
Next
End Sub

et

Sub Filtre_Matrice_Gastro()

ActiveSheet.Unprotect
Columns("H:BK").Select
Selection.Columns.AutoFit
Attente (500)
For Each c In Sheets("Active").Range("H48:BK48")
If c.Value = "0" Then
c.ColumnWidth = 0
End If
Next
Attente (500)
Columns("AT:AT").Select
Selection.ColumnWidth = 0.5
Columns("AC:AC").Select
Selection.ColumnWidth = 0.5
Attente (500)
Range("A6:B6").Select
Selection.AutoFilter
Selection.AutoFilter Field:=1, Criteria1:="<>"
Attente (500)
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Selection.AutoFilter
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True

End Sub

encore merci a Daniel.C et aux autres
Signaler un problème avec ce contenu

3 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
1 2
Avatar
Sonia.Dyblet
tout marche juqu au filtre en C6 pas de plantage mais il ne l applique pas

"Daniel.C" a écrit dans le message de news:

Essaie comme ça :

Sub Impimer_Toute_la_Prod()
'
'
Dim c As Range, x As Range

Application.ScreenUpdating = False
For Each c In Sheets("Menus").Range("L6:L60")
If c.Value = "A Imprimer" Then
onglet = Sheets("Menus").Cells(c.Row, 13)
With Sheets(onglet)
.Unprotect Password:=""
.Range("H:BN").Columns.AutoFit
For Each x In .Range("H48:BN48")
If x.Value = "0" Then
x.ColumnWidth = 0
End If
Next x
.Columns("AT:AT").ColumnWidth = 0.5
.Columns("AC:AC").ColumnWidth = 0.5
.[C6].AutoFilter Field:=1, Criteria1:="<>"
Attente (500)
.PrintOut
Attente (500)
.[C6].AutoFilter
.Protect
End With
End If
Next c
End Sub

"Cyr13" a écrit dans le message de news:

pas de probleme aucune données sensibles

http://cjoint.com/?dmt6f2Wvwz







Avatar
Daniel.C
Le filtre sur C6 seul ne fonctionne pas (manuellement non plus); j'ai filtré
A6:C6. Essaie :

Sub Impimer_Toute_la_Prod()
'
'
Dim c As Range, x As Range

Application.ScreenUpdating = False
For Each c In Sheets("Menus").Range("L6:L60")
If c.Value = "A Imprimer" Then
onglet = Sheets("Menus").Cells(c.Row, 13)
With Sheets(onglet)
.Unprotect Password:=""
.Range("H:BN").Columns.AutoFit
For Each x In .Range("H48:BN48")
If x.Value = "0" Then
x.ColumnWidth = 0
End If
Next x
.Columns("AT:AT").ColumnWidth = 0.5
.Columns("AC:AC").ColumnWidth = 0.5
Sheets(onglet).Select
.[A6:C6].AutoFilter
.[A6:C6].AutoFilter Field:=3, Criteria1:="<>"
Attente (500)
.PrintOut
Attente (500)
.[A6:C6].AutoFilter
.Protect
End With
End If
Next c
End Sub

Daniel
"Sonia.Dyblet" a écrit dans le message de news:
47d85a40$0$896$
tout marche juqu au filtre en C6 pas de plantage mais il ne l applique pas


Avatar
Cyr13
bonsoir,
je n'ai pas les mots pour te remercier.
quel bonheur de voir la moitié de son travail automatisé.

encore mille merci pour ta patience et ton savoir faire.
1 2