Affichage volet

Bonjour,

est ce quelqu’un a déjà eu ce problème.

Lorsque j’active ma macro ci-dessous, afin qu’il imprime il m’affiche à chaque fois ce volet à droite !

   With ActiveSheet
        .Range("I:I,J:J,K:K,L:L,M:M").EntireColumn.Hidden = False
        .Range("Tab_1[Qté Stock inventaire]").Interior.ColorIndex = xlColorIndexNone
        .Range("Tab_1[Stock réel]").Interior.ColorIndex = xlColorIndexNone
        .Range("Tab_1[Stock réel]").Font.ColorIndex = 1
        .PrintPreview
        If MsgBox("Voulez vous Imprimer ?", vbYesNo) = vbYes Then
        .PrintOut
        .Shapes("Rectangle : coins arrondis 6").Visible = False
        End If
    End With
   Sheets("STOCK").Activate

affichage volet

Peut-on changer cela ?

Merci à vous.

Rubis57

,Hello
n’ayant aucune connaissance avancée en VBA, n eserait ce pas cette ligne qui cree cela ?

1 « J'aime »

Salut taz,

non j’ai essayé et cela ne change rien !

Bonjour,
Peux-tu nous envoyer un fichier d’exemple stp ?
Will

Bonjour Will,

trop compliqué !

ah, la forme est elle un bouton que vous cliquez pour déclencher votre macro ?

oui exact, je ne comprends pas sur d’autres onglets j’ai le même principe et aucune erreur !

Essayez de l’déplacer un petit peu loin pour qu’elle ne rentre pas dans ta zone d’impression après tu peux desactiver la ligne ou tu masques cette forme (pour voir).
exemple en le commentant avec une apostrophe avant.
image

1 « J'aime »

Rien à faire ! C’est toujours pareil

Je crois avoir trouvé l’erreur.
Comme le bouton se trouve sur l’onglet qui sera imprimé, je n’ai donc pas besoin de la ligne

Sheets("STOCK").PrintPreview

je viens de la supprimer et après quelques essais cela a l’air de fonctionner.

Merci Will et taz pour votre intervention. :+1:
A une prochaine fois

1 « J'aime »

Ce sujet a été automatiquement fermé après 30 jours. Aucune réponse n’est permise dorénavant.