affichage d une image si une condition n est pas remplie

[306255]

Bonsoir,

j'aimerais faire apparaitre l image attention si une condition n'est pas rempli... est ce possible


merci d'avance

 

[Compte Supprimé 979]

Re : affichage d une image si une condition n est pas remplie

Bonsoir 306255,

Oui c'est possible, mais en VBA ... ça te dis ?

A+

 

[306255]

Re : affichage d une image si une condition n est pas remplie

Bonsoir 306255,

Oui c'est possible, mais en VBA ... ça te dis ?

A+

oui si tu m'explique comment il faut faire et si je peux le refaire sur chacun de mes 25 onglets

 

[mth]

Re : affichage d une image si une condition n est pas remplie

Bonsoir,

Pour la formule en E14 je verrais plutôt ceci:

=SI(ET(N8=FAUX;N9=FAUX);"attention saisir le mode de reglement";"")

Pour l'affichage de l'image, un essai avec cette macro à affecter aux deux cases à cocher:

Sub Macro1()
With Sheets("Feuil1")
    If .Range("N8") = False And .Range("N9") = False Then
        .Shapes("Image 1").Visible = True
        Else
        .Shapes("Image 1").Visible = False
    End If
End With
End Sub

Vois si cela peut t'aider,
Bonne soirée,

mth


Edit: Oups ..., s'est passé plein de choses le temps que j'écrive ... 🙂
Hello Bruno 🙂 🙂

et puisqu'il y a maintenant 25 onglets, il faudrait remplacer le
With sheets("Feuil1") par With ActiveSheet.
mais attends la vesrion de Bruno, qui sera sûrement plus jolie que la mienne 🙂


@ + à tous,
m

 

[Compte Supprimé 979]

Re : affichage d une image si une condition n est pas remplie

Re,

Pour entrer dans l'éditeur VBA, tu fais : ALT+F11
Dans la partie gauche tu as tes feuilles, tu double clique sur l'une d'elles pour mettre ce code

Private Sub Worksheet_Calculate()
  If Left(Range("E14"), 9) = "attention" Then
    Me.Shapes("Image 1").Visible = msoTrue
  Else
    Me.Shapes("Image 1").Visible = msoFalse
  End If
End Sub

Ce qui se passe avec ce code,
a chaque calcul de la feuille, on vérifie si dans la cellule E14 est inscrit "attention"
si c'est le cas, on affiche l'image, sinon, on la masque

Voili, voilà

A+

 

[306255]

Re : affichage d une image si une condition n est pas remplie

Me.Shapes("Image 1").Visible = msoFalse

apparait en jaune .... faut il lier l'image a qqch

 

[BOISGONTIER]

Re : affichage d une image si une condition n est pas remplie

Bonsoir,

Avec une fonction perso.

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

=afficheimage("panneau";NON(OU(N8;N9)))

Voir pj

JB

 

[306255]

Re : affichage d une image si une condition n est pas remplie

je n arrive pas a l adapter a mon cas pour ce faire je t envoie mon document original qui .... le panneau cache un bouton permettant de ne pas passe a cote du cochage d un motif ET du mode de règlement qui peut être espèce et/ou chèque

Bonsoir,

Avec une fonction perso.

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

=afficheimage("panneau";NON(OU(N8;N9)))

Voir pj

JB

 

[Compte Supprimé 979]

Re : affichage d une image si une condition n est pas remplie

Bonsoir mon cher Boisgontier

Merci pour ce discours 🙂 et cette fonction personnalisée, bien vue 😉

A+

 

[BOISGONTIER]

Re : affichage d une image si une condition n est pas remplie

-Je n'ai pas très bien compris quand le panneau doit être affiché.
-Il est actuellement affiché si aucun mode de règlement n'est coché:
=afficheimage("panneau";NON(OU(N8;N9))) en Q19
(à adapter)
La fonction AfficheImage(NomImage;Vrai/Faux) affiche l'image si le paramètre transmis est VRAI.
-Le panneau est nommé panneau (cliquer dessus et le nommer panneau en haut à gauche)

JB

 

[306255]

Re : affichage d une image si une condition n est pas remplie

le panneau devrais s afficher non pas quand la somme est mise car ca ca n est jamais oublie mais si le mode de paiement n est pas coche ce qui me penalise au niveau de la compta car le moyen de paiement est essentiel ... ainsi que le motif a cocher...


merci pour ton aide très precieuse

-Je n'ai pas très bien compris quand le panneau doit être affiché.
-Il est actuellement affiché si aucun mode de règlement n'est coché:
=afficheimage("panneau";NON(OU(N8;N9))) en Q19
(à adapter)
La fonction AfficheImage(NomImage;Vrai/Faux) affiche l'image si le paramètre transmis est VRAI.
-Le panneau est nommé panneau

JB

 

[Compte Supprimé 979]

Re : affichage d une image si une condition n est pas remplie

Re,

Une autre possibilité avec la fonction de Boisgontier, légèrement changée 😉

A+

 

[306255]

Re : affichage d une image si une condition n est pas remplie

Ca marche impeccable

merci beaucoup

re,

une autre possibilité avec la fonction de boisgontier, légèrement changée 😉

a+

 

[306255]

Re : affichage d une image si une condition n est pas remplie

une derniere demande est il possible de copier cette formule pour mes 25 onglets? car pour le moment j ai un message d erreur si j essaye de le copier pour d autres onglets
merci

Re,

Une autre possibilité avec la fonction de Boisgontier, légèrement changée 😉

A+

 

[Compte Supprimé 979]

Re : affichage d une image si une condition n est pas remplie

Re,

Normalement, oui, mais il faut certainement changer le nom de l'image !?
Clique dessus, tu verras en haut à gauche (zone de nom) son nom

A+