Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

séléction des colonnes pour imprimer

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion lesims1000
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
L

lesims1000

Guest
bonjour, j'ai créer un tableau très simple pour le planing de fabrication de mon boulot,
j'aimerais pouvoir grace à une macro:

séléctioner la semaine (dans une boite boite de dialogue)
et que ensuite la mise en page de l'impression se fait en fonction des colonnes de la semaine selectionné et que toute les lignes de la semaine s'ajuste à une seul page.

PS: voici mon tableau

j'éspère avoir était relativement clair dans mes explications et que quelqu'un pourra m'aider !!

cordialement Marc.
 

Pièces jointes

Trier par date Trier par votes
Re : séléction des colonnes pour imprimer

Bonjour LeSims1000 🙂,
Voici déjà pour ton combobox :
Code: 
Private Sub UserForm_Initialize()
Dim I As Integer
For I = 1 To 50 Step 5
ComboBox1.AddItem Cells(4, I)
Next I
End Sub
Par contre, une année faisant 52 semaines, la largeur de la feuille devrait faire 265 colonnes, or tu es limité à 255 (sauf si tu es en 2007). C'est peut-être un point à prendre en compte dès maintenant...
Bon courage 😎
 
Vote positif 0 Vote négatif
Re : séléction des colonnes pour imprimer

Re 🙂,
Voila l'USF. Une fois que tu auras fini tes macros, tu pourras passer en For I = 1 To 265, mais tant que tu n'as pas finalisé le fichier, si tu veux que les gens qui ne sont pas en 2007 puisse te répondre, reste à 55...
Bon courage 😎
 

Pièces jointes

Vote positif 0 Vote négatif
Re : séléction des colonnes pour imprimer

bonjour tt le monde,
je remonte le post pour savoir si quelqu'un pourait m'aider car je n'arrive toujours pas à créer ma macro....
 
Vote positif 0 Vote négatif
Re : séléction des colonnes pour imprimer

Bonjour 🙂,
Tu actives l'enregistreur de macro, tu sélectionnes la zone que tu veux imprimer, tu fait une impression, tu arrêtes l'enregistreur. Tu lis le code, tu remplaces la zone d'impression par la valeur de ton combobox, et hop là 😛...
Bon courage 😎
 
Vote positif 0 Vote négatif
Re : séléction des colonnes pour imprimer

pff....j'y comprend rien, j'ai enregistré ma macro comme tu me l'a dit, voici se que sa donne:

Code: 
Sub g()
'
' g Macro
'

'
    Range("F1:I54").Select
    Range("F54").Activate
    Selection.PrintOut Copies:=1
End Sub

j'ajoute quoi et ou ensuite ?🙁désolé pour l'amateurisme....
 
Vote positif 0 Vote négatif
Re : séléction des colonnes pour imprimer

Re 🙂,
Effectivement, tu commences en VBA, et peut-être en Excel aussi 😉. Tu n'as pas défini ta zone d'impression...
Comme en plus, ton tableaux est en largeur et ne facilite pas le calcul des colonnes, j'ai pitié de toi. Voici ton fichier tel que je pense que tu le souhaites. N'hésite pas à décortiquer le code pour commencer à te mettre à VBA.
Bon courage 😎
 

Pièces jointes

Vote positif 0 Vote négatif
Re : séléction des colonnes pour imprimer

merci, je voudrai juste changer une chose, c'est la zone d'impression, j'aimerai pouvoir imprimer 2 semaine en même temps et sur la même feuille c'est donc sur cette ligne de code que je dois changer quelques chose, mais je ne comprend pas la relation avec les colones:

Code: 
PlageImpression = "$" & ConversionXC((CInt(Right(ComboBox1.Text, 2)) - 1) * 5 + 1) _
    & "$4:$" & ConversionXC((CInt(Right(ComboBox1.Text, 2)) - 1) * 5 + 4) & 60
 
Vote positif 0 Vote négatif
Re : séléction des colonnes pour imprimer

on dirai que mon tableau n'a pas bien manger.... en revenant cet aprem pour finir de bosser dessus, je n'arrive plus à imprimer, quant je clique sur la macro pour imprimer un message d'erreur aparait:

Erreur de compilation:
variable non définie

et me surligne cette ligne dans le code de l'userform

Code: 
Option Explicit

