Affichage Image sous Condition

[ljoue]

Affichage Image sous Condition [Résolu]

Bonjour à tous,

J'aimerais afficher une image si par ex A1 = TOTO et une autre si A1 est différente de TOTO.
En cherchant sur le forum j'ai trouvé le code mais je n'arrive pas à l'adapter avec 2 images.
Voici le code que j'ai tapé (mais qui ne fonctionne pas...) :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Range("A1") = "TOTO" Then
Shapes("Image 1").Visible = True And Shapes("Image 2").Visible = False
Else
Shapes("Image 1").Visible = False And Shapes("Image 2").Visible = True
End If
End Sub

Pouvez vous m'aider à corriger le code.

Merci d'avance.

Cordialment,
Laurent

 

[ERIC S]

Re : Affichage Image sous Condition

Bonjour

utilise l'enregistreur de macro et bouge successivement tes images

en regardant le code tu connaîtras leur nom

image 1 est peut-être picture 2 ....

A+

 

[ljoue]

Re : Affichage Image sous Condition

Bonjour Eric,

Le problème ne vient pas du nom des images mais de la syntaxe du code

Merci qd même.

 

[ERIC S]

Re : Affichage Image sous Condition

re

plus c'est gros et moins on le voit, les and ne sont pas utilisables, il faut mettre sur 2 lignes (ou utiliser : pour séparer). j'ai ajouté Ucase pour convertir A1 en majuscule ce qui permet d'écrire toto Toto TOTO...

If UCase(Range("A1")) = "TOTO" Then
Shapes("picture 1").Visible = True
Shapes("Picture 2").Visible = False
Else
Shapes("Picture 1").Visible = False
Shapes("Picture 2").Visible = True
End If

A+

 

[ljoue]

Re : Affichage Image sous Condition [Résolu]

Merci beaucoup t'es un As...Ca marche impec !

Bonne journée.