affichage d une image si une condition n est pas remplie

C

Compte Supprimé 979

Guest

• 15 Octobre 2011

• #2

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+

 

Vote positif 0 Vote négatif

3

306255

XLDnaute Occasionnel

• 15 Octobre 2011

• #3

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

BrunoM45 à dit:

Bonsoir 306255,

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

A+

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif

mth

XLDnaute Barbatruc

• 15 Octobre 2011

• #4

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

Bonsoir,

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

Code:

=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:

Code:

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

 

Dernière édition: 15 Octobre 2011

Vote positif 0 Vote négatif

C

Compte Supprimé 979

Guest

• 15 Octobre 2011

• #5

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

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+

 

Vote positif 0 Vote négatif

3

306255

XLDnaute Occasionnel

• 15 Octobre 2011

• #6

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

 

Vote positif 0 Vote négatif

BOISGONTIER

XLDnaute Barbatruc

Repose en paix

• 15 Octobre 2011

• #7

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

Bonsoir,

Avec une fonction perso.

Code:

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

 

Pièces jointes

• Copie de couleur.xls

  105.5 KB · Affichages: 115
• Copie de couleur.xls

  105.5 KB · Affichages: 102
• Copie de couleur.xls

  105.5 KB · Affichages: 102

Dernière édition: 15 Octobre 2011

Vote positif 0 Vote négatif

3

306255

XLDnaute Occasionnel

• 15 Octobre 2011

• #8

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

BOISGONTIER à dit:

Bonsoir,

Avec une fonction perso.

Code:

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

Cliquez pour agrandir...

 

Pièces jointes

• matrice essai.xlsm

  153.5 KB · Affichages: 164
• matrice essai.xlsm

  153.5 KB · Affichages: 189
• matrice essai.xlsm

  153.5 KB · Affichages: 181

Dernière édition: 15 Octobre 2011

Vote positif 0 Vote négatif

C

Compte Supprimé 979

Guest

• 15 Octobre 2011

• #9

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+

 

Vote positif 0 Vote négatif

BOISGONTIER

XLDnaute Barbatruc

Repose en paix

• 15 Octobre 2011

• #10

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

 

Pièces jointes

• Copie de matrice essai.xls

  231 KB · Affichages: 150

Dernière édition: 15 Octobre 2011

Vote positif 0 Vote négatif

3

306255

XLDnaute Occasionnel

• 15 Octobre 2011

• #11

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

BOISGONTIER à dit:

-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

Cliquez pour agrandir...

 

Vote positif 0 Vote négatif

C

Compte Supprimé 979

Guest

• 15 Octobre 2011

• #12

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+

 

Pièces jointes

• 306255_AffichageImage.xlsm

  86.8 KB · Affichages: 132

Vote positif 0 Vote négatif

3

306255

XLDnaute Occasionnel

• 15 Octobre 2011

• #13

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

Ca marche impeccable

merci beaucoup

brunom45 à dit:

re,

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

a+

Cliquez pour agrandir...

 

Vote positif 0 Vote négatif

3

306255

XLDnaute Occasionnel

• 15 Octobre 2011

• #14

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

BrunoM45 à dit:

Re,

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

A+

Cliquez pour agrandir...

 

Vote positif 0 Vote négatif

C

Compte Supprimé 979

Guest

• 16 Octobre 2011

• #15

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+

 

Vote positif 0 Vote négatif