Discussion :

[Pompaero]

Bonjour le forum

Je viens chercher de l'aide pour un soucis d'affichage d'une image sur un userform.
Sur un userform il y a une Frame avec à l'interieur une image et un label.
Ce label recois le caption "A commander" occasionnellement par rapport a la gestion des stocks mini de ma feuille des mouvement, entrée - sortie. A côté de ce label il y a un objet image et j'aimerai qes lors que le label reçois le caption "A commander' que l'image s'affiche.
Chose que j'essai de faire depuis ce matin.
j'ai fais ce code mais l'image ne s'affiche pas.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
If Label17.Caption=True Then
Image1.Visible=True
Else
Image1.Visible=False
End If

Un petit coup de pouce serait le bien venu, Merci d'avance à tous.

[SfJ5Rpw8]

Bonjour,

tu ne nous dis pas ou tu as mis le code ni comment tu l'exécute...


ensuite pourrais tu nous expliquer ce que tu veux faire avec test :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

IF Label17.Caption=True

c'est quoi pour toi "True" ?

[patricktoulon]

bonjour
la reponse est dans la question

Ce label recois le caption "A commander" occasionnellement par rapport a la gestion des stocks mini de ma feuille des mouvement, entrée - sortie. A côté de ce label il y a un objet image et j'aimerai qes lors que le label reçois le caption "A commander' que l'image s'affiche.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

if label17.caption="A commander" then image1.visible=true

maintenant si tu veux dire que tu souaiterais que l'evenement caption_change déclanche l'image c'est walouh!!!! cet evenement n'existe pas c'est dans la sub ou fonction qui change la caption qui faut le mettre

et pour le cas ou on doit gerer le visible false

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

image1.visible=iif( label17.caption="A commander" , true,false)

[Pompaero]

Bonjour bbil

Désolé bbil pour le manque d'explication donc pour faire simple il y a 3 combobox en cascade et dans la combobox 3 se trouve ce code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Private Sub ComboBox3_Change() 'Nom du Produit
  With Me.ComboBox3
    If EnCours = True Or .ListIndex = -1 Then Exit Sub
    Me.TextBox5 = Ws.Range("F" & .List(.ListIndex, 1))
    Me.TextBox6 = Ws.Range("D" & .List(.ListIndex, 1))
    Me.Label17 = Ws.Range("H" & .List(.ListIndex, 1))
  End With
End Sub

d'où se trouve le Label17 qui récupère par rapport au tableau de ma feuille l'information "A commander" si cela est notifié dans la colonne H, par rapport au stock mini prédéfinie.
Et donc j'aimerai quand le Label17 affiche "A commander" que l'image juste à côté s'affiche également.

Je pensai mettre le code du message precedent à la suite de

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Me.Label17 = Ws.Range("H" & .List(.ListIndex, 1))

True : je pensai que c'est Vrai si le Label avait du texte, mais a priori ce n'est pas ça !!

Cdlt

[patricktoulon]

c'est bien ce que je disais

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Private Sub ComboBox3_Change() 'Nom du Produit
  With Me.ComboBox3
    If EnCours = True Or .ListIndex = -1 Then Exit Sub
    Me.TextBox5 = Ws.Range("F" & .List(.ListIndex, 1))
    Me.TextBox6 = Ws.Range("D" & .List(.ListIndex, 1))
    Me.Label17 = Ws.Range("H" & .List(.ListIndex, 1))
  
image1.visible=iif(Ws.Range("H" & .List(.ListIndex, 1))="A commander",true,false)

End With
End Sub

[Pompaero]

Bonjour patricktoulon

Tu as vu juste.
Merci pour l'aide je viens de tester c'est juste parfais, ça marche.

Grand merci à toi et bbil pour votre soutien.
@ bientôt

[SfJ5Rpw8]

Bonjour,

Le iif est inutile :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

image1.visible=Ws.Range( & .List(.ListIndex, ))="A commander"

[patricktoulon]