OVH Cloud OVH Cloud

image en fonction d'un resultat

4 réponses
Avatar
bonjour
j'aimerais savoir si il est possible d'afficher une image en fonction d'un
resultats mon projet si la moyenne et >a 14 mettre une image ou un smiley et
si elle est inferieur mettre une autre un peu plus triste
merci pour votre aide

4 réponses

Avatar
michdenis
Bonjour Jean,

En supposant que tu puisses avoir 3 résultats différents dans la cellule A1

Imagine que A1 représente un résultat à un examen scolaire
A1 > 80 chacun ayant un smiley
A1 > 59
A1 < 60

Dans la cellule de ton choix, tu inscris la formule suivante :
ÊR(SI(A1>80;74;SI(A1>60;75;76)))

et tu formates la cellule contenant cette formule avec la police de caractère Wingdings



Salutations!




<jean> a écrit dans le message de news: 43eb81de$0$1386$
bonjour
j'aimerais savoir si il est possible d'afficher une image en fonction d'un
resultats mon projet si la moyenne et >a 14 mettre une image ou un smiley et
si elle est inferieur mettre une autre un peu plus triste
merci pour votre aide
Avatar
merci pour ton aide cette solution fonctionne mais est il possible qu'avec
cette formule je fasse apparaitre un fichier images de mon choix je pensais
a faire cela avec forme automatique et en jouant sur le sourir haut ou bas
je te remercie de toute maniere
"michdenis" a écrit dans le message de news:

Bonjour Jean,

En supposant que tu puisses avoir 3 résultats différents dans la cellule
A1

Imagine que A1 représente un résultat à un examen scolaire
A1 > 80 chacun ayant un smiley
A1 > 59
A1 < 60

Dans la cellule de ton choix, tu inscris la formule suivante :
ÊR(SI(A1>80;74;SI(A1>60;75;76)))

et tu formates la cellule contenant cette formule avec la police de
caractère Wingdings



Salutations!




<jean> a écrit dans le message de news:
43eb81de$0$1386$
bonjour
j'aimerais savoir si il est possible d'afficher une image en fonction d'un
resultats mon projet si la moyenne et >a 14 mettre une image ou un smiley
et
si elle est inferieur mettre une autre un peu plus triste
merci pour votre aide





Avatar
JB
Bonjour,


http://cjoint.com/?cjuM3jvEel

Cas1:On affiche une image dès que la cellule B1 dépasse la valeur 100

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$B$1" Then
If Target.Value >= 100 Then
ActiveSheet.Shapes("gidel").Visible = True
Else
ActiveSheet.Shapes("gidel").Visible = False
End If
End If
End Sub

On affiche une image dès que la cellule B6 dépasse la valeur 100

Cas2:
On utilise une fonction perso qui est exécutée dès qu'une cellule
est modifiée. L'accés à la photo se fait par son nom dans la feuille
(Gidel sur l'exemple)

Function AfficheCache(nb, seuil, image)
If nb > seuil Then
ActiveSheet.Shapes(image).Visible = True
Else
ActiveSheet.Shapes(image).Visible = False
End If
afffichecache = 0
End Function

¯fichecache(B6;100;"gidel")

Cordialement JB
Avatar
merci beaucoup pour ton fichier je suis tres impressionné je vais essayer de
decortiquer le code
merci encore
"JB" a écrit dans le message de news:

Bonjour,


http://cjoint.com/?cjuM3jvEel

Cas1:On affiche une image dès que la cellule B1 dépasse la valeur 100

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$B$1" Then
If Target.Value >= 100 Then
ActiveSheet.Shapes("gidel").Visible = True
Else
ActiveSheet.Shapes("gidel").Visible = False
End If
End If
End Sub

On affiche une image dès que la cellule B6 dépasse la valeur 100

Cas2:
On utilise une fonction perso qui est exécutée dès qu'une cellule
est modifiée. L'accés à la photo se fait par son nom dans la feuille
(Gidel sur l'exemple)

Function AfficheCache(nb, seuil, image)
If nb > seuil Then
ActiveSheet.Shapes(image).Visible = True
Else
ActiveSheet.Shapes(image).Visible = False
End If
afffichecache = 0
End Function

¯fichecache(B6;100;"gidel")

Cordialement JB