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 ?

Créer une discussion

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire

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

Trier par date Trier par votes
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

Vote positif 0 Vote négatif
Solution
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
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
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.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

N
  • Résolu(e)
Microsoft 365 Simplifier un code pour activer ou désactiver des CheckBox
6 7 8
Réponses
115
Affichages
4 K
ChTi160
H
  • Résolu(e)
XL 2016 VBA gestion des couleurs
2
Réponses
26
Affichages
428
Dranreb
J
  • Question Question
Microsoft 365 VBA et mise en forme conditionel
Réponses
2
Affichages
414
jalaba
J
M
  • Question Question
Microsoft 365 Créer en VBA un Fichier Xml a partir d'un tableau
2
Réponses
15
Affichages
489
patricktoulon
P
  • Résolu(e)
XL 2021 Requête API - VBA Excel - Parse JSON
Réponses
2
Affichages
239
picc
P
  • Résolu(e)
Microsoft 365 VBA : formule Excel en variable
2
Réponses
24
Affichages
2 K
mapomme
  • Question Question
XL 2021 Est-il possible d'afficher l'info bulle au passage sur une cellule ?
2 3
Réponses
36
Affichages
3 K
Usine à gaz
  • Résolu(e)
Autres toutes versions tester le scrool avec la roulette sans passer par un hooking en addressof
42 43 44
Réponses
647
Affichages
10 K
patricktoulon
  • Question Question
Autres toutes versions tester le scrool avec la roulette sans passer par un hooking en addressof
Réponses
2
Affichages
111
patricktoulon
C
  • Question Question
Microsoft 365 je cherche un code excel pour copier la couleur d'une cellule, à toutes les cellules qui ont la même valeur dans mon tableau.
Réponses
1
Affichages
300
sylvanu
L
  • Résolu(e)
Microsoft 365 VBA - Attribuer mise en forme en fonction de valeur cellule d'une liste
Réponses
14
Affichages
837
Laliepomm
L
S
  • Résolu(e)
Microsoft 365 Mailing mise en forme HTML : revenir à la ligne automatique si trop de texte saisie
2
Réponses
17
Affichages
536
spike29
S
  • Résolu(e)
XL 2021 Calendrier : à l'affichage ne pas sélectionner de date
2
Réponses
29
Affichages
1 K
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
337
Usine à gaz
  • Résolu(e)
XL 2010 Liste filtrée pour combobox à 1 ou x colonne(s) (Titre màj)
5 6 7
Réponses
97
Affichages
8 K
patricktoulon
  • Question Question
Microsoft 365 Déplacer cellules en gardant mise en forme source et cible (via VBA)
2 3
Réponses
34
Affichages
2 K
TooFatBoy
  • Résolu(e)
XL 2021 Cellule vide : sélectionner et atteindre
2
Réponses
15
Affichages
1 K
Usine à gaz
  • Résolu(e)
Autres tester si le Presse Papier (Clipboard) esi vide
2
Réponses
27
Affichages
1 K
Usine à gaz
  • Résolu(e)
XL 2021 affectation et classement de mes appels selon contenu des cellules en colonnes J ou L ou M
2 3
Réponses
30
Affichages
2 K
Usine à gaz
  • Résolu(e)
XL 2021 Créer un pdf en deux pages pour 2 plages d'une même feuille
2
Réponses
19
Affichages
1 K
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…