Private Sub CommandButton1_Click()
If ComboBox1 = "" Then Exit Sub
Dim PlageImpression As String
PlageImpression = "$" & ConversionXC((CInt(Right(ComboBox1.Text, 2)) - 1) * 5 + 1) _
    & "$4:$" & ConversionXC((CInt(Right(ComboBox1.Text, 2)) - 1) * 5 + 4) & 60
ActiveSheet.PageSetup.PrintArea = PlageImpression
ActiveSheet.PrintOut Copies:=1
Unload Me
End Sub

Private Sub CommandButton2_Click()
Unload Me
End Sub

[COLOR="Red"][B]Private Sub UserForm_Initialize()[/B][/COLOR]
Dim I As Integer
For I = 1 To 50 Step 5
ComboBox1.AddItem Cells(4, I)
Next I
End Sub

le code est pourtant identique à celui que tu m'a donné.
 
Vote positif 0 Vote négatif
Re : séléction des colonnes pour imprimer

c'est bon, j'avais changer le combobox par un textbox ..... enfin !! j'ai fini par trouver tous seul cette fois, mais je suis toujours prenneur pour l'impression des 2 semaines en même temps....
 
Vote positif 0 Vote négatif
Re : séléction des colonnes pour imprimer

bon... je me répond à moi même:

j'ai réussi à bidouiller (je dit bidouiller parce que tous ne marche pas....)

Code: 
PlageImpression = "$" & ConversionXC((CInt(Right(ComboBox1.Text, 2)) - 1) * 5 - 5) _

j'ai changé se bout de code le dernier "5" de la ligne était un "2" à la base, j'ai trouvé cette valeur par tatonement et sans savoir se que sa voulais dire.
j'arrive à avoir 2 semaines par impression seulement certaines valeur bloque.

exemple quant je met "SEMAINE 21" dans userform, message d'erreur:

Erreur 1004
La formule contient une erreur
et la ligne est surligné :
Code: 
ActiveSheet.PageSetup.PrintArea = PlageImpression

de plus avec ma façon quant je tape "SEMAINE 20" c'est la semaine 19 et 20 qui s'imprime, je voudrais avoir le contraire, en tapent "SEMAINE 20" avoir la semaine 20 et 21


voila ! en l'attente d'une réponse je vous souhaite une bonne fin de journée.
 
Vote positif 0 Vote négatif
Re : séléction des colonnes pour imprimer

