problème retour d'info USF

  • Initiateur de la discussion Initiateur de la discussion mikepers
  • 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 !

mikepers

XLDnaute Occasionnel
Bonsoir le forum,
un souci ce soir sur mon projet au boulot:
Dans un USF:
je désire faire apparaitre un label dans l'USF, si une condition est réunie.
Les conditions:
_si la valeur du textbox4 est inférieure ou égale à la valeur du textbox31, alors
le label reste invisible.
_si la valeur du textbox4 est suppérieure ou égale à la valeur du textbox31, alors le label apparait.
J'ai placé le code suivant dans le label, (puis en essai sur un _initialise USF):
_____________________________
Private Sub Label39_Click()
If TextBox4.Value = "" Then
Label39.Visible = False
End If
If TextBox4.Value <= TextBox31.Value Then
Label39.Visible = False
End If
If TextBox4.Value > TextBox31.Value Then
Label39.Visible = True
End If

End Sub
______________________________
le code ne fonctionne qu'une seule fois, ( ou pas du tout parfois )il semble que lorsque un des textbox perd le focus, le code ne fonctionne plus Lorsque les valeurs textbox changent.
Visiblement la formulation du code ou son positionnement n'est pas bon.
quelqu'un voit il une soluce???
Merci par avance.
 
Re : problème retour d'info USF

oups....Pardon, la condition de début est:
_si la valeur du textbox4 est inférieure ou égale à la valeur du textbox31, alors
le label reste invisible.
_si la valeur du textbox4 est suppérieure à la valeur du textbox31, alors le label apparait.
J'ai placé le code suivant dans le label, (puis en essai sur un _initialise USF):
 
Re : problème retour d'info USF

Bonsoir mikepers,

Une solution lorsque le textbox4 perd le focus pour un autre contrôle.

Code:
Private Sub TextBox4_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If Val(TextBox4.Value) <= Val(TextBox31.Value) Then
Label39.Visible = False
Else: Label39.Visible = True
End If
End Sub

Tu peux aussi utiliser : Private Sub TextBox4_Change() / End Sub

Si tu souhaites aussi contrôler le textbox31, tu fais la même chose.

Bonne nuit
 
Re : problème retour d'info USF

donc, un grand merci à bqtr: j'ai utilisé son code ( en fait en le positionnant ni sur les textboxs ni sur l'initialisation de l'USF, mais sur un combo de rappel des données, situé lui aussi dans l'USF bien sûr ). Ca marche exactement comme je le voulais, on peut même l'utiliser pour faire apparaitre une image dans l'USF en fonction d'une condition.
Bravo, encore merci.
 
- 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

Réponses
9
Affichages
508
Réponses
5
Affichages
907
  • Question Question
Microsoft 365 Combobox
Réponses
6
Affichages
305
Réponses
2
Affichages
526
  • Question Question
Microsoft 365 Problème de date
Réponses
5
Affichages
358
Retour