Nom de feuille en entete
Résolu
surplus
Messages postés
673
Date d'inscription
Statut
Membre
Dernière intervention
-
Heliotte Messages postés 1491 Date d'inscription Statut Membre Dernière intervention -
Heliotte Messages postés 1491 Date d'inscription Statut Membre Dernière intervention -
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
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
A voir également:
- Code permettant d'imprimer le nom de la feuille excel
- Code ascii - Guide
- Feuille de pointage excel - Télécharger - Tableur
- Liste déroulante excel - Guide
- Imprimer tableau excel sur une page - Guide
- Comment déverrouiller un téléphone quand on a oublié le code - Guide
5 réponses
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.
"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.
Bonjour
merci pour ces renseignements utiles mais pour la macro elle se présenterait comment ?
merci
a bientot
merci pour ces renseignements utiles mais pour la macro elle se présenterait comment ?
merci
a bientot
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) :
-------------------
Cordialement,
Clément
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
Bonjour,
On peut donc mettre :
intColMin = 1
intColMax = 12
Parce qu'il y a 11 colonnes et :
intLinMin = 2
intLin = une_variable_qui_trouve_le_nombre_de_lignes_dans_la_colonne_concernee
Pour le nombre de lignes.
Est-ce qu'une telle solution fonctionnerait dans ton cas ?
'Tes propres paramètres ici bien sûr intColMin = 1 intColMax = 12 intLinMin = 2 intLin = 25C'est ici qu'on peut adapter !
On peut donc mettre :
intColMin = 1
intColMax = 12
Parce qu'il y a 11 colonnes et :
intLinMin = 2
intLin = une_variable_qui_trouve_le_nombre_de_lignes_dans_la_colonne_concernee
Pour le nombre de lignes.
Est-ce qu'une telle solution fonctionnerait dans ton cas ?
Bonsoir surplus et bonne année à tous,
Pour trouver la dernière ligne d'une feuille, en colonne "A":
Si c'est la dernière ligne de la colonne "D", changer Columns(1) par Columns(4)
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)
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question