Microsoft 365 imprimer feuille selon valeur cellule

[juju91]

Bonjour à toutes et à tous,

Je viens vous solliciter concernant une problématique que je rencontre.
J'ai un fichier avec plusieurs onglets dont un qui me sert de page de ''garde''
Dans cette onglet le nom de chaque onglet est indiqué dans des cellules (plusieurs colonnes pour chaque type de feuilles) qui sont a valider avec des checkbox.
J'ai réussi a créé un code, avec une boucle, pour imprimer les feuilles qui correspondent aux noms qui sont dans les cellules de la page de "garde" pour une colonne à la fois.

Mais je souhaiterais pouvoir imprimer toutes les feuilles ''sélectionnés'' .

Existe t il une méthone pour effectuer plusieurs boucles, les une derrière les autres.

Ne sachant pas si ma demande est très claire, je mets en PJ un fichier simplifié.

Merci aux bonnes âmes qui pourront m'aiguiller .

 

[vgendron]

bonjour

je ne comprend pas bien ta présentation des onglets à imprimer..
pourquoi ta (tes) boucle va jusqu'à ligne 24 ?
pourquoi il y a plusieurs cases à cocher sur la colonne O (self) alors qu'il n'y a qu'une feuille "Self"
et pourquoi "Vitrine1 2°C en O2 ??
pourquoi les colonnes A à K sont elles masquées??

et c'est quoi les listes en colonne L M et N ?

 

[vgendron]

Regarde la PJ
1) sur ta feuille base, j'ai ajouté un bouton pour lister les onglets dans la Table Structurée de la colonne B et C
2) double clic sur la colonne "Imprimer" pour selectionner les feuilles à imprimer
3) un bouton pour imprimer les feuilles sélectionnées

regarde le code, j'ai mis des commentaires

 

[juju91]

Bonjour et merci d'avoir passé du temps sur mon problème .
En effet le fichier transmis n'etait pas clair, désolé.
ci-joint un nouveau dossier qui devrait être plus clair , j'espère.

Dans l'onglet ''base'' :

dans les colonnes ABC, c'est la base de donnée
A = Lieu
B = Matériel disponible + check box qui sert à valider l'utilisation du matériel
C = cellule liée au check box

En Colonne O ont affecter, via une formule, le matériel qui va dans la zone ''self'' ( qui est défini par la basse de donnée (colonne ABC) zone .
En colonne P on récupère l'utilisation ou non du matériel .
ETC , sachant que dans le fichier final _j'aurais 15 zones...

Pour chaque zone je peux imprimer ( via la bouton correspondant) les onglets correspondant aux matériels présents dans la liste et qui sont utilisés, ceux qui ne sont pas utilisés le seront peut-être a un moment ou leur présence et ainsi de suite pour toutes les zones.

Mon problème est que je souhaiterais pourvoir lancer les impressions de toutes les zones les une après les autres.

Et c'est la que je bloque...

Encore merci de passer du temps sur mon ''petit'' problème qui en est un très gros pour moi..

Cdt

 

[vgendron]

Pour chaque zone je peux imprimer ( via la bouton correspondant) les onglets correspondant aux matériels présents dans la liste et qui sont utilisés, ceux qui ne sont pas utilisés le seront peut-être a un moment ou leur présence et ainsi de suite pour toutes les zones.

Hello
pour faire une boucle de boucle, il suffit de faire un for imbriqué: exemple dan le genre
For colonne= ColO to ColS ' pour chaque zone
for i=1 to 24 'pour chaque ligne de la zone
NomFeuille=cell(i,j)
impression de la feuille
next i
next colonne


mais cela dit, je pense que le premier problème à corriger, c'est la présentation de tes données..
si je comprend bien
1) il y a une liste de zones (une quinzaine===> il faut toutes les lister UNE SEULE fois
2) idem pour la liste de matériel

3) dans chaque zone, tu peux utiliser un ou plusieurs matériels
question: est ce que UN matériel peut etre utilisé dans plusieurs zones en MEME temps?

il suffirait de faire une matrice avec
les zones en ligne, et les matériels en colonnes
avec une croix à l'intersection du matériel et de sa zone..

 

[vgendron]

regarde la PJ avec la "matrice" dont je te parlais

un double clic pour mettre une croix, ou l'enlever

au cas ou un matériel ne peut etre utilisé que dans une SEULE zone à la fois, il suffit de décommenter les lignes de code (dans l'évènement _doubleclic de la feuille base)

if target="X" then
...
end if

 

[juju91]

Bonjour
Merci de votre retour , désolé pour mon retour tardif.
Je vais travailler sur cette base