Re 🙂,
Désolé, mais vois-tu, beaucoup de "répondeurs" ont une vie en dehors d'XLD 😛... Ce n'est pas un service Hot Line gratuit, mais la bonne volonté, ET, la disponibilté (et évidement le bénévolat) des membres qui en fait sa qualité, et sa gratuité. Donc, étant professionnellement absent, je ne pouvais te répondre (je peux, et je pense que je ne suis pas le seul sur ce forum, être connecté sans pour autant disposer de temps pour répondre, voir aussi être sur le problème d'un autre, et du fait, prioriser mes réponses 😉.
Pressé par le temps, je n'ai pas eu le temps de détailler le code fourni :
Code: 
Dim PlageImpression As String [COLOR=red]' Déclare une variable qui définira la zone d'impression[/COLOR]
PlageImpression = "$" & [COLOR=green]ConversionXC((CInt(Right(ComboBox1.Text, 2)) - 1) * 5 + 1)[/COLOR] _
    & "$4:$" & [COLOR=blue]ConversionXC((CInt(Right(ComboBox1.Text, 2)) - 1) * 5 [COLOR=red]+ 9[/COLOR])[/COLOR] & 60
[COLOR=red]' [COLOR=seagreen]Le vert [/COLOR]Signifie litéralement conversion de valeur nombre en valeur lettre[/COLOR]
[COLOR=#ff0000]' (petite fonction dévéloppée maison, mais il y a d'autre solutions...)[/COLOR]
[COLOR=#ff0000]' pour convertir en A la colonne 1 et AA la colonne 27, conversion en nombre (CInt)[/COLOR]
[COLOR=#ff0000]' de la partie droite sur 2 caractères (Right) de la valeur Texte du Combo,[/COLOR]
[COLOR=#ff0000]' -1 pour que semaine 1 signifie 0 multiplié par 5 car c'est l'écart entre[/COLOR]
[COLOR=#ff0000]' chaque tableau de semaine +1 car c'est le début du tableau[/COLOR]
[COLOR=#ff0000]' [COLOR=blue]le bleu[/COLOR] signifie la même chose avec la valeur +4 pour la dernière colonne du tableau[/COLOR]
[COLOR=#ff0000]' qu'il faut passer à[SIZE=4] [B][COLOR=blue]+9[/COLOR][/B][/SIZE] pour prendre les 2 semaines ensembles[/COLOR]
ActiveSheet.PageSetup.PrintArea = PlageImpression
[COLOR=red]' Utilise la variable String pour définir la zone d'impression[/COLOR]
[COLOR=#ff0000]' (seule zone imprimée)[/COLOR]
Maintenant, le combo box ne devrait te renvoyer que les semaines valides. Et pour pouvoir faire les 52 semaines, il te faudra enregistrer en format natif 2007 (en mode compatibilité, il bloque à 255 colonnes) et changer
Code: 
For I = 1 To [COLOR=red]50[/COLOR] Step 5
par 265...
Bon courage 😎
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

N
  • Question Question
Microsoft 365 Choisir une imprimante pour imprimer doc word sous VBA Excel
Réponses
2
Affichages
256
natof
N
A
  • Question Question
Microsoft 365 Macro pour recherche de cellules entre 2 fichiers Excel
Réponses
7
Affichages
554
AtTheOne
J
  • Résolu(e)
Autres Créer des liens hypertexte automatiques et dans plusieurs colonnes dans un tableau excel
Réponses
8
Affichages
536
JMC
J
W
  • Question Question
XL 2019 Transformer des lignes de codes pour pratiquer Tablo à 4 colonnes et 40 lignes
2 3
Réponses
40
Affichages
2 K
Webperegrino
W
F
  • Résolu(e)
Microsoft 365 copier coller des colonnes en fonction de la valeur d'une cellule
Réponses
8
Affichages
1 K
loloboc
L
  • Résolu(e)
Microsoft 365 Masquer des colonnes aux cellules avec valeurs données selon sélection d'une liste déroulante
Réponses
5
Affichages
1 K
PatFr38
  • Question Question
XL 2019 Bouton pour impression dynamique
Réponses
6
Affichages
863
My<3
S
  • Résolu(e)
XL 2010 creation d'une InputBox pour creer plusieur tableau
2
Réponses
29
Affichages
2 K
Surfeur En Serie
S
I
  • Question Question
XL 2013 Copier des colonnes d'un tableau sur une autre feuille
Réponses
7
Affichages
2 K
desquiens.gabriel@hotmail
D
M
  • Résolu(e)
XL 2013 VBA : Calculs automatiques en fonction des cellules complétées
Réponses
6
Affichages
974
MinstrelL
M
  • Question Question
Microsoft 365 Création d'un fichier entier par rapport à des entrées via UserForm
Réponses
1
Affichages
792
job75
T
  • Question Question
Microsoft 365 [Résolu] Copier des colonnes à la fin d'un tableau
Réponses
2
Affichages
1 K
Tava94
T
C
  • Question Question
XL 2016 définir zone à imprimer dans macro
Réponses
2
Affichages
843
cricric
C
A
  • Question Question
Microsoft 365 boucle macro pour importer des données
2
Réponses
16
Affichages
2 K
Arnaud Legay
A
E
  • Question Question
XL 2013 Envoyer une email, imprimer en PDF et renommer automatiquement le PDF
Réponses
2
Affichages
906
Eric BZH
E
S
  • Résolu(e)
XL 2013 Fonction NB.SI.EN pour deux valeurs texte dans une colonne
Réponses
2
Affichages
775
samuelcouni
S
S
  • Question Question
Autres [XML] Importer fichier XML dans Excel (uniquement certaines colonnes)
2 3
Réponses
43
Affichages
6 K
Hasco
C
  • Question Question
XL 2016 Extraire des doublons sur 5 colonnes
Réponses
7
Affichages
1 K
Cédric12580
C
D
  • Question Question
XL 2019 Ventilation des données selon nom dans colonne 1 = nom des onglets
Réponses
11
Affichages
2 K
Dwindle
D
B
  • Question Question
XL 2013 report de données pour impression planning
Réponses
2
Affichages
942
zebanx
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…