Affichage sous conditions

Créer une discussion
Répondre
  • Initiateur de la discussion Initiateur de la discussion aubelix
  • Date de début Date de début

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
aubelix

aubelix

XLDnaute Impliqué
Bonsoir à tous.

Pourriez-vous m'aider pour la partie code affichage de Gifs animés
en fonction du nombre de jours. Ces alarmes sont visuelles au vue
du nombre de dates à contrôler.
Gif vert si le nombre de jours >= 40 jours
Gif rouge si le nombre de jours < 40 jours
Ci-joint un fichier exemple plus parlant.

Par avance merci pour votre aide.
Cordialement.
 

Pièces jointes

Trier par date Trier par votes
Re : Affichage sous conditions

Bonsoir

Ci dessous un exemple de code

Code: 
chemin = ThisWorkbook.Path

Private Sub TxtBxECH1_Change()
If TxtBxECH1.Value < 45 Then
WebBrowser1.Navigate _
            "about:<html><body scroll='no' BottomMargin=0 LeftMargin=0 TopMargin=0 RigthMargin=0>" & _
                                                                                                   "<img src='" & chemin & "\feux019.gif' width='100%' height='100%'></img></body></html>"
Else
WebBrowser2.Navigate _
            "about:<html><body scroll='no' BottomMargin=0 LeftMargin=0 TopMargin=0 RigthMargin=0>" & _
                                                                                                   "<img src='" & chemin & "\feux020.gif' width='100%' height='100%'></img></body></html>"
End If
End Sub

A tester et à modifier

JP
 
Vote positif 0 Vote négatif
Re : Affichage sous conditions

bonsoir aubelix

Vois si cela te convient

Attention
4 lignes a adapter
fvert = "E:\texcel1\feux020.gif"
frouge = "E:\texcel1\feux019.gif"
1 fois 2 dans userform_initialize
1 fois 2 dans ComboBox1_Change()

Edit : Salut JP
 

Pièces jointes

Vote positif 0 Vote négatif
Re : Affichage sous conditions

Bonjour le Forum, JP14 et PierreJean. 🙂

Merci pour vos réponses.

J'ai retenu la réponse de PierreJean.
J'ai un problème d'affichage des GIFS. je m'explique :
Lors de l'initialisation du userform, les Gifs s'affichent plein cadre dans les "WebBrowsers".
En revanche lors de la séléction d'une désignation, les Gifs s'affichent tronqués.

D'où vient ce problème ? Je vous joints le fichier.

Attention
4 lignes à adapter
fvert = "C:\TEMP\feux020.gif"
frouge = "C:\TEMP\feux019.gif"
1 fois 2 dans userform_initialize
1 fois 2 dans ComboBox1_Change()


J'ai opté pour un seul WebBrowser pour chaque date d'échéance
car PierreJean a facilIté le travail en déclarant une variable pour le type (fvert - frouge)

Merci pour aide.
Cordialement.
 

Pièces jointes

Vote positif 0 Vote négatif
Re : Affichage sous conditions

Bonjour PierreJean et tous les amis du Forum. 🙂

Merci pour de t'être penché sur mon problème.
Malheureusement, le problème persite chez moi. 😡
Je le testerai au travail. Je te tiens au courant.

Bon week-end.
Cordialement.
 
Vote positif 0 Vote négatif
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

Philarête
  • Question Question
XL pour MAC Mise en forme conditionnelle de cellules adjacentes en fonction du contenu d'une cellule
Réponses
8
Affichages
398
sylvanu
sylvanu
T
  • Question Question
XL 2021 Insérer des icônes
Réponses
9
Affichages
307
Thierry29280
T
N
  • Résolu(e)
XL 2021 liste déroulante en cascade
Réponses
11
Affichages
675
natadom
N
W
  • Question Question
XL 2019 Transformer des lignes de codes pour pratiquer Tablo à 4 colonnes et 40 lignes
2 3
Réponses
40
Affichages
2 K
Webperegrino
W
R
  • Résolu(e)
Microsoft 365 Calculer un besoin de production sur une période donnée
Réponses
12
Affichages
608
djidji59430
djidji59430
O
  • Résolu(e)
XL 2013 Macro qui duplique les lignes d'un tableau en fonction d'un nombre précis
Réponses
7
Affichages
365
Staple1600
Staple1600
A
  • Question Question
XL 2010 Surligner texte en fonction d'une valeur en cellule K
Réponses
7
Affichages
409
ascal44
A
V
  • Question Question
Autres Pseudo_Calendrier_8s
Réponses
0
Affichages
437
VIARD
V
bcharef
  • Question Question
Microsoft 365 Fractionner un montant sous conditions
Réponses
2
Affichages
179
bcharef
bcharef
B
  • Question Question
XL 2019 calendrier horaire travail
Réponses
9
Affichages
1 K
Bsm
B
E
  • Question Question
Microsoft 365 automatiser une caisse en journal comptable pour export
2
Réponses
15
Affichages
975
SMR210606
S
C
  • Question Question
XL 2021 [RESOLU]Aide pour une mise en forme conditionnelle
Réponses
8
Affichages
809
crocrocro
C
M
  • Question Question
Microsoft 365 Correction d'un tdb excel en place suite problème formule
2 3
Réponses
36
Affichages
1 K
Mar9
M
C
  • Résolu(e)
XL 2016 Nombre de jours effectués par mois
Réponses
12
Affichages
1 K
CathU
C
F
  • Résolu(e)
XL 2019 Problème formule si vide
Réponses
3
Affichages
437
Fabrice16ct
F
V
  • Question Question
Autres Pseudo Calendrier
Réponses
0
Affichages
557
VIARD
V
D
  • Résolu(e)
Microsoft 365 Assistance pour optimisation d'un code VBA qui ne fonctionne pas comme souhaité
2
Réponses
21
Affichages
1 K
desto
D
A
  • Question Question
XL 2016 Exclure une période des calcule de jours entre 2 dates (Datedif)
Réponses
2
Affichages
1 K
job75
job75
P
  • Résolu(e)
XL pour MAC Problème de changement de couleur de la valeur d'une cellule
Réponses
2
Affichages
584
pvander
P
C
  • Résolu(e)
XL 2021 Macro dans Macro
2
Réponses
26
Affichages
2 K
Constantin
C
Retour