XL 2016 Code VBA pour Imprimer

AbuTalha

XLDnaute Nouveau
Bonjour à tous;

Permettez vous de m'aider à créer un code vba pour lister et imprimer :

J'ai un fichier avec plusieurs feuilles (+30) et je voudrais avoir dans une feuille « Bien déterminée nommée ‘Contrôle’ à partir du Tableau T 1 jusqu'au la Fin" une liste de noms de cellules verticalement et devant chaque nom je veux avoir un nombre qui indique le nombre de pages à imprimer (qui sera saisi manuellement) : par exemple le chiffre 1 pour imprimer une seule page, 2 deux pages et 0 rien à imprimer et ainsi de suite.


Ce code je vais l’associé à une bouton.


Je serai très reconnaissant si vous pouvez me résoudre cette question...


Très Cordialement
 

Pièces jointes

  • Bilan_Test_Liasse Fiscale 2017_V4 Excel Dld.xls
    1.8 MB · Affichages: 34

Lone-wolf

XLDnaute Barbatruc
Re AbuTalha

@AbuTalha

Moi dans la feuille Contrôle je ne vois pas le nom des feuilles, donc il faut aussi les lister.

EDIT: ton fichier en retour. Double-clique sur la feuille pour lancer la macro.
 

Pièces jointes

  • Bilan_Test_Liasse Fiscale 2017_V4.xlsm
    608.1 KB · Affichages: 35
Dernière édition:

youky(BJ)

XLDnaute Barbatruc
Bonjour Lone Wolf,
J'avais renvoyé un fichier qui fonctionnait bien auprès d'une personne qui me là demandé en message privé.
Je suis surpris de la même demande
Je remets enligne ce fichier que je viens de récupérer
Bruno
 

Pièces jointes

  • Bilan_Test_Liasse Fiscale 2017_V4.xls
    1.8 MB · Affichages: 56

Staple1600

XLDnaute Barbatruc
Bonsoir le forum, le fil

[aparté juste en passant]
Si maintenant le forum bascule dans le peer to peer autant fermer le forum et ne laisser que les conversations privées :D

NB: Il est bien loin l'esprit XLD des années jadis...

[/aparté juste en passant]
 

youky(BJ)

XLDnaute Barbatruc
En fait c'était pas en message privé sur XLD mais directement dans ma boite Mail Orange
C'était le même message que celui du #1 j'ai fait répondre sans trop me poser de question.
Comment se procure t'il nos Email ! ! !
Bruno
 

AbuTalha

XLDnaute Nouveau
Bonjour toute le monde;

@Mr Bruno
navré de vous déranger, je suis le frere de salaheddine, c'est moi qui vous contacter par email (je suis désolé si je vous ai créer un problème avec vos collaborateurs).
Mr salaheddine est actuellement en congé, et il été entrain de chercher un code vba ... que vous m'avez adresser, et j'ai penser s'il y a d'autre façon pour arriver au résultat.

@lone wolf
Navré aussi de vous déranger de ce conflit
Je viens de voir votre message et votre code VBA, je l'ai exécuté mais les pages qui ont >1 impriment que '1' et qui ont '0' s'impriment aussi...
Est ce possible de le rectifier S'il Vous Plait

ENCORE UNE FOIS JE SUIS DESOLE
 

Pièces jointes

  • i'm sorry.jpg
    i'm sorry.jpg
    17.3 KB · Affichages: 32

AbuTalha

XLDnaute Nouveau
Bonjour
@lone wolf

Aujoudhui vers 00h30 j'ai trouvé sur le net un code qui peut me lister tous les onglets d'un classeur excel, vous le trouverez en PJ, et je l'ai testé et ça fonctionnait pour moi :

Sub ListSheets()

Dim ws As Worksheet
Dim x As Integer

x = 1
Sheets("Feuil1").Range("A:A").Clear

For Each ws In Worksheets
Sheets("Feuil1").Cells(x, 1) = ws.Name
x = x + 1
Next ws

End Sub



A vous
 

Pièces jointes

  • S-3 Lister les onglets.xlsm
    18.9 KB · Affichages: 31
  • Screenshot_20180804-003328.png
    Screenshot_20180804-003328.png
    73.5 KB · Affichages: 100
  • Screenshot_20180804-003348.png
    Screenshot_20180804-003348.png
    46.2 KB · Affichages: 35

Statistiques des forums

Discussions
311 730
Messages
2 081 978
Membres
101 854
dernier inscrit
micmag26