XL 2016 Code VBA pour Imprimer

[AbuTalha]

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

 

[Lone-wolf]

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.

 

[youky(BJ)]

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

 

[Lone-wolf]

Bonsoir Bruno 🙂

@youky(BJ)

Et bien, la même personne m'a aussi parlé par MP et je lui est dit de poster sur le Forum.

 

[Staple1600]

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 😀

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

[/aparté juste en passant]

 

[youky(BJ)]

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

 

[Lone-wolf]

Bonjour Bruno 🙂

@youky(BJ)

À moi il me l'a demandé(adr mail) en MP, mais je ne lui ai pas donné. Son adresse figure aussi sur YouTube et FaceBook, reste à savoir si c'est la même personne.

 

[AbuTalha]

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

 

[AbuTalha]

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

 

[Staple1600]

Bonjour le fil, le forum

[aparté]

Comment se procure t'il nos Email ! ! !
Bruno

Moi aussi, cette question me turlupinait
Alors j'ai investigué et je me suis aperçu qu'il t'a demandé ton mail sur ton profil*
(*dans un message de profil)
Tu es sur que tu ne lui as pas donné ? (puisqu'on peut lire son propre email)
(Voir ici)
[/aparté]

 

[Lone-wolf]

Re à tous

@AbuTalha : regarde le fichier de Youky(BJ) au post #3.

 

[AbuTalha]

Re à tous

@AbuTalha : regarde le fichier de Youky(BJ) au post #3.

Re
Pourquoi, c'est quoi le but !

 

[Lone-wolf]

Re

@AbuTalha

Test le fichier, c'est si compliqué que ça?

 

[AbuTalha]

Bonsoir à tous;

@Bruno
@Lone-wolf

C'est un Travail d'un Grand Chef d'Excel; il porte des codes de haut niveau et directement vers le Goal.

Thank You