fourchette d'onglets

[evelyne]

bonjour a tous et toutes
mon prob:

quelle lignes de vba permettent à une macro de considerer que les onglets selectionnés
voici ma macro qui imprime en ordre inverse du dernier au 1 er onglet;
je voudrais quelle fonctionne avec une fourchette d'onglets

Sub Imprime_de_count_a_1()
Application.ScreenUpdating=False
nb=Sheets.Count
For N=nb To 1 Step -1
Sheets(N).PrintOut
Next
End Sub

merci pour toutes vos sujetions

evelyne

 

[danielgre]

cree une fonction avec un parametre qui sera ton range d'onglet

 

[evelyne]

a l'aide au secour!!
ça je sais pas faire snif snif ...
evelyne

 

[danielgre]

tu sais ecrire du vba ? oui, puisque tu as donner un script dans ton message...
Alors pas plus compliquer, tu insere une fonction a la'ide du menu ineserer
function MyFunction(range as integer)
par exemple

 

[evelyne]

non
en fin de compte je vais retourner au jardin :-[ prendre l'air lol
bonne journée
evelyne toute triste !

 

[jean]

Salut,
Tu peux avoir une fonction qui reçoit les noms de
la 1ère et de la dernière feuille concernées par
ton traitement, encore faut-il savoir comment
tu comptes lancer ça (menu, bouton...)
dans mon exemple, je me contente de
sélectionner des feuilles .

médite un peu là dessus :

Option Explicit
Function myfunc(f1 As String, f2 As String)
Sheets(Array(f1, f2)).Select
End Function

Sub vazy()
myfunc "Feuil2", "Feuil3"
End Sub
A+

 

[jean]

avec l'enregistreur:
sélection de plusieurs feuilles (CTRL CLIC)
puis imprimer feuilles sélectionnées

Sub Macro2()
Sheets(Array("Feuil1", "Feuil2", "Feuil3", "Feuil4")).Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End Sub

 

[Baroude]

Hello evelyne,

je te joins un petit fichier que j'utilise pour sélectionner les pages à imprimer... regarde le code VBA, cela peut t'aider

Bon courage
Baroude

 

[Evelyne]

bjr Baroude
ce n'est pas tout à fait ce dont j'ai besoin
mais c'est avec ce genre de document (SUPER) que l'on progresse le mieux
et ça ouvre des perspectives................!
à ranger soigneusement!!!
merci beaucoup et bonne journée
Evelyne