imprimer tes les feuiles ds classeur A1 > 3 (tts les
1 réponse
Hajib
je voudrais lancer par macro l'impression de toutes les
feuilles du classeur sous condtion :La valeur A1 de chaque feuille > 3
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
Michel HOLDERITH
Salut, ca devrait le faire : Sub IMPRIMER() For I = 1 To Sheets.Count Sheets(I).Select If Range("A1").Value > 3 Then ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True Else End If Next I End Sub Ca te convient ? @+ Michel.
"Hajib" wrote in message news:
je voudrais lancer par macro l'impression de toutes les feuilles du classeur sous condtion :La valeur A1 de chaque feuille > 3 si je rajoute une autres feuille elle doit s'ajouter à la macro ..
Salut,
ca devrait le faire :
Sub IMPRIMER()
For I = 1 To Sheets.Count
Sheets(I).Select
If Range("A1").Value > 3 Then
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Else
End If
Next I
End Sub
Ca te convient ?
@+
Michel.
"Hajib" <hbazouz@dahergroup.com> wrote in message
news:08BF924F-9B13-4398-80C5-22C9805489AB@microsoft.com...
je voudrais lancer par macro l'impression de toutes les
feuilles du classeur sous condtion :La valeur A1 de chaque feuille > 3
si je rajoute une autres feuille elle doit s'ajouter à la
macro
..
Salut, ca devrait le faire : Sub IMPRIMER() For I = 1 To Sheets.Count Sheets(I).Select If Range("A1").Value > 3 Then ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True Else End If Next I End Sub Ca te convient ? @+ Michel.
"Hajib" wrote in message news:
je voudrais lancer par macro l'impression de toutes les feuilles du classeur sous condtion :La valeur A1 de chaque feuille > 3 si je rajoute une autres feuille elle doit s'ajouter à la macro ..