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
Peut-on changer cela ?
Merci à vous.
Rubis57
taz067
Octobre 22, 2024, 8:54
2
,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
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.
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.
A une prochaine fois
1 « J'aime »
system
A fermé ce sujet ()
Novembre 21, 2024, 10:11
11
Ce sujet a été automatiquement fermé après 30 jours. Aucune réponse n’est permise dorénavant.