Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Image, imprimer ou pas selon un critère

Carnage029

XLDnaute Occasionnel
Bonjour à tous,

J'ai cherché sur le forum ou sur la documentation, mais je n'arrive pas à trouver mon bonheur , j'ai du code VBA qui me permet d'afficher des image (en gros c'est un tampon d'entreprise),

Il y'a 4 images de tampon les unes sur les autres et je souhaiterai que un seul soit visible en fonction d'une variable (disons sigleC) qui existe déjà dans ma procédure...

Je pense qu'il faut utiliser un truc du genre

ActiveSheet.Shapes("Image 1").

et après je sais pas trop...

Merci de votre aide encore une fois
 

Gurgeh

XLDnaute Occasionnel
Re : Image, imprimer ou pas selon un critère

Salut Carnage029,

Il te faut utiliser la propriété .PrintObject des objets Shape, qui te permettra en fonction du critère que tu veux de décider si telle ou telle image s'imprime.

Gurgeh
 

Carnage029

XLDnaute Occasionnel
Re : Image, imprimer ou pas selon un critère

J'ai une erreur lorsque j'écris ça : ActiveSheet.Shapes("Image 20").PrintObject = False

Il me met Propriété ou méthode non gérée par cet objet
 

Carnage029

XLDnaute Occasionnel
Re : Image, imprimer ou pas selon un critère

Désolé, mes les informations sont vraiment confidentielles, je ne peux pas les changer

Bon, je vais essayer de trouver d'ou viens cette erreur

Merci quand même
 

Carnage029

XLDnaute Occasionnel
Re : Image, imprimer ou pas selon un critère

Question résolue, j'ai en fait fait un

ActiveSheet.Pictures.Select
With Selection
.PrintObject = False
End With

puis activé à true manuelle pour celles que je souhaitais imprimer

comme suit :

dim thetampcomp as string ' c'est le nom de mon image dans le document'

ActiveSheet.Shapes(thetampcomp).Select ' plus généralement ActiveSheet.Shapes("Image 1").Select
With Selection
.PrintObject = True
End With


En espérant aider certains

PS : chez moi thetampcomp prend la valeur d'un rechercheV en vb (donc lookup)
 

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…