Sondage :

Publicité




Partenaires




Jmax-Hardware

mxdev.net

feedburner
donate.gif


1 visiteur(s) en ligne
Forums d'entraide informatique - Les forums de PCW
probleme pour imprimer des onglet rajouter - Version imprimable

+- Forums d'entraide informatique - Les forums de PCW (http://forum.pcinfo-web.com)
+-- Forum : Forum Informatique (/forumdisplay.php?fid=39)
+--- Forum : Autres (/forumdisplay.php?fid=17)
+--- Discussion : probleme pour imprimer des onglet rajouter (/showthread.php?tid=5867)

probleme pour imprimer des onglet rajouter - veve890 - 09-05-2015 08:10 AM

Voici mon problème :rrr:
J ais un classeur Excel avec plusieurs onglet mes des fois
J ais besoin de copier un onglet ou deux ou trois et…
Et j ais un userform pour imprimer les onglets soit recto verso ou que recto
Sur userform imprimer tous les onglets apparaisse même se que je fais la copie
Dans chaque feuille non copier dans la cellule Z1 il y a une réf pour savoir si
Ont doit imprimer en recto c est R ou recto verso c est RV
Don dans userform je sélectionne les feuilles que je jeux imprimer
Pour les feuille non copier cela marche bien mes pour les onglets copier il imprime
Les onglets originaux je vous mes mon code pour trouver une solution
Merci
Private Sub CommandButton3_Click()
'Memorise la feuille de depart pour la restaurer à la fin
Dim myActualSheet
myActualSheet = ActiveSheet.Name





Dim i As Integer
For i = 0 To lstPrintSheets.ListCount - 1

If lstPrintSheets.Selected(i) Then

'recupere le nom de la feuille selectionnee
Dim mySheetName As String
mySheetName = lstPrintSheets.List(i)
'*******************************************************************************​*
' Recupere la valeur de la cellule qui indiquera le format d'impression
Sheets(mySheetName).Select
Select Case Sheets(mySheetName).Range("Z1").value
Case "RV"
ImpressionRectoVerso
Case "RV2"
ImpressionRectoVerso2
Case "RV3"
ImpressionRectoVerso3
Case "RV5"
ImpressionRectoVerso5
Case "RV6"
ImpressionRectoVerso6
Case "R"
ImpressionRecto
Case "D"

End Select
'*******************************************************************************​*
End If
Next i

'restaure la feuille de depart
Sheets(myActualSheet).Select
End Sub




Sub ImpressionRectoVerso()
Sheets(Array("FINISSEUR", "DIMENSIONNEL FINISSEUR")).PrintOut , , 1

End Sub
Sub ImpressionRectoVerso2()
Sheets(Array("EBAUCHEUR", "DIMENSIONNEL EBAUCHEUR")).PrintOut , , 1
End Sub
Sub ImpressionRectoVerso3()

Sheets(Array("MOULE DE BAGUE", "NOYAU-RONDELLE-DE-BUSETTE")).PrintOut , , 1
End Sub

Sub ImpressionRecto()
ActiveSheet.PrintOut
End Sub
la je suis vraiment bloque c est fait plusieurs jours que je suis decu
Mais je ne trouve pas
Merci pour votre aide

RE: probleme pour imprimer des onglet rajouter - Troll - 13-06-2015 05:07 AM

Salut à toi et :bienvenue: !

Je suis désolé mais je ne comprends pas grand chose à ton poste. Non seulement les phrases ne me semblent pas se suivre grammaticalement mais en plus je n'y connais pas grand chose à Excel.

Malheureusement, le mieux que je puisse te proposer c'est de demander sur un forum spécialisé Excel comme http://forum.excel-pratique.com/

N'hésites pas à revenir nous voir pour d'autres soucis ! Mais pour Excel c'est probablement mieux de demander là-bas Wink