Afficher image instantannement

[Pineurne]

Bonjour,

Voila j'ai un petit probleme, c'est juste une question de design. J'ai un programme sous Excel qui a un module de langue. Dans une cellule, je choisis la langue, immédiatement tous les textes se changent et j'aimerais que des images (drapeaux) se changent egalement.

En gros j'ai commencé par ca:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

    If Worksheets("MENU").Range("D9").Value = "Français" Then
    ActiveSheet.Shapes("Picture 199").Visible = True
Else
    ActiveSheet.Shapes("Picture 199").Visible = False
End If

If Worksheets("MENU").Range("D9").Value = "English" Then
    ActiveSheet.Shapes("Picture 202").Visible = True
Else
    ActiveSheet.Shapes("Picture 202").Visible = False
End If

If Worksheets("MENU").Range("D9").Value = "Deutsch" Then
    ActiveSheet.Shapes("Picture 204").Visible = True
Else
    ActiveSheet.Shapes("Picture 204").Visible = False
End If

End Sub

Le problème est que les images ne se modifient pas direct. Il faut cliquer sur une autre cellule ou valider pour qu'elles se changent. Quelqu'un a une idée?

Merciiii d'avancee en tout cas

 

[Cousinhub]

Re : Afficher image instantannement

Bonjour,

au lieu d'utiliser l'évènement Selection_Change, utilise l'évènement Change

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count = 1 Then
    If Target.Address = "$D$9" Then
        ActiveSheet.Shapes("Picture 199").Visible = IIf(Target = "Français", True, False)
        ActiveSheet.Shapes("Picture 202").Visible = IIf(Target = "English", True, False)
        ActiveSheet.Shapes("Picture 204").Visible = IIf(Target = "Deutsch", True, False)
    End If
End If
End Sub

 

[Pineurne]

Re : Afficher image instantannement

OOoooohhh yes merci!! Vraiment brutal!!

 

[Pineurne]

Re : Afficher image instantannement

A oui merci pour la simplification de mon code aussi