Bonsoir
Je désire simplifier cette procédure : j'ai 30 pages nommées de A1 à A30
je vous remercie
Didier
If Sheets("A1").Range("B3") <> "" Then
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End If
If Sheets("A2").Range("B3") <> "" Then
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End If
If Sheets("A3").Range("B3") <> "" Then
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End If
etc.
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
michdenis
Bonjour Didier,
As-tu vraiment des feuilles dont le nom de l'onglet est A1, A2, A3 ?
Si ce sont toutes les feuilles de ton classeur qui doivent subir le même traitement :
'------------------------ For each sh in Worksheets if sh.Range("B3") <> "" then Sh.Printout 'voir paramètre de la méthode "Print" ' dans l'aide si besoin end if Next '------------------------
Salutations!
"Didier Novarin" a écrit dans le message de news: O0Z$ Bonsoir Je désire simplifier cette procédure : j'ai 30 pages nommées de A1 à A30 je vous remercie Didier If Sheets("A1").Range("B3") <> "" Then ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True End If If Sheets("A2").Range("B3") <> "" Then ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True End If If Sheets("A3").Range("B3") <> "" Then ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True End If etc.
Bonjour Didier,
As-tu vraiment des feuilles dont le nom de l'onglet est A1, A2, A3 ?
Si ce sont toutes les feuilles de ton classeur qui doivent subir le même traitement :
'------------------------
For each sh in Worksheets
if sh.Range("B3") <> "" then
Sh.Printout 'voir paramètre de la méthode "Print"
' dans l'aide si besoin
end if
Next
'------------------------
Salutations!
"Didier Novarin" <didier.n@club-internet.fr> a écrit dans le message de news: O0Z$1nX3FHA.2640@TK2MSFTNGP09.phx.gbl...
Bonsoir
Je désire simplifier cette procédure : j'ai 30 pages nommées de A1 à A30
je vous remercie
Didier
If Sheets("A1").Range("B3") <> "" Then
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End If
If Sheets("A2").Range("B3") <> "" Then
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End If
If Sheets("A3").Range("B3") <> "" Then
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End If
etc.
As-tu vraiment des feuilles dont le nom de l'onglet est A1, A2, A3 ?
Si ce sont toutes les feuilles de ton classeur qui doivent subir le même traitement :
'------------------------ For each sh in Worksheets if sh.Range("B3") <> "" then Sh.Printout 'voir paramètre de la méthode "Print" ' dans l'aide si besoin end if Next '------------------------
Salutations!
"Didier Novarin" a écrit dans le message de news: O0Z$ Bonsoir Je désire simplifier cette procédure : j'ai 30 pages nommées de A1 à A30 je vous remercie Didier If Sheets("A1").Range("B3") <> "" Then ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True End If If Sheets("A2").Range("B3") <> "" Then ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True End If If Sheets("A3").Range("B3") <> "" Then ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True End If etc.
Didier Novarin
Bonjour et merci Denis non, j'ai d'autres feuilles mais les feuilles A1 à A30, sont les dernières du classeur Didier
"michdenis" a écrit dans le message de news: %
Bonjour Didier,
As-tu vraiment des feuilles dont le nom de l'onglet est A1, A2, A3 ?
Si ce sont toutes les feuilles de ton classeur qui doivent subir le même traitement :
'------------------------ For each sh in Worksheets if sh.Range("B3") <> "" then Sh.Printout 'voir paramètre de la méthode "Print" ' dans l'aide si besoin end if Next '------------------------
Salutations!
"Didier Novarin" a écrit dans le message de news: O0Z$ Bonsoir Je désire simplifier cette procédure : j'ai 30 pages nommées de A1 à A30 je vous remercie Didier If Sheets("A1").Range("B3") <> "" Then ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True End If If Sheets("A2").Range("B3") <> "" Then ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True End If If Sheets("A3").Range("B3") <> "" Then ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True End If etc.
Bonjour et merci Denis
non, j'ai d'autres feuilles mais les feuilles A1 à A30, sont les dernières
du classeur
Didier
"michdenis" <michdenis@hotmail.com> a écrit dans le message de news:
%23h7FoyX3FHA.3036@TK2MSFTNGP15.phx.gbl...
Bonjour Didier,
As-tu vraiment des feuilles dont le nom de l'onglet est A1, A2, A3 ?
Si ce sont toutes les feuilles de ton classeur qui doivent subir le même
traitement :
'------------------------
For each sh in Worksheets
if sh.Range("B3") <> "" then
Sh.Printout 'voir paramètre de la méthode "Print"
' dans l'aide si besoin
end if
Next
'------------------------
Salutations!
"Didier Novarin" <didier.n@club-internet.fr> a écrit dans le message de
news: O0Z$1nX3FHA.2640@TK2MSFTNGP09.phx.gbl...
Bonsoir
Je désire simplifier cette procédure : j'ai 30 pages nommées de A1 à A30
je vous remercie
Didier
If Sheets("A1").Range("B3") <> "" Then
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End If
If Sheets("A2").Range("B3") <> "" Then
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End If
If Sheets("A3").Range("B3") <> "" Then
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End If
etc.
Bonjour et merci Denis non, j'ai d'autres feuilles mais les feuilles A1 à A30, sont les dernières du classeur Didier
"michdenis" a écrit dans le message de news: %
Bonjour Didier,
As-tu vraiment des feuilles dont le nom de l'onglet est A1, A2, A3 ?
Si ce sont toutes les feuilles de ton classeur qui doivent subir le même traitement :
'------------------------ For each sh in Worksheets if sh.Range("B3") <> "" then Sh.Printout 'voir paramètre de la méthode "Print" ' dans l'aide si besoin end if Next '------------------------
Salutations!
"Didier Novarin" a écrit dans le message de news: O0Z$ Bonsoir Je désire simplifier cette procédure : j'ai 30 pages nommées de A1 à A30 je vous remercie Didier If Sheets("A1").Range("B3") <> "" Then ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True End If If Sheets("A2").Range("B3") <> "" Then ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True End If If Sheets("A3").Range("B3") <> "" Then ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True End If etc.
michdenis
Essaie ceci :
'----------------- Dim A As Integer For A = 1 To 30 With Sheets("A" & A) If .Range("B3") <> "" Then .PrintOut Copies:=1, Collate:=True End If End With Next '-----------------
Salutations!
"Didier Novarin" a écrit dans le message de news: Bonjour et merci Denis non, j'ai d'autres feuilles mais les feuilles A1 à A30, sont les dernières du classeur Didier
"michdenis" a écrit dans le message de news: %
Bonjour Didier,
As-tu vraiment des feuilles dont le nom de l'onglet est A1, A2, A3 ?
Si ce sont toutes les feuilles de ton classeur qui doivent subir le même traitement :
'------------------------ For each sh in Worksheets if sh.Range("B3") <> "" then Sh.Printout 'voir paramètre de la méthode "Print" ' dans l'aide si besoin end if Next '------------------------
Salutations!
"Didier Novarin" a écrit dans le message de news: O0Z$ Bonsoir Je désire simplifier cette procédure : j'ai 30 pages nommées de A1 à A30 je vous remercie Didier If Sheets("A1").Range("B3") <> "" Then ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True End If If Sheets("A2").Range("B3") <> "" Then ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True End If If Sheets("A3").Range("B3") <> "" Then ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True End If etc.
Essaie ceci :
'-----------------
Dim A As Integer
For A = 1 To 30
With Sheets("A" & A)
If .Range("B3") <> "" Then
.PrintOut Copies:=1, Collate:=True
End If
End With
Next
'-----------------
Salutations!
"Didier Novarin" <didier.n@club-internet.fr> a écrit dans le message de news: eJn7x5X3FHA.3844@TK2MSFTNGP10.phx.gbl...
Bonjour et merci Denis
non, j'ai d'autres feuilles mais les feuilles A1 à A30, sont les dernières
du classeur
Didier
"michdenis" <michdenis@hotmail.com> a écrit dans le message de news:
%23h7FoyX3FHA.3036@TK2MSFTNGP15.phx.gbl...
Bonjour Didier,
As-tu vraiment des feuilles dont le nom de l'onglet est A1, A2, A3 ?
Si ce sont toutes les feuilles de ton classeur qui doivent subir le même
traitement :
'------------------------
For each sh in Worksheets
if sh.Range("B3") <> "" then
Sh.Printout 'voir paramètre de la méthode "Print"
' dans l'aide si besoin
end if
Next
'------------------------
Salutations!
"Didier Novarin" <didier.n@club-internet.fr> a écrit dans le message de
news: O0Z$1nX3FHA.2640@TK2MSFTNGP09.phx.gbl...
Bonsoir
Je désire simplifier cette procédure : j'ai 30 pages nommées de A1 à A30
je vous remercie
Didier
If Sheets("A1").Range("B3") <> "" Then
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End If
If Sheets("A2").Range("B3") <> "" Then
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End If
If Sheets("A3").Range("B3") <> "" Then
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End If
etc.
'----------------- Dim A As Integer For A = 1 To 30 With Sheets("A" & A) If .Range("B3") <> "" Then .PrintOut Copies:=1, Collate:=True End If End With Next '-----------------
Salutations!
"Didier Novarin" a écrit dans le message de news: Bonjour et merci Denis non, j'ai d'autres feuilles mais les feuilles A1 à A30, sont les dernières du classeur Didier
"michdenis" a écrit dans le message de news: %
Bonjour Didier,
As-tu vraiment des feuilles dont le nom de l'onglet est A1, A2, A3 ?
Si ce sont toutes les feuilles de ton classeur qui doivent subir le même traitement :
'------------------------ For each sh in Worksheets if sh.Range("B3") <> "" then Sh.Printout 'voir paramètre de la méthode "Print" ' dans l'aide si besoin end if Next '------------------------
Salutations!
"Didier Novarin" a écrit dans le message de news: O0Z$ Bonsoir Je désire simplifier cette procédure : j'ai 30 pages nommées de A1 à A30 je vous remercie Didier If Sheets("A1").Range("B3") <> "" Then ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True End If If Sheets("A2").Range("B3") <> "" Then ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True End If If Sheets("A3").Range("B3") <> "" Then ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True End If etc.
Didier Novarin
Parfait, c'est exactement cela Merci beaucoup Didier
"michdenis" a écrit dans le message de news: %23TvST$
Essaie ceci :
'----------------- Dim A As Integer For A = 1 To 30 With Sheets("A" & A) If .Range("B3") <> "" Then .PrintOut Copies:=1, Collate:=True End If End With Next '-----------------
Salutations!
"Didier Novarin" a écrit dans le message de news: Bonjour et merci Denis non, j'ai d'autres feuilles mais les feuilles A1 à A30, sont les dernières du classeur Didier
"michdenis" a écrit dans le message de news: %
Bonjour Didier,
As-tu vraiment des feuilles dont le nom de l'onglet est A1, A2, A3 ?
Si ce sont toutes les feuilles de ton classeur qui doivent subir le même traitement :
'------------------------ For each sh in Worksheets if sh.Range("B3") <> "" then Sh.Printout 'voir paramètre de la méthode "Print" ' dans l'aide si besoin end if Next '------------------------
Salutations!
"Didier Novarin" a écrit dans le message de news: O0Z$ Bonsoir Je désire simplifier cette procédure : j'ai 30 pages nommées de A1 à A30 je vous remercie Didier If Sheets("A1").Range("B3") <> "" Then ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True End If If Sheets("A2").Range("B3") <> "" Then ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True End If If Sheets("A3").Range("B3") <> "" Then ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True End If etc.
Parfait, c'est exactement cela
Merci beaucoup
Didier
"michdenis" <michdenis@hotmail.com> a écrit dans le message de news:
%23TvST$X3FHA.1276@TK2MSFTNGP09.phx.gbl...
Essaie ceci :
'-----------------
Dim A As Integer
For A = 1 To 30
With Sheets("A" & A)
If .Range("B3") <> "" Then
.PrintOut Copies:=1, Collate:=True
End If
End With
Next
'-----------------
Salutations!
"Didier Novarin" <didier.n@club-internet.fr> a écrit dans le message de
news: eJn7x5X3FHA.3844@TK2MSFTNGP10.phx.gbl...
Bonjour et merci Denis
non, j'ai d'autres feuilles mais les feuilles A1 à A30, sont les dernières
du classeur
Didier
"michdenis" <michdenis@hotmail.com> a écrit dans le message de news:
%23h7FoyX3FHA.3036@TK2MSFTNGP15.phx.gbl...
Bonjour Didier,
As-tu vraiment des feuilles dont le nom de l'onglet est A1, A2, A3 ?
Si ce sont toutes les feuilles de ton classeur qui doivent subir le même
traitement :
'------------------------
For each sh in Worksheets
if sh.Range("B3") <> "" then
Sh.Printout 'voir paramètre de la méthode "Print"
' dans l'aide si besoin
end if
Next
'------------------------
Salutations!
"Didier Novarin" <didier.n@club-internet.fr> a écrit dans le message de
news: O0Z$1nX3FHA.2640@TK2MSFTNGP09.phx.gbl...
Bonsoir
Je désire simplifier cette procédure : j'ai 30 pages nommées de A1 à A30
je vous remercie
Didier
If Sheets("A1").Range("B3") <> "" Then
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End If
If Sheets("A2").Range("B3") <> "" Then
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End If
If Sheets("A3").Range("B3") <> "" Then
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End If
etc.
Parfait, c'est exactement cela Merci beaucoup Didier
"michdenis" a écrit dans le message de news: %23TvST$
Essaie ceci :
'----------------- Dim A As Integer For A = 1 To 30 With Sheets("A" & A) If .Range("B3") <> "" Then .PrintOut Copies:=1, Collate:=True End If End With Next '-----------------
Salutations!
"Didier Novarin" a écrit dans le message de news: Bonjour et merci Denis non, j'ai d'autres feuilles mais les feuilles A1 à A30, sont les dernières du classeur Didier
"michdenis" a écrit dans le message de news: %
Bonjour Didier,
As-tu vraiment des feuilles dont le nom de l'onglet est A1, A2, A3 ?
Si ce sont toutes les feuilles de ton classeur qui doivent subir le même traitement :
'------------------------ For each sh in Worksheets if sh.Range("B3") <> "" then Sh.Printout 'voir paramètre de la méthode "Print" ' dans l'aide si besoin end if Next '------------------------
Salutations!
"Didier Novarin" a écrit dans le message de news: O0Z$ Bonsoir Je désire simplifier cette procédure : j'ai 30 pages nommées de A1 à A30 je vous remercie Didier If Sheets("A1").Range("B3") <> "" Then ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True End If If Sheets("A2").Range("B3") <> "" Then ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True End If If Sheets("A3").Range("B3") <> "" Then ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True End If etc.
Iznogood1
For i = 1 To 30 If Sheets("A& & i).Range("B3") <> "" Then ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True End If Next i
Bonsoir Je désire simplifier cette procédure : j'ai 30 pages nommées de A1 à A30 je vous remercie Didier If Sheets("A1").Range("B3") <> "" Then ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True End If If Sheets("A2").Range("B3") <> "" Then ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True End If If Sheets("A3").Range("B3") <> "" Then ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True End If etc.
For i = 1 To 30
If Sheets("A& & i).Range("B3") <> "" Then
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End If
Next i
Bonsoir
Je désire simplifier cette procédure : j'ai 30 pages nommées de A1 à A30
je vous remercie
Didier
If Sheets("A1").Range("B3") <> "" Then
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End If
If Sheets("A2").Range("B3") <> "" Then
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End If
If Sheets("A3").Range("B3") <> "" Then
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End If
etc.
For i = 1 To 30 If Sheets("A& & i).Range("B3") <> "" Then ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True End If Next i
Bonsoir Je désire simplifier cette procédure : j'ai 30 pages nommées de A1 à A30 je vous remercie Didier If Sheets("A1").Range("B3") <> "" Then ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True End If If Sheets("A2").Range("B3") <> "" Then ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True End If If Sheets("A3").Range("B3") <> "" Then ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True End If etc.