Microsoft 365 Contrôle sur textbox

jcf6464 · 8 Juillet 2024

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

vgendron · 8 Juillet 2024

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 · 8 Juillet 2024

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 · 9 Juillet 2024

Bonjour vgendron et le forum,

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

Ou je sais mais il faudrait que le dégraisse un peut trop lourd

1) on ne sait pas comment arriver sur le multipage d'accompte

J'ai oublié excuse moi ,

Merci quand même cela fonctionne

Bonne continuation jcf

jcf6464 · 10 Juillet 2024

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

vgendron · 10 Juillet 2024

bonjour

je vois pas trop ce que ca change, vu que tu as un control de saisie sur le textbox..
et .. je ne vois pas pourquoi ca n'a fonctionné que deux fois..

jcf6464 · 10 Juillet 2024

RE

Moi aussi j'ai pas compris mystère

je fait d'autres essai

cordialement jcf

Microsoft 365 Contrôle sur textbox

jcf6464

XLDnaute Impliqué

vgendron

vgendron

XLDnaute Barbatruc

jcf6464

XLDnaute Impliqué

jcf6464

XLDnaute Impliqué

vgendron

XLDnaute Barbatruc

jcf6464

XLDnaute Impliqué

Discussions similaires