choisir les sections à imprimer sur plusieurs onglets

  • Initiateur de la discussion Initiateur de la discussion arcole
  • 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 !

arcole

XLDnaute Nouveau
bonjour à tous,

je cherche desespéremment une solution à mon probleme mais, même aprés visite de nombreux forums, je n'y arrive pas (je ne suis pas expert en vba surtout pour l'impression 😉 )

voilà j'ai un classeur avec plusieurs onglet dans ces onglet il y a des données réparties sur quatre feuilles.

Je voudrais pouvoir imprimer un ou tous onglet, mais n'imprimer que les feuilles remplies sur chaque onglet (imprimer juste la feuille 1 et 2 si remplies et pas la 3 et la 4 si vide)

De plus aurait-il un moyen pour affecter cela au bouton imprimer de mon classeur (seulement)

quelqu'un aurait une idée pour m'aiguiller?

Merci d'avance.
 
Re : choisir les sections à imprimer sur plusieurs onglets

Bonjour
Voici une solution

Si tes feuilles sont remplies avec un formule tu ajoutes un a la cellule a1
Apres tu fais copier coller avec ce code (module)

tu modifies les noms de pages

Private Sub CommandButton1_Click()

Dim X As Integer
X = Range("a1")

If X = 1 Then
Sheets("1").PrintOut
End If

If X = 2 Then
Sheets(Array("1", "2")).PrintOut
End If

If X = 3 Then
Sheets(Array("1", "2", "3")).PrintOut
End If

If X = 4 Then
Sheets(Array("1", "2", "3", "4")).PrintOut
End If


End If


A+🙂
 
Re : choisir les sections à imprimer sur plusieurs onglets

salut Sylvain

merci pour ta réponse, cependant ce n'est pas tout a fait ce que je cherche a faire.

Ton code dit d'imprimer la feuille correspondant a la cellule a1, mais moi je cherche le moyen d'imprimer differente apge d'un onglet (qui en comporte quatre) selon le remplissage de la feuille, pour éviter d'imprimer des pages blanches.

Je joint un fichier pour expliquer ce que je recherche

Merci
 

Pièces jointes

Re : choisir les sections à imprimer sur plusieurs onglets

Salut le Forum
Voici un code que j'ai dénicher il été dans mon grenier dont je remercie vivement son auteur adapte le a ton cas de figure :

Code:
Convertit un tableau en plusieurs colonnes et insère des sauts de page

Sub Imprime()
FeuilleConvertir = "ConversionTableau"
ligneSource = 2          ' ligne de départ
largeurSource = 2        ' largeur source (nb colonnnes)
hpageDest = 10           ' hauteur page destination
ncolDest = 2             ' nb colonnes desintation
ligneDest = 2
'--------
nbenreg = Sheets(FeuilleConvertir).Cells(ligneSource, 1).CurrentRegion.Rows.Count
Sheets("edition").ResetAllPageBreaks
Sheets("edition").Cells.Clear
For col = 1 To ncolDest    ' en têtes de colonne
    Sheets(FeuilleConvertir).Cells(ligneSource - 1, 1).Resize(1, largeurSource).Copy _
       Sheets("edition").Cells(1, (col - 1) * largeurSource + 1)
Next col
'--
Do While Sheets(FeuilleConvertir).Cells(ligneSource, 1) <> ""
  For col = 1 To ncolDest
    Cells(ligneSource, 1).Resize(hpageDest, largeurSource).Copy _
       Sheets("edition").Cells(ligneDest, (col - 1) * largeurSource + 1)
    Sheets("edition").Cells(ligneDest, (col - 1) * largeurSource + 1).Resize(hpageDest, largeurSource).BorderAround Weight:=xlThin
    ligneSource = ligneSource + hpageDest
  Next
  Sheets("edition").HPageBreaks.Add Before:=Cells(ligneDest + hpageDest, 1)
  ligneDest = ligneDest + hpageDest
Loop
Sheets("edition").Select
End Sub
 
Re : choisir les sections à imprimer sur plusieurs onglets

bonjour,

merci BERRACHED said pour ton code.

mais je n'arrive pas à l'adpter à mon classeur 😱

voilà ce que j'ai fait :

--Sub Imprime()
--FeuilleConvertir = "ConversionTableau"

j'ai converti tout les "FeuilleConvertir" par le nom de ma feuille,j'ai créer une feuille "ConversionTableau" ainsi qu'une feuille "edition", je ne sais pas si c'est cela qu'il fallait faire.

Je pense que c'est la première ligne qui me pose un soucis, mais je n'arrive pas à savoir la syntaxe pour indiquer que "mafeuille"="conversiontableau",
car je suppose que l'on prend les données de "mafeuille" pour les intergrer à "conversiontableau" qui est ensuite retranscrit dans "edition".

je ne sais pas si c'est bien clair tout cela, désoler mais je ne suis pas un as en vba ( cela se voit non? 🙁)

merci encore pour ta réponse, bonne journée
 
Re : choisir les sections à imprimer sur plusieurs onglets

Re Bonjour

Voici ton fichier revu

Je pense que c'est ce que tu désires

Il te faudra mettre un bouton sur chaque feuille et lui associer la macro imprime

Tu peux redéfinir les zone d'impressions dans le module VBA

A+🙂
 

Pièces jointes

Re : choisir les sections à imprimer sur plusieurs onglets

bonjour Sylvain,

merci pour cette solution, je vais l'adapter à mon fichier (si j'en suis capable 😱 )

Elle n'est pas automatique mais c'est un début 🙂

je vais voir si j'arrive à faire la même userform, en demandant par exemple que :

-imprime que la page1 de la feuille1 si les cellules b68, b120 et b170 sont vides
-imprime les pages 1 et 2 de la feuille1 si les cellules b120 et b170 sont vides
-imprime les pages 1 , 2 et 3 de la feuille1 si la cellule b170 est vide

et ainsi de suite pour mes 10 feuilles du classeur 😕.

Je ne desespère pas 😛 mais j'aurais surement encore besoin de votre aide ou alors je m'étonnerai beaucoup 😉

Merci encore à tous, votre aide m'a été trés précieuse.

bonne journée de la part d'un débutant en vba.
 
- 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

Discussions similaires

Retour