Inséré Image

[enzo_s]

Hello !

Peut on avoir dans Excel une image différente d'après deux liste déroulante ? Exemple :

FullMesh Rxx :	Yes
FullMesh Vxx :	Yes

Si FullMesh Rxx = yes et FullMesh Vxx = yes tu insère image 1
Si FullMesh Rxx = yes et FullMesh Vxx = NO tu insère image 2
Si FullMesh Rxx = no et FullMesh no = yes tu insère image 3

Les images seront stockées sur mon PC au début et ensuite sur un lien HTTPS

Merci de l'aide

Enzo

 

[job75]

Bonjour enzo_s,

Que veulent dire FullMesh Rxx = yes et FullMesh Vxx = yes ???

Le mieux serait de joindre le fichier Excel et les 3 images (zippées au besoin) !!!

A+

 

[enzo_s]

Salut Job75,

je joins un petit fichier. Dit moi ci c'est pas clair

A++

 

[job75]

Fichier joint avec cette macro dans le code la feuille (clic droit sur l'onglet et Visualiser le code) :

Private Sub Worksheet_Change(ByVal Target As Range)
Shapes("Image1").Visible = LCase([C17]) = "yes" And LCase([C18]) = "yes"
Shapes("Image2").Visible = LCase([C17]) = "yes" And LCase([C18]) = "no"
Shapes("Image3").Visible = LCase([C17]) = "no" And LCase([C18]) = "yes"
End Sub

 

[enzo_s]

Merci beaucoup mais du coup elle sont ou les images dans l'exemple ?

 

[job75]

Merci beaucoup mais du coup elle sont ou les images dans l'exemple ?

Elles sont les unes sur les autres.

 

[enzo_s]

Merci Job75, c'est exactement ça.
Mais pourrais tu svp me dire ou je peux renommé les images (pas dans la macro) ? J'ai ajouté la macro dans mon fichier avec les images mais il me manque un truc.
Enfaîte quand tu insères dans Excel les images, doivent-elles déjà porter le nom Image1 Image2 Image3.
Ou fait on le lien

A++

 

[job75]

Mais pourrais tu svp me dire ou je peux renommé les images

Clic sur l'image : son nom s'affiche à gauche de la barre de formule, on peut le modifier.

 

[enzo_s]

Vraiment désolé, je cherchais ailleurs

Thanks !!!

 

[enzo_s]

Dernière question, si je souhaite ajouter une condition : C15="Office"

J'ai essayé en ajoutant "And LCase([C15]) = "Office"" mais ca fonctionne pas

'Option Explicit

'Private Sub Worksheet_Change(ByVal Target As Range)
'Shapes("Image1").Visible = LCase([C17]) = "yes" And LCase([C18]) = "yes" And LCase([C15]) = "Office"
'End Sub

 

[enzo_s]

Bonjour,
Je reviens avec mes soucis ;-)

J'ai trouvé un moyen de contourner le problème ou je souhaitais ajouter une 3eme condition avec LCase qui n'est pas possible.
Du coup j'ai crée une cellule avec la fomule :

=IF(AND('Basic_info_P-Router'!$C$15="Office";'Basic_info_P-Router'!$C$17="Yes";'Basic_info_P-Router'!$C$18="Yes");"OfficeCompletFullMesh";IF(AND('Basic_info_P-Router'!$C$15="Office";'Basic_info_P-Router'!$C$17="Yes";'Basic_info_P-Router'!$C$18="No");"OfficeRxxFullMesh";IF(AND('Basic_info_P-Router'!$C$15="Office";'Basic_info_P-Router'!$C$17="No";'Basic_info_Pouter'!$C$18="Yes");"OfficeVxxFullMesh";"OfficeNotFullMesh")))

De cette façon j'obtiens une réponse que je récupère dans la macro mais ça ne fonctionne pas.

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
Shapes("OfficeCompletFullMesh").Visible = UCase([C19]) = "OfficeCompletFullMesh"
Shapes("[I]OfficeNotFullMesh[/I]").Visible = UCase([C19]) = "OfficeNotFullMesh"
End Sub

J'essaye déja avec deux images avec de mettre les autres. Dans l'exemple de Job75 cela fonctionne bien mais pas chez moi.

Merci de l'aide

A+

 

[job75]

Bonjour enzo_s,

Vous ne savez pas à quoi servent LCase et UCase ?

Dans le test il faut que le texte soit en MAJUSCULE si l'on utilise UCase, en minuscule si c'est LCase.

A+

 

[enzo_s]

Bonjour Job75,
Maintenant oui ;-)