bonjour
je voudrais lancer par macro l'impression de toutes les
feuilles du classeur sous condtion.la valeur a1 de chaque cellule > 4
si je rajoute une autres feuille elle doit s'ajouter à la
macro
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
essaye ceci :
Sub PrintClasseur() Dim WS As Worksheet For Each WS In ThisWorkbook.Worksheets If WS.Range("A1").Value > 4 Then WS.PrintOut Copies:=1 End If Next End Sub
-----Message d'origine----- bonjour je voudrais lancer par macro l'impression de toutes les feuilles du classeur sous condtion.la valeur a1 de chaque cellule > 4
si je rajoute une autres feuille elle doit s'ajouter à la macro
.
essaye ceci :
Sub PrintClasseur()
Dim WS As Worksheet
For Each WS In ThisWorkbook.Worksheets
If WS.Range("A1").Value > 4 Then
WS.PrintOut Copies:=1
End If
Next
End Sub
-----Message d'origine-----
bonjour
je voudrais lancer par macro l'impression de toutes les
feuilles du classeur sous condtion.la valeur a1 de chaque
cellule > 4
si je rajoute une autres feuille elle doit s'ajouter à la
macro
Sub PrintClasseur() Dim WS As Worksheet For Each WS In ThisWorkbook.Worksheets If WS.Range("A1").Value > 4 Then WS.PrintOut Copies:=1 End If Next End Sub
-----Message d'origine----- bonjour je voudrais lancer par macro l'impression de toutes les feuilles du classeur sous condtion.la valeur a1 de chaque cellule > 4
si je rajoute une autres feuille elle doit s'ajouter à la macro
