apparition d'une image si une valeur apparait

[306255]

Bonjour à tous

j'aimerais voir apparaitre une image afin de ne pas oublié la saisie de certaine valeur importante, ne permettant pas l'action du bouton sous l'image "acces interdit"

Merci d'avance pour votre aide

306255

 

[Si...]

Re : apparition d'une image si une valeur apparait

salut

si... les images sont placées au premier plan,cela devrait peut-être suffire (sans avoir à toucher les boutons) dans la page de la feuille "Caisse 1"

Private Sub Worksheet_Change(ByVal R As Range)
  ActiveSheet.Shapes("ai").Visible = [L42] = "ko"
  ActiveSheet.Shapes("at").Visible = [L45] = "ko"
End Sub

Dans la formule A=B=C, A est à TRUE quand B=C et A est à FALSE quand B<>C.

 

[Herdet]

Re : apparition d'une image si une valeur apparait

Bonsoir,
Si c'est pour bloquer l'impression du ticket de caisse, il faut aussi gérer la fonction BeforePrint dans le ThisWorkbook
sinon on pourra l'imprimer avec le menu Fichier ... Imprimer

Private Sub Workbook_BeforePrint(Cancel As Boolean)
   If Feuil2.Shapes("ai").Visible = True Then
      Feuil2.Select
      MsgBox "L'impression du ticket de caisse n'est pas possible"
   End If
End Sub

A+
Robert