Microsoft 365 Contrôle sur textbox

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

jcf6464

XLDnaute Impliqué
Bonjour le forum,

J'ai besoin de vos lumières,

J'ai dans le fichier joint un userform avec une page compta,
un textbox (tb85) ou je rentre l'inscription à la compétition un chiffre exemple (200.00€)
Dans le frame acompte1 je rentre le montant reçus (pour l'instant je rentre un montant et dans le tb103(Validation SoaringSpot) il s'inscrit inscription-validée)

ce que je souhaiterais c'est que quand je rentre dans l'acompte1 une somme inférieure ou supérieure à l'inscription (200.00€) la phrase (inscription-validée) ne s'affiche pas ..... l'afficher que si la somme est égale

Cordialement jcf


Fichier --- https://www.cjoint.com/c/NFCl5uCDXtX


Merci
 
Solution
bonjour

encore une fois: tu peux poster ton fichier directement sur ce forum

pour la phrase à afficher uniquement si tb85=tb92
PS: on ne peut pas tester, parce que
1) on ne sait pas comment arriver sur le multipage d'accompte
2) le code cherche des images qu'on a pas

VB:
Private Sub tb92_Change() 'acompte 1
If tb92.Value = "" Then
    Me.tb103 = ""
Else
    'If tb92.Value <> "Incription-Validé" Then
    If Me.tb92 = Me.tb85 Then
        Me.tb103 = "Inscription-Validé"
    End If
End If
résultat
End Sub
bonjour

encore une fois: tu peux poster ton fichier directement sur ce forum

pour la phrase à afficher uniquement si tb85=tb92
PS: on ne peut pas tester, parce que
1) on ne sait pas comment arriver sur le multipage d'accompte
2) le code cherche des images qu'on a pas

VB:
Private Sub tb92_Change() 'acompte 1
If tb92.Value = "" Then
    Me.tb103 = ""
Else
    'If tb92.Value <> "Incription-Validé" Then
    If Me.tb92 = Me.tb85 Then
        Me.tb103 = "Inscription-Validé"
    End If
End If
résultat
End Sub
 
Bonjour vgendron et le forum,

Je reviens sur ta réponse elle à fonctionner deux fois puis plus rien ,
en cherchant sur les forums je pense avoir trouvé,


VB:
Private Sub tb92_Change() 'acompte 1
If tb92.Value = "" Then
    Me.tb103 = ""
Else
    'If tb92.Value <> "Incription-Validé" Then
   'If Me.tb92 = Me.tb85 Then

If CInt(tb92.Value) = CInt(tb85.Value) Then

        Me.tb103 = "Inscription-Validé"
    End If
End If
résultat
End Sub


cordialement jcf
 
- 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
Retour