Bonjour,=20
Je voudrais afficher automatiquement une image en fonction=20
de la valeur de la cellule adjacente.
Ex: si 0<x<=3D3 afficher un nuage
si 3<x<=3D6 afficher un soleil voil=E9
si 6<x<=3D10 afficher un soleil radieux
Je ne trouve pas l'action qui permet d'automatiser cela.
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Nicolas B.
Salut oliv,
Pour commencer, superpose les trois images de soleil. Le code suivant va mettre au premier plan l'image adaptée à la valeur de la cellule A1.
Private Sub Worksheet_Change(ByVal Target As Range) x = [A1] If x <= 3 Then ActiveSheet.Shapes("Picture 1").ZOrder msoBringToFront Else If x <= 6 Then ActiveSheet.Shapes("Picture 3").ZOrder msoBringToFront Else ActiveSheet.Shapes("Picture 2").ZOrder msoBringToFront End If End If
End Sub
Quand x<=3, Picture 1 est affiché. Quand 3<x<=6, c'est Picture 2. et pour les autres cas, c'est Picture 3.
Bonjour, Je voudrais afficher automatiquement une image en fonction de la valeur de la cellule adjacente. Ex: si 0<x<=3 afficher un nuage si 3<x<=6 afficher un soleil voilé si 6<x< afficher un soleil radieux
Je ne trouve pas l'action qui permet d'automatiser cela.
Merci d'avance, oliv
Salut oliv,
Pour commencer, superpose les trois images de soleil. Le code suivant va
mettre au premier plan l'image adaptée à la valeur de la cellule A1.
Private Sub Worksheet_Change(ByVal Target As Range)
x = [A1]
If x <= 3 Then
ActiveSheet.Shapes("Picture 1").ZOrder msoBringToFront
Else
If x <= 6 Then
ActiveSheet.Shapes("Picture 3").ZOrder msoBringToFront
Else
ActiveSheet.Shapes("Picture 2").ZOrder msoBringToFront
End If
End If
End Sub
Quand x<=3, Picture 1 est affiché.
Quand 3<x<=6, c'est Picture 2.
et pour les autres cas, c'est Picture 3.
Bonjour,
Je voudrais afficher automatiquement une image en fonction
de la valeur de la cellule adjacente.
Ex: si 0<x<=3 afficher un nuage
si 3<x<=6 afficher un soleil voilé
si 6<x< afficher un soleil radieux
Je ne trouve pas l'action qui permet d'automatiser cela.
Pour commencer, superpose les trois images de soleil. Le code suivant va mettre au premier plan l'image adaptée à la valeur de la cellule A1.
Private Sub Worksheet_Change(ByVal Target As Range) x = [A1] If x <= 3 Then ActiveSheet.Shapes("Picture 1").ZOrder msoBringToFront Else If x <= 6 Then ActiveSheet.Shapes("Picture 3").ZOrder msoBringToFront Else ActiveSheet.Shapes("Picture 2").ZOrder msoBringToFront End If End If
End Sub
Quand x<=3, Picture 1 est affiché. Quand 3<x<=6, c'est Picture 2. et pour les autres cas, c'est Picture 3.
Bonjour, Je voudrais afficher automatiquement une image en fonction de la valeur de la cellule adjacente. Ex: si 0<x<=3 afficher un nuage si 3<x<=6 afficher un soleil voilé si 6<x< afficher un soleil radieux
Je ne trouve pas l'action qui permet d'automatiser cela.
