disparition d'une image quand des conditions sont remplies

[306255]

Bonjour à tous,

dans mon document j'aimerais que quand toutes les conditions sont requises :

toutes les cases jaunes sont remplies et que la caisse est correct, dans l'exemple : E4= 1 et L17= 2 alors l'image de l'imprimante Groupe 11 disparait laissant alors apparaitre un bouton permettant l impression et la mise à zéro

Merci pour votre aide

 

[phlaurent55]

Re : disparition d'une image quand des conditions sont remplies

Bonjour xxxxxxxxxx

avec ce code:

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("E4,E6,E8,E10,E12,D14,E18,E20")) Is Nothing Then
Application.ScreenUpdating = False
ActiveSheet.Shapes("Bouton 2").Visible = True
ActiveSheet.Shapes("Groupe 11").Visible = False
For Each cellule In Range("E4,E6,E8,E10,E12,D14,E18,E20")
    If cellule = "" Then
    ActiveSheet.Shapes("Groupe 11").Visible = True
    ActiveSheet.Shapes("Bouton 2").Visible = False
    End If
Next cellule
Application.ScreenUpdating = True
End If
End Sub

à+
Philippe

 

[306255]

Re : disparition d'une image quand des conditions sont remplies

Merci pour ton aide, c est exactement ce que je voulais...

a +