Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

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

Usine à gaz

XLDnaute Barbatruc
Supporter XLD
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...
 

Pièces jointes

  • gif activer.xlsm
    439.5 KB · Affichages: 9
Trier par date Trier par votes

DoubleZero

XLDnaute Barbatruc
BrunoM45 à dit:
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
Cliquez pour agrandir...
Re-bonjour, bonjour, BrunoM45

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

A bientôt,

 

Pièces jointes

  • 00 - Usine à gaz - Gif animé oui non.xlsm
    82.1 KB · Affichages: 7
Vote positif 0 Vote négatif
Solution

mapomme

XLDnaute Barbatruc
Supporter XLD
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 ?
 
Dernière édition:
Vote positif 0 Vote négatif

mapomme

XLDnaute Barbatruc
Supporter XLD
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 :
VB: 
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
 
Dernière édition:
Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc
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é.
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.

Discussions similaires

  • Question
XL 2021 [Résolu] : Désactiver la sélection d'une forme (Rectangle) sur une feuille
Réponses
2
Affichages
144
Zdz16
  • Résolu(e)
XL 2021 Extraire tous les caractères à gauche du 2eme espace
2
Réponses
16
Affichages
640
Usine à gaz
  • Résolu(e)
XL 2021 copier en B7 la valeur de la cellule active (Cells(ActiveCell.Row, 7)) de la feuille "Appels"
Réponses
12
Affichages
279
Usine à gaz
  • Résolu(e)
XL 2021 Calendrier : à l'affichage ne pas sélectionner de date
2
Réponses
29
Affichages
503
Usine à gaz
  • Question
XL 2021 Est-il possible d'afficher l'info bulle au passage sur une cellule ?
2 3
Réponses
36
Affichages
1 K
Usine à gaz
  • Résolu(e)
XL 2021 En restant sur Feuille 1 active, comment activer dans ma feuille2 la 1ère cellule vide de la colonne A
2
Réponses
29
Affichages
706
TooFatBoy
  • Résolu(e)
XL 2021 Cellule vide : sélectionner et atteindre
2
Réponses
15
Affichages
514
Usine à gaz
  • Résolu(e)
XL 2021 Sélectionner plusieurs plages jusqu'à la dernière ligne NON vide en col "E"
Réponses
5
Affichages
85
Usine à gaz
  • Question
XL 2021 Formule compter les cellules vides lusqu'à la dernière ligne NON vide
Réponses
10
Affichages
295
Usine à gaz
  • Résolu(e)
XL 2021 Sélectionner la 1ère cellule après filtrage
Réponses
2
Affichages
295
Usine à gaz
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…