Nom de feuille en entete
Résolu/Fermé
surplus
Messages postés
675
Date d'inscription
mardi 17 août 2010
Statut
Membre
Dernière intervention
14 novembre 2021
-
2 janv. 2013 à 22:19
Heliotte Messages postés 1491 Date d'inscription vendredi 26 octobre 2012 Statut Membre Dernière intervention 28 janvier 2013 - 4 janv. 2013 à 19:35
Heliotte Messages postés 1491 Date d'inscription vendredi 26 octobre 2012 Statut Membre Dernière intervention 28 janvier 2013 - 4 janv. 2013 à 19:35
A voir également:
- Code permettant d'imprimer le nom de la feuille excel
- Liste déroulante excel - Guide
- Feuille de pointage excel - Télécharger - Tableur
- Le code ascii - Guide
- Aller à la ligne excel - Guide
- Formule excel - Guide
5 réponses
Raymond PENTIER
Messages postés
58396
Date d'inscription
lundi 13 août 2007
Statut
Contributeur
Dernière intervention
25 avril 2024
17 094
3 janv. 2013 à 02:07
3 janv. 2013 à 02:07
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.
surplus
Messages postés
675
Date d'inscription
mardi 17 août 2010
Statut
Membre
Dernière intervention
14 novembre 2021
4
3 janv. 2013 à 07:05
3 janv. 2013 à 07:05
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
Raymond PENTIER
Messages postés
58396
Date d'inscription
lundi 13 août 2007
Statut
Contributeur
Dernière intervention
25 avril 2024
17 094
3 janv. 2013 à 13:57
3 janv. 2013 à 13:57
Ma première phrase s'achève par "moi j'y connais rien" !
Morgothal
Messages postés
1236
Date d'inscription
jeudi 22 avril 2010
Statut
Membre
Dernière intervention
19 mai 2015
183
Modifié par Morgothal le 3/01/2013 à 14:08
Modifié par Morgothal le 3/01/2013 à 14:08
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
surplus
Messages postés
675
Date d'inscription
mardi 17 août 2010
Statut
Membre
Dernière intervention
14 novembre 2021
4
3 janv. 2013 à 21:10
3 janv. 2013 à 21:10
bonsoir
moi ce sont de zones variables ce code me va pas bien je pense
moi j'ai 11 colonnes et les lignes sont variables
comment adapter?
merci
a bientot
moi ce sont de zones variables ce code me va pas bien je pense
moi j'ai 11 colonnes et les lignes sont variables
comment adapter?
merci
a bientot
Morgothal
Messages postés
1236
Date d'inscription
jeudi 22 avril 2010
Statut
Membre
Dernière intervention
19 mai 2015
183
4 janv. 2013 à 09:01
4 janv. 2013 à 09:01
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 ?
surplus
Messages postés
675
Date d'inscription
mardi 17 août 2010
Statut
Membre
Dernière intervention
14 novembre 2021
4
4 janv. 2013 à 19:18
4 janv. 2013 à 19:18
bonjour
oui c'est cela qu'il faudrait
merci
a bientot
oui c'est cela qu'il faudrait
merci
a bientot
Heliotte
Messages postés
1491
Date d'inscription
vendredi 26 octobre 2012
Statut
Membre
Dernière intervention
28 janvier 2013
92
4 janv. 2013 à 19:35
4 janv. 2013 à 19:35
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
aurelie98
Messages postés
99
Date d'inscription
dimanche 7 octobre 2012
Statut
Membre
Dernière intervention
15 août 2015
4
2 janv. 2013 à 22:29
2 janv. 2013 à 22:29
Je ne crois pas que ce soit possible , après je sais pas peut être que je me trompe :S
