Microsoft 365 Contrôle sur textbox

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

vgendron

XLDnaute Barbatruc
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
 

jcf6464

XLDnaute Impliqué
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
 

Discussions similaires

Statistiques des forums

Discussions
313 865
Messages
2 103 078
Membres
108 521
dernier inscrit
manouba