Discussion :

[titi08]

Bonjour à toutes et à tous et

Je butte actuellement sur un problème de macro VBA qui me permettrait, au travers d'un bouton placé sur une feuille et d'une valeur dans une cellule donnée, de lancer l'impression d'une zone définie sur une autre feuille en fonction de la valeur dans la cellule en question.
C'est vrai que je ne suis pas un PRO du VBA et je n'ai pas réussi à adapter les nombreuses macros approchantes que j'ai déjà pu consulter.

Sur l'exemple, dont je vous en joins le fichier, selon que la cellule H6 de la feuille "Développement" vaut 1, 2, 3, 4 ou 5, je souhaiterais faire imprimer les plages A1:J28, A1:J39, A1:J50, A1:J61 ou A1:J72 de la feuille "Imprime".

Une autre difficulté, qui n'a rien à voir avec la première et qui ne me semble pas réalisable simplement, est de pouvoir modifier la police de caractère des boites de sélection. Je n'ai trouvé aucune sélection de police de caractère possible dans les box des zones de liste utilisées. Peut être faut il utiliser d'autres objets de sélection ...

Merci d'avance pour l'aide que vous pourrez m'apporter dans la programmation de ce fichier qui me simplifierait grandement mon activité.
Cordialement,

[Menhir]

Pour réaliser une action sur une autre feuille, il suffit de préciser Worksheets("XXX") (XXX etant le nom de l'onglet cible) en parent de la méthode ou de la propriété utilisée.

Pour définir une zone d'impression, il faut utiliser la propriété PageSetup.PrintArea de ton objet Worksheet.

Pour lancer une impression, il faut utiliser la méthode PrintOut de ton objet Worksheet.

Regarde ces termes dans l'aide VBA intégrée à Excel.

Qu'est-ce que tu appelles une "boite de sélection" ?

[titi08]

Bonjour Menhir et merci de prendre un peu de ton temps pour plancher sur mon PB.

J'appelle une boite de sélection, les formats de contrôles qui permettent d'afficher une liste déroulante. Je t'ai mis une photo en PJ pour préciser la chose !
Je n'arrive pas à augmenter la taille de la police de caractères même si je change la police dans la zone où le format de contrôle fait référence. Sur la photo, c'est l'objet dans lequel il y a marqué "Albatre".

Pour ta réponse quant à l'impression, je vais essayer de construire une macro, mais je ne suis pas un spécialiste de la chose ; je fais souvent du copier/coller et j'adapte à mon besoin ...


A bientôt,

[titi08]

Re bonjour,

Après avoir envoyé mon précédent commentaire, j'ai pensé à une autre solution ... qui me parait simple mais peut être aussi même "Géniale", malheureusement pas encore testée (:!!!
En utilisant la mise en forme conditionnelle des cellules qui ne doivent pas être imprimées en fonction de la valeur de la cellule de référence (H6), je paramètre donc les cellules de la page "Imprime" pour les mettre en écriture blanche sur fond blanc.
Je reste pour autant intéressé par la solution VBA, juste pour l'élégance de la programmation et aussi parce que je ne sais pas si ma solution fonctionnera ...

Je vous tiendrais bien entendu informé de la suite,
Cordialement,

[Menhir]

J'appelle une boite de sélection, les formats de contrôles qui permettent d'afficher une liste déroulante. Je t'ai mis une photo en PJ pour préciser la chose !
Je n'arrive pas à augmenter la taille de la police de caractères même si je change la police dans la zone où le format de contrôle fait référence.

A ta place, j'utiliserai plutôt une liste déroulante faite avec une validation de données.
Ruban Données > Icone Validation de données > Validation de données > Autoriser = Liste
Même si ça ne résout pas ton problème, tu as au moins l'affichage du résultat dans le format que tu souhaites (et c'est plus simple à gérer).

je paramètre donc les cellules de la page "Imprime" pour les mettre en écriture blanche sur fond blanc.

Attention. Certaines imprimantes noir et blanc convertissent toutes les couleurs en noir pour éviter les problèmes de gris trop clairs (par exemple quand on imprime du jaune).

[titi08]

Re Bonjour,

Solution "Géniale" de mise en forme conditionnelle testée ... et là c'est moins génial parce que la mise en forme conditionnelle n'est possible que sur une même feuille ! Ou pas, mais alors dites moi comment ???

Pour ce qui est des listes, je vais bien sûr adopter la méthode à Menhir qui est effectivement beaucoup plus simple que ce que j'avais mis en place !
MERCI beaucoup Menhir.

[Menhir]

la mise en forme conditionnelle n'est possible que sur une même feuille ! Ou pas, mais alors dites moi comment ???

Comme pour toute autre formule : en mettant devant la référence le nom de l'onglet suivit d'un point d'exclamation.

[titi08]

Non, mettre le nom de la feuille devant et le ! ne fonctionne pas _ mais, ça n'empêche pas de renvoyer la valeur de la cellule de l'autre feuille vers la feuille d'impression !
Merci Menhir pour votre contribution à la construction de mon fichier.
Je vais travailler avec tout ça maintenant pour faire la macro qui va bien.

Mon problème est résolu ou presque !

A bientôt

[titi08]

Bonjour à tous,

Voilà, j'ai écrit un code qui fait à peu près ce que je voulais faire. Ce n'est certainement pas très pro comme programmation, mais ça marche!
Merci encore Menhir pour tes contributions et l'aide à ma réflexion personnelle !
Bye

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
Sub ImprimSitu()
ThisWorkbook.Worksheets("Imprim").Activate
 
If Range("D7") = 2 Then
ActiveSheet.PageSetup.PrintArea = "$A$1:$J$39"
End If
If Range("D7") = 3 Then
ActiveSheet.PageSetup.PrintArea = "$A$1:$J$50"
End If
If Range("D7") = 4 Then
ActiveSheet.PageSetup.PrintArea = "$A$1:$J$61"
End If
If Range("D7") = 5 Then
ActiveSheet.PageSetup.PrintArea = "$A$1:$J$72"
End If
 
With ActiveSheet.PageSetup
.CenterHorizontally = True
.Orientation = xlPortrait
.FitToPagesWide = 1
.FitToPagesTall = 1
End With
 
ActiveSheet.PrintOut
ThisWorkbook.Worksheets("Developpement").Activate
End Sub