XL 2021 Est-il possible d'activer ou désactiver un gif en vba ?

[Usine à gaz]

Bjr à toutes et à tous

J'en une p'tite... Malgré mes essais et recherches, je n'ai pas trouvé le bon code.

"Est-il possible d'activer ou désactiver un gif en vba ?"

Auriez-vous le bon code ?

Merci par avance...
Je joins un p'tit fichier test et je continue à chercher...

 

[DoubleZero]

Bonjour le fil,

Pourquoi ne pas utiliser tout simplement 2 images
1 JPG et 1 GIF on afficher celle que l'on souhaite en fonction de ce que l'on désire

Je dis ça, je dis rien

Re-bonjour, bonjour, BrunoM45

Cruche que je suis ! J'ai oublié de joindre le fichier... Bientôt l'asile pour bibi.

A bientôt,

 

[mapomme]

Bonjour à tous ,

[mode humour]
Hier j'ai acheté une passoire. Mais je ne veux pas toujours que l'eau s'écoule.
Savez-vous comment boucher tous les trous facilement si on veux garder l'eau et les déboucher tout aussi facilement quand on veut laisser l'eau s'écouler ?
D'aucuns me disent d'acheter aussi un saladier sans trou et de placer la passoire dedans. Les benêts ! Alors qu'il suffirait de boucher les trous
[/mode humour]

@Usine à gaz (que je salue amicalement ) : tu nous fais le coup du "fil du week-end" en semaine maintenant ?

 

[mapomme]

Bonjour @DoubleZero ,
Solution simple en codage que ton astuce et sans aucun autre élément "externe" qu'une image fixe. Solution compatible Apple très certainement. On peut même la réduire à deux lignes :

Private Sub Worksheet_Change(ByVal c As Range)
    ActiveSheet.Shapes("dent").Visible = ([a1] <> "")
    ActiveSheet.Shapes("Mathieu").Visible = ([a1] = "")
End Sub

nota : n'est ce point Jean qui n'avait qu'une dent à sa machoire et Mathieu qu'un seul cheveu sur sa tête ? => Le lien ICI

 

[Usine à gaz]

Re-bonjour, bonjour, BrunoM45

Cruche que je suis ! J'ai oublié de joindre le fichier... Bientôt l'asile pour bibi.

A bientôt,

Bsr DoubleZero
Merci pour le fichier qui fonctionne.
J'ai compris le fonctionnement mais si je change, par exemple A1 en B1, ça ne fonctionne plus et je ne comprends pas pourquoi.
Bonne fin de journée

 

[Zon]

Salut tout le monde,

@Usine à gaz cela fonctionne même en B1, avec une seule ligne de code

 ActiveSheet.Shapes("Mathieu").Visible = Not ActiveSheet.Shapes("dent").Visible = ([b1] = "")

 

[TooFatBoy]

2021, il faut avoir ???

Sur mon 2016, #16 est HS...

 

[Usine à gaz]

Salut tout le monde,

@Usine à gaz cela fonctionne même en B1, avec une seule ligne de code

 ActiveSheet.Shapes("Mathieu").Visible = Not ActiveSheet.Shapes("dent").Visible = ([b1] = "")

Bsr Zon
Merci pour ton code.
Mais non, ça ne fonctionne pas,

 

[Usine à gaz]

2021, il faut avoir ???

Sur mon 2016, #16 est HS...

Bsr, je ne sais pas

 

[Dranreb]

Bonsoir.
Pour des expressions Boolean, de même qu'au lieu de <> il convient d'utiliser Xor, au lieu de = il faut prendre Eqv. Plus besoin de parenthèses, les opérateur Boolean ont la plus basse priorité.

 

[Zon]

2021, il faut avoir ???

Sur mon 2016, #16 est HS...

Bizarre, le gif est bien animé au démarrage du fichier ??

moi 2019 OK ...pourtant j'ai des misères parfois avec ...

A+++

 

[Usine à gaz]

Bonsoir.
Pour des expressions Boolean, de même qu'au lieu de <> il convient d'utiliser Xor, au lieu de = il faut prendre Eqv. Plus besoin de parenthèses, les opérateur Boolean ont la plus basse priorité.

bsr Dranreb
Merci pour l'info mais je ne sais pas faire ça

 

[Usine à gaz]

Bizarre, le gif est bien animé au démarrage du fichier ??

moi 2019 OK ...pourtant j'ai des misères parfois avec ...

A+++

Tu as testé sur le fichier du #post 16 ?

 

[TooFatBoy]

Bizarre, le gif est bien animé au démarrage du fichier ??

Non non, aucune animation visible.

 

[Dranreb]

Ben ça devient :

 ActiveSheet.Shapes("Mathieu").Visible = Not ActiveSheet.Shapes("dent").Visible Eqv [b1] = ""

 

[Usine à gaz]

Ben ça devient :

 ActiveSheet.Shapes("Mathieu").Visible = Not ActiveSheet.Shapes("dent").Visible Eqv [b1] = ""

Ce n'est pas une question de visible.
Mais le gif bouge ou ne bouge pas, comme le fichier du #post 16