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

 

[Dull]

Re : apparition d'une image si une valeur apparait

Salut 306255, le Forum

Peut-être comme cela et si j'ai bien compris

Private Sub Worksheet_Change(ByVal Target As Range)
Shapes("interdit").Visible = IIf([L3] = 0, False, True)
End Sub

Dans le module de la feuille

EDITION: Salut Pierre 🙂 Très heureux de te croiser😉

Bonne Journée

 

[pierrejean]

Re : apparition d'une image si une valeur apparait

bonjour 306255

En attendant les formulistes une version Vba

Edit Salut dull

 

[306255]

Re : apparition d'une image si une valeur apparait

Merci pour ton aide.. ca marche impec... par contre serait il possible de mettre une deuxième image sur la meme page sans que les deux formules entre en conflit

merci

Salut 306255, le Forum

Peut-être comme cela et si j'ai bien compris

Private Sub Worksheet_Change(ByVal Target As Range)
Shapes("interdit").Visible = IIf([L3] = 0, False, True)
End Sub

Dans le module de la feuille

EDITION: Salut Pierre 🙂 Très heureux de te croiser😉

Bonne Journée

 

[BOISGONTIER]

Re : apparition d'une image si une valeur apparait

Bonjour,

Avec fonction perso

=afficheimage("interdit";(L3>0))


Dans un module
Alt+F11
Insertion/module

Function afficheImage(s, ok)
  Set f = Sheets(Application.Caller.Parent.Name)
  f.Shapes(s).Visible = ok
End Function

JB

 

[306255]

Re : apparition d'une image si une valeur apparait

Merci pour ta formule mais quand je la mets dans le vba j'ai le message suivant :

#NOM?

 

[pierrejean]

Re : apparition d'une image si une valeur apparait

Re

En y regardant de plus prés ,je m’aperçois Que j'ai confondu l3 et I3

 

[306255]

Re : apparition d'une image si une valeur apparait

Merci pierre jean pour cette info mais je n'arrive pas a l'applique a mon document car je ne maitrise pas trop le vba

Re

En y regardant de plus prés ,je m’aperçois Que j'ai confondu l3 et I3

 

[pierrejean]

Re : apparition d'une image si une valeur apparait

Re
Fais une copie de ton document ,remplace les données confidentielles par des données 'bidon' (quelques unes suffisent !!) et poste le on regardera

 

[306255]

Re : apparition d'une image si une valeur apparait

Bonsoir Pierre-Jean

je t'envoie le document que je voudrais modifier

Merci d'avance pour ton aide

Re
Fais une copie de ton document ,remplace les données confidentielles par des données 'bidon' (quelques unes suffisent !!) et poste le on regardera

 

[BOISGONTIER]

Re : apparition d'une image si une valeur apparait

Bonjour,


=afficheimage("ai";L42<>"ok")
=afficheimage("at";L45<>"ok")

Dans un module
Alt+F11
Insertion/module

Function afficheImage(s, ok)
  Set f = Sheets(Application.Caller.Parent.Name)
  f.Shapes(s).Visible = ok
End Function

Avantage pour l'utilisateur: Il peut utiliser et modifier la fonction sans modifier le code.


JB

 

[306255]

Re : apparition d'une image si une valeur apparait

Bonjour JB

A chaque fois que je copie la formule dans ma feuille, j'ai : #NOM?

Merci pour ton aide

Bonjour,


=afficheimage("ai";L42<>"ok")
=afficheimage("at";L45<>"ok")

Dans un module
Alt+F11
Insertion/module

Function afficheImage(s, ok)
  Set f = Sheets(Application.Caller.Parent.Name)
  f.Shapes(s).Visible = ok
End Function

JB

 

[pierrejean]

Re : apparition d'une image si une valeur apparait

Re

Salut JB

Vois si cela te convient

 

[306255]

Re : apparition d'une image si une valeur apparait

Merci Pierre Jean,

c est exactement cela, peux tu m expliquer comment tu as a fait afin de pouvoir le réutiliser...

a quoi correspond la fonction button?

Merci d'avance

Re

Salut JB

Vois si cela te convient

 

[pierrejean]

Re : apparition d'une image si une valeur apparait

Re

J'ai mis ceci dans le Module de la Feuille CAISSE

Private Sub Worksheet_Activate()
'a l'ouverture de la feuille on lance la macro efface
Call efface
End Sub


Private Sub Worksheet_Change(ByVal Target As Range)
'Lorsqu'une cellule change on lance la macro efface
Call efface
End Sub
Sub efface()
'Si L42 est different de ok alors
 If Range("L42") <> "ok" Then
 'Le Bouton 4 n'est plus visible
  ActiveSheet.Shapes("Button 4").Visible = False
'Ai est visible
  ActiveSheet.Shapes("ai").Visible = True
  'sinon
Else
'c'est l'inverse
  ActiveSheet.Shapes("Button 4").Visible = True
  ActiveSheet.Shapes("ai").Visible = False
End If
'dito pour L45
 If Range("L45") <> "ok" Then
  ActiveSheet.Shapes("Button 6").Visible = False
  ActiveSheet.Shapes("at").Visible = True
Else
  ActiveSheet.Shapes("Button 6").Visible = True
  ActiveSheet.Shapes("at").Visible = False
End If
End Sub