impression de feuilles besoin d'aide

Question

bonjour,

ds mon classeur jai des boutons de commandes qui g&#233;n&#232;re des fiches par rapport a des mod&#232;les.

J'aimerais svoir si kelkun pourrait me dire comment faire pour kon reconnaissent ttes les fiches pr&#233;sentes , kensuite un userform apparaisse et kon puisse cocher les fiches que lon veu inprimer, 

au il ya ptetre une autre solution,

jsaia pas mais aider moi svp jgalere et fo ke je finisse mon pgr pour la fin de sem

je compte sur vs

merci salut

jpleroisse · Answer

Tu peux essayer cette m&#233;thode, mais l'inconv&#233;nient, c'est que si tu as 10 feuilles, le Prg va demander 10 x confirmation.

Private Sub CheckBox1_Click()
Application.Dialogs(xlDialogPrint).Show
CheckBox1.Value = False
Unload Me
End Sub


Private Sub ListBox1_Click()
Sheets(ListBox1.Value).Activate
End Sub

Private Sub UserForm_Activate()
Dim ws
For Each ws In Worksheets
    ListBox1.AddItem ws.Name
    ListBox1.ListIndex = 0
Next ws
End Sub

jpleroisse

Tonin39 · Answer

merci c sympa mais jpeu pa avoir un userform avec un chexbox + le non de la feuille

je clic sur ts les checkbox dt je veu imprimer la feuille

et un bouton ok ki imprime ttes les feuilles d'un coup

aide moi stp ta lair detre tellement fort tu va bien trouver une solution

jatten ta rep stp
merci

jpleroisse · Answer

OK mais j'ai un probl&#232;me pour l'instant, j'ai chopp&#233; un virus et je ne sais plus me servir de Excel, Word ect.., vais r&#233;gler le probl&#232;me le plus vite possible.

valtrase · Answer

Lut,
Ca devrait te convenir !! 
Private Sub CommandButton1_Click() 


  Dim i 


  Application.DisplayAlerts = False 


  For i = 0 To ListBox1.ListCount - 1 


    If ListBox1.Selected(i) = True Then 


      Sheets(ListBox1.List(i)).PrintOut 


    End If 


  Next 


  Application.DisplayAlerts = True 


End Sub 







Private Sub UserForm_Activate() 




  ListBox1.ListStyle = fmListStyleOption 


  ListBox1.MultiSelect = fmMultiSelectMulti 




  Dim sheet As Worksheet 


  For Each sheet In Worksheets 


    ListBox1.AddItem sheet.Name 


  Next 




End Sub 



Cordialement, Jean-Paul  
______________________________________________________________________

Le Savoir n'a de valeur que s'il est partag&#233;

valtrase · Answer

Sur ta feuille tu mets un bouton que tu nommes "Imprime feuille"  et dans le code de ce bouton tu marques UserForm1.Show

Bien sur tu dois cr&#233;er ta UserForm et y ajouter une listebox et un bouton 

Cordialement, Jean-Paul  
______________________________________________________________________

Le Savoir n'a de valeur que s'il est partag&#233;

Tonin39 · Answer

merci jean paul c vraiment sympa

juste une qustion comment faire pour dire que il y a certaines feuilles ke tu veu pa s&#233;lectionner ds la liste, en fait c mes mod&#232;les que jveu pa mettre

merci de rep stp

Tonin39 · Answer

ya un pti pb qd je comfirm ma s&#233;lection avec mon bouton, il me demande si jveu sauver mon classeur en format PDF

pkoi???

si vous pouvez m'aider ca serait vraiment cool

Tonin39 · Answer

autre suggestion, est ce kon pourrai pa plutot avoir une liste visible entierement et pa d&#233;roulante

si possible
merci

valtrase · Answer

En ce qui concerne la sauvegarde sous PDF je ne vois pas du tout pourquoi. y'a pas de raisons. Faudrais voir ton code Pour ta liste soit tu t'es trompé et tu as mis une combo à la place soit tu ne l'as pas assez agrandi en mode desing de ta feuille en ce qui concerne les modèle soit tu les renommes avec "mod" en début et tu appliques ce code Private Sub CommandButton1_Click() Dim i Application.DisplayAlerts = False For i = 0 To ListBox1.ListCount - 1 If ListBox1.Selected(i) = True Then Sheets(ListBox1.List(i)).PrintOut End If Next Application.DisplayAlerts = True End Sub Private Sub UserForm_Activate() Dim sheet As Worksheet ListBox1.ListStyle = fmListStyleOption ListBox1.MultiSelect = fmMultiSelectMulti For Each sheet In Worksheets If Left (sheet.Name, 3 ) <> "mod" Then ListBox1.AddItem sheet.Name End If Next End Sub Ou alors tu fait une condition pour chaque nom de modèle comme suis Private Sub UserForm_Activate() Dim sheet As Worksheet ListBox1.ListStyle = fmListStyleOption ListBox1.MultiSelect = fmMultiSelectMulti For Each sheet In Worksheets If sheet.Name <> "modèle1" And sheet.Name <> "modèle2" Then ListBox1.AddItem sheet.Name End If Next End Sub Cordialement, Jean-Paul ______________________________________________________________________ Le Savoir n'a de valeur que s'il est partagé

Tonin39 · Answer

en fait ce sont mes mod&#232;les que jveu pa mettre ds ma liste dc comment les enlever de la liste?


 


rep stp

Tonin39 · Answer

autre suggestion stp, ya pa moyen de tt cocher dun coup tte les feuille ke jveu imprimer et apr&#232;s je clique sur ok et ca imprim tt dun coup

stp aide moi jean paul

valtrase · Answer

H&#233; b&#233; c'est ce que fait le code que je t'ai donn&#233; tu coche toutes les feuilles que tu veux imprimer et quand tu clique sur le bouton tu imprimes tout.
Je t'ai donn&#233; un exemple pour &#233;viter d'afficher tes mod&#232;les tu choisi entre les deux solutions.

Cordialement, Jean-Paul  
______________________________________________________________________

Le Savoir n'a de valeur que s'il est partag&#233;

Tonin39 · Answer

ben tu mescusera mai jarrive pas a cocher plusieurs fiches, je peu en cocher kune seule a la fois


dc si tu pouvais maider ca serait cool


merci

valtrase · Answer

Re, as tu bein mis ce code dans l'&#233;v&#233;n&#233;m&#233;nt Activate de ta form ?

 
Private Sub UserForm_Activate() 


  Dim sheet As Worksheet 


  ListBox1.ListStyle = fmListStyleOption
 


  ListBox1.MultiSelect = fmMultiSelectMulti
 




 
 For Each sheet In Worksheets 


    If Left (sheet.Name, 3 ) <> "mod" Then 


      ListBox1.AddItem sheet.Name 


    End If 


  Next 


End Sub 

Cordialement, Jean-Paul  
______________________________________________________________________

Le Savoir n'a de valeur que s'il est partag&#233;

Tonin39 · Answer

question est ce ke des ke tu coche la case ca memorise, parce ke en fait des kon coche une feuille celle coch&#233;e pr&#233;cedement ce decoche juste pour savoir

valtrase · Answer

Re,
B&#233; si t'as mis &#231;a dans UserForm1_Activate
ListBox1.MultiSelect = fmMultiSelectMulti
 
tu peux faire des s&#233;lections multiples dans la mesure ou ta listbox se nome bien ListBox1

Cordialement, Jean-Paul  
______________________________________________________________________

Le Savoir n'a de valeur que s'il est partag&#233;

Impression de feuilles besoin d'aide

16 réponses

Discussions similaires