Affichage d'une image selon valeur

[natorp]

Bjr à toutes et tous

J'aimerais afficher une image selon la valeur d'une cellule,
Si D2 = B2+C2 alors j'affiche le smiley "Ok" sinon "Ko"
J'ai bien écrit quelque chose dans le code de la feuille, mais ça marche pô !

Merci de votre aide, cordialement, Gérard

 

[Claudy]

Re : Affichage d'une image selon valeur

Hello ,
pour le Smiley Ok: =Car(74) au format Wingdings et pour le smiley ko =car(76) au format Wingdings
A+

 

[DoubleZero]

Re : Affichage d'une image selon valeur

Bonjour, natorp, Claudy, le Forum,

Peut-être, également, ainsi :

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If [d2] = [b2] + [c2] Then
ActiveSheet.Shapes("Ok").Visible = True
ActiveSheet.Shapes("Ko").Visible = False
Else
ActiveSheet.Shapes("Ok").Visible = False
ActiveSheet.Shapes("Ko").Visible = True
End If
End Sub

A bientôt 🙂

 

[natorp]

Re : Affichage d'une image selon valeur

Merci Claudy et DoubleZero

DoubleZero : c'est bien cela, merci pour la syntaxe.....

Bonne journée, cordialement, Gérard

 

[job75]

Re : Affichage d'une image selon valeur

Bonjour Natorp, Claudy, DoubleZero 🙂

Ou aussi :

Private Sub Worksheet_Change(ByVal Target As Range)
ActiveSheet.Shapes("Ok").Visible = [d2] = Val([b2]) + Val([c2])
ActiveSheet.Shapes("Ko").Visible = [d2] <> Val([b2]) + Val([c2])
End Sub

Val évite le bug si l'on entre du texte en B2 ou C2.

A+

 

[natorp]

Re : Affichage d'une image selon valeur

Merci Job

Tjrs à la pointe....!!! bonne journée à tous...

Gérard

 

[BOISGONTIER]

Re : Affichage d'une image selon valeur

Bonjour,

Avec une fonction perso

JB