99 visiteur(s) en ligne
Date actuelle : 22-11-2017, 17:22 PM Bienvenue, Visiteur ! ( Identification S'enregistrer )







 
probleme pour imprimer des onglet rajouter
 
Note de cette discussion :
  • Moyenne : 0 (0 vote(s))
  • 1
  • 2
  • 3
  • 4
  • 5
Auteur Message
veve890 Hors ligne
Newbie
*

Messages : 1
Inscription : May 2015
Réputation : 0
Message : #1
probleme pour imprimer des onglet rajouter
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
09-05-2015 08:10 AM
Trouver tous les messages de cet utilisateur Citer ce message dans une réponse
Troll Hors ligne
Trolls' master
******

Messages : 15 806
Inscription : Mar 2006
Réputation : 21
Message : #2
RE: probleme pour imprimer des onglet rajouter
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

Un poste sans accent ? La faute au clavier qwerty :/
|| Merci de mettre des titres explicites !!! || La bouille à Troll ? || 
Vous voulez remercier l'équipe du forum ? Participez ! Exprimez-vous ! Revenez et parlez de ce que vous voulez ! Wink Image: actualites-informatiques-pcw.1.gif
13-06-2015 05:07 AM
Visiter le site internet de cet utilisateur Trouver tous les messages de cet utilisateur Citer ce message dans une réponse




Discussions apparemment similaires...
Discussion : Auteur Réponses : Affichages : Dernier message
  Stage pour la 3ème - Informatique MisterBoss 11 25 805 19-09-2017 07:53 AM
Dernier message: ghous
  Avis pour achat d'une unité centrale rantanplan 1 2 311 25-05-2017 10:21 AM
Dernier message: rantanplan
  Avis pour achat Téléphone portable buzzmansai 7 2 806 10-04-2015 04:34 AM
Dernier message: Troll
  Impossible d'imprimer un document Word pechesurprise 2 3 468 31-08-2012 07:45 AM
Dernier message: Informaticien zero
  Aide pour VBA sous Excel 2010 Aurely 2 3 583 05-04-2012 20:36 PM
Dernier message: Troll
Lightbulb Film pour mp3 Lolita 5 2 995 25-03-2012 11:30 AM
Dernier message: Troll
  probleme messenger jpamiens 9 3 027 02-11-2011 12:50 PM
Dernier message: Troll
  [Résolu] besoin d'avis urgent pour achat compulsif... buzzmansai 9 3 645 11-10-2011 17:00 PM
Dernier message: buzzmansai
  problème pour installer un jeu "fire warrior" Luaine 3 4 391 17-07-2011 20:21 PM
Dernier message: Troll
  [Résolu] conseil pour la création d'un forum roleplay Luaine 34 10 299 21-09-2010 07:27 AM
Dernier message: Luaine

Aller à :


Utilisateur(s) parcourant cette discussion : 1 visiteur(s)