nom de feuille en entete Résolu

Question

Bonjour, 

je voudrais imprimer 8 feuilles avec un seul bouton
les colonnes "A:K" dont la colonne D reste masquée sont pareils dans les 8 feuilles
comment procéder avec macro?
est il  possible de mettre le nom de chaque feuille en entete exemple: 
Liste Produits "feuil1";Liste Produits"feuil2" etc jusqu'a 8?
peut on imprimer que les lignes pleines si plus rien a imprimer sur feuille 1 passer a la 2eme sur la même feuille ?
merci de  vos lumières 
a bientot

aurelie98 · Answer

Je ne crois pas que ce soit possible , après je sais pas peut être que je me trompe :S

Raymond PENTIER · Answer

Bonjour surplus. Tu es fana de macro ; moi j'y connais rien ...

"je voudrais imprimer 8 feuilles avec un seul bouton ; les colonnes A:K dont la colonne D reste masquée sont pareils dans les 8 feuilles". 
Voici comment procéder SANS macro : Dans chaque feuille définir la Zone d'impression. Clic sur l'onglet de la première feuille ; maintenir [shift] enfoncée et clic sur l'onglet de la dernière feuille ; lancer l'impression.

"est il possible de mettre le nom de chaque feuille en entete" ? 
Insertion/Texte/En-tête et pied/Éléments en-tête et pied de page/Nom de fichier.

"peut on imprimer que les lignes pleines si plus rien a imprimer sur feuille 1 passer a la 2eme sur la même feuille ?"
Pour ça, il faudrait une macro !  
 
Cordialement.

surplus · Answer

Bonjour
merci pour ces renseignements utiles mais pour la macro elle se présenterait comment ?
merci
a bientot

Morgothal · Answer

Salut, 
Si tu veux absolument utiliser une macro, tu peux utiliser le code de Kobaya sur ce post, je viens de le tester et il fonctionne. 

Ensuite, tu n'as plus qu'à faire tourner sur tes 8 feuilles (ou toutes les feuilles du classeur ?) en remplaçant le Activesheet de la Sub ZoneImp avec un truc comme ça par exemple (et en modifiant un peu ZoneImp) : 
Sub passer_sur_toutes_les_feuilles() 
Dim feuille As Object 
   For Each feuille In ActiveWorkbook.Sheets 
   call ZoneImp(feuille.Name) 
Next 
End Sub 
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' 
Sub ZoneImp_modifiee(feuille As String) 
Dim intColMin As Integer, intColMax As Integer 
Dim intLinMin As Integer, intLinMax As Integer 

'Tes propres paramètres ici bien sûr
intColMin = 1 
intColMax = 12 
intLinMin = 2 
intLin = 25 

feuille.PageSetup.PrintArea = Adresse(inColMin) & intLinMin & ":" & Adresse(intColMax) & intLinMax 

End Sub 


  
------------------- 
Cordialement, 
Clément

Heliotte · Answer

Bonsoir surplus et bonne année à tous,

Pour trouver la dernière ligne d'une feuille, en colonne "A":

Dim DerLig As Integer
DerLig = Columns(1).Find("*", , , , xlByColumns, xlPrevious).Row
Si c'est la dernière ligne de la colonne "D", changer Columns(1) par Columns(4)

Nom de feuille en entete

5 réponses

Newsletters