Discussion :

[uffo86]

bonjour

après beaucoup de recherche je ne trouve pas mon bonheur
et je n'y connais rien en vba car apparemment mon problème ne peu ce résoudre qu'avec vba

j'ai 2 images a faire afficher avec 3 conditions et donc une condition sans faire apparaitre d'image

je peu enregistrer les 2 photos sur une feuille différente de la ou elle doivent s'afficher car elle sont très petite en taille, si cela est possible car je sauvegarde le fichier excel sur une clef usb

pour la condition "portrait" d'une liste déroulante en G2 je voudrai afficher "image1.jpg" (si possible stocker sur une autre feuille) en C20
pour la condition "paysage" d'une liste déroulante en G2 je voudrai afficher "image2.jpg" (si possible stocker sur une autre feuille) en B20
pour la condition " " de la liste déroulante en G2 ne rien afficher

je ne vous cache pas que pour moi cela parait très très compliqué


merci d'avance

PS: je ne peu pas joindre de fichier .xlsx

[sabzzz]

bonjour uffo86,

il faudra adapter le nom des feuilles,

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
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$G$2" Then
Select Case Feuil1.Range("G2")
Case "portrait"
  Feuil2.Shapes(1).OLEFormat.Object.Visible = False
  Feuil3.Shapes(1).OLEFormat.Object.Visible = True
Case "paysage"
  Feuil2.Shapes(1).OLEFormat.Object.Visible = True
  Feuil3.Shapes(1).OLEFormat.Object.Visible = False
Case " "
  Feuil2.Shapes(1).OLEFormat.Object.Visible = False
  Feuil3.Shapes(1).OLEFormat.Object.Visible = False
End Select
End If
End Sub

[uffo86]

merci Isabelle

je vous joins le fichier (en .xls au lieu de .xlsx) en question pour plus de compréhension de ma part

les images sont sur la feuille 2 (Références) car comme je l'es précisé je n'y connais rien en vba

dans le code je ne vois nul part le nom des images, est ce normal ?
ou et comment entrer le code

et si c'était possible une explication du code pour me permettre de comprendre la logique (j'ai fait un peu de codage pour fabrication de site)

merci d'avance

[sabzzz]

il faut faire un clic droit sur l'onglet "Calcul" et choisir "Visualiser le code" et coller le code suivant à cette endroit.
ps/ j'ai adapté au nom de tes feuilles et des images.

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
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$G$2" Then
Select Case Feuil1.Range("G2")
Case "Portrait"
  Feuil2.Shapes("Picture 2").OLEFormat.Object.Visible = False
  Feuil2.Shapes("Picture 3").OLEFormat.Object.Visible = True
Case "Paysage"
  Feuil2.Shapes("Picture 2").OLEFormat.Object.Visible = True
  Feuil2.Shapes("Picture 3").OLEFormat.Object.Visible = False
Case ""
  Feuil2.Shapes("Picture 2").OLEFormat.Object.Visible = False
  Feuil2.Shapes("Picture 3").OLEFormat.Object.Visible = False
End Select
End If
End Sub

[uffo86]

merci une nouvelle fois Isabelle

j'ai modifier le code car en fait je voulais faire apparaitre les images sur la feuille 1 mais je penser qu'il fallait les stocker ailleurs
j'ai donc couper/coller les images sur la feuille1 en les placement exactement ou je les voulais puis j'ai copier ton code en remplacent feuille2 par feuille1

j'ai plus qu'a faire en sorte que rien ne s'affiche (#NA, #VALEUR) lorsque rien n'est sélectionner

peu etre je reviendrai t'embêter pour faire apparaitre le résultat final en image multiple mais je vais déjà voir par moi même si je le fait et comment

bravo et encore merci

[uffo86]

re bonjour

snif ca ne fonctionne plus, je n'ai pourtant pas touché au code

seulement une fois enregistré au format macro quand je l'ouvre de nouveau le code est présent mais ne fonctionne plus

[sabzzz]

bonjour uffo86,

c'est peut être les événements de ton application qui ont été déactivés, pour les réactiver execute cette macro,

Code :

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

1
2
3
Sub ActiveÉvénement()
Application.EnableEvents = True
End Sub

et refait un essai.
a+

[Pierre Fauconnier]

Bonjour

Mon grain de sel juste pour préciser que si c'est pour une utilisation ponctuelle et immédiate, il n'est pas nécessaire de créer une procédure pour rétablir les événements. On peut saisir la ligne à exécuter directement dans la fenêtre d'exécution (CTRL+G). On peut aussi, via cette fenêtre, tester ou modifier des variables en mode pas à pas...

Dans le cas de réactiver les événements, il suffit donc de saisir

Code :

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

Application.EnableEvents = True

dans la fenêtre d'exécution (immediate, en anglais) puis de valider par Enter

[uffo86]

bonjour isabelle et pierre

ca ne seras pas ponctuel mais plutôt un outil de travail lors de mes démarches clients quasi journalier

ce nouveau code je l'écrit a quel endroit par rapport a l'ancien ?
car je viens de l'intégré avant l'ancien et cela ne fonctionne toujours pas

désolé pour mon ignorance

[sabzzz]

bonjour uffo86, Pierre,

pour ce qui est de la macro "ActiveÉvénement" il faut mettre ce code dans un module standard, et l'executer une fois seulement.
pour ce qui est de la suggestion de pierre, c'est comme il a dit

saisir la ligne à exécuter directement dans la fenêtre d'exécution (CTRL+G)

[Fvandermeulen]

Bonjour,
Je me permets de joindre un fichier de Gaetan Mourmant qui utilise la fonction Decaller pour changer une image en fonction d'une liste de validation.

Ca me semble correspondre au besoin.

A+

[uffo86]

comme ca sera une application que j'utiliserai devant mes clients et quotidiennement je préfère le code d'Isabelle
mais qu'est ce que tu entend par module standard ?

Fvandermeulen le fichier joins est a peu prêt ce que je veu réaliser mais je comprend pas comment il as réussi cela malgré l'explication

[sabzzz]

Code :

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

mais qu'est ce que tu entend par module standard ?

lorsque tu fais un click droit sur le VBAproject, à "Insetion" tu as 3 choix,
UserForm, Module et Module de classe. c'est Module que je voulais signifier en parlant de module standard, lorsque l'on insere des Module, ceux ci sont nommé par default Module1, Module2, etc.

[Fvandermeulen]

Salut,

La formule Decaler doit être mise dans la définition du nom (comme quand on défini un nom pour une plage).

Le seul truc que je viens de voir, c'est que dans son explication de la formule il utilise Feuil1 alors que la feuille s'appelle DECALER.

Donc va voir dans les définitions de noms et tu comprendras, donc tu pourras adapter à ton cas si tu préfère cette solution au code.

A+