Discussion :

[NEC14]

Bonjour à tous,

Voici mon problème :
J'ai un formulaire nommé FrmEngt dans lequel il y une listbox (LstMont), une TextBox (TxtMontFact), une autre (TxtOui), et une dernière (TxtNon).
Je souhaiterai que par défaut il y est un "X" dans la TxtNon.
Ensuite si le montant de la TxtMontFact est égale à celui de la LstMont alors le "X" s'applique dans TxtOui.
Je n'arrive pas à encoder cela.
Pouvez-vous m'aider s'il vous plait ?
Merci par avance

[Jean-Philippe André]

pour la valeur "par défaut" du formulaire, ajoute dans l'évènement userform_initialize()

Code :

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

1
2
3
4
5
6
7
if LstMont.value = TxtMontFact.value then
txtoui.value = true
txtnon.value = false
else
txtnon.value = true
txtoui.value = false
end if

[melouille56]

Hello,

alors je te proposerai, pour qu'à l'ouverture de ton formulaire tu ais un X dans ta TextBox TxtNon, d'écrir dans la macro à l'ouverture de ton formulaire:

Code :

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

1
2
3
4
5
6
7
Sub FrmEngt_Activate()
 
TxtNon.Text = "X"
TxtOui.Text = ""
TxtMontFact = ""
 
End Sub

Et puis pour checker si les valeurs des TextBox sont égales:

Code :

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

1
2
3
4
5
6
7
8
Sub TxtMontFact_Change()
 
If TxtMontFact.Value = LstMont.Value Then
TxtOui.Text="X"
TxtNon.Text=""
End If
 
End Sub

Dis si ca marche
Bon courage
Mél

[NEC14]

Hello,

alors je te proposerai, pour qu'à l'ouverture de ton formulaire tu ais un X dans ta TextBox TxtNon, d'écrir dans la macro à l'ouverture de ton formulaire:

Code :

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

1
2
3
4
5
6
7
Sub FrmEngt_Activate()
 
TxtNon.Text = "X"
TxtOui.Text = ""
TxtMontFact = ""
 
End Sub

Et puis pour checker si les valeurs des TextBox sont égales:

Code :

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

1
2
3
4
5
6
7
8
Sub TxtMontFact_Change()
 
If TxtMontFact.Value = LstMont.Value Then
TxtOui.Text="X"
TxtNon.Text=""
End If
 
End Sub

Dis si ca marche
Bon courage
Mél

Bonjour,

Je viens d'essayer les deux méthodes, mais ça ne marche pas.
Je n'y comprends rien.
Merci

[melouille56]

Est-ce que tu arrives déjà à avoir un x à l'endroit désiré à l'ouverture de ton formulaire ?

[Jean-Philippe André]

en fait, j'avais dit une bêtise de mon coté, pensant qu'il s'agissait de checkbox et non pas de txtbox... qu'est-ce qui ne marche pas stp ? tu as une erreur ?

[ouskel'n'or]

En reprenant le code de melouille56

Code :

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

1
2
3
4
5
6
7
8
Sub LstMont_Click()
 
If lcase(TxtMontFact.Value) = lcase(LstMont.List(LstMont.listindex)) Then
    TxtOui.Text="X"
    TxtNon.Text=""
End If
 
End Sub

[NEC14]

Est-ce que tu arrives déjà à avoir un x à l'endroit désiré à l'ouverture de ton formulaire ?

Bonjour,
En effet j'y arrive avec ce code :

Code :

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

1
2
3
4
5
6
7
Private Sub TxtOui_Change()
If TxtOui.Value = "X" Then
TxtNon.Value = ""
Else
TxtNon.Value = "X"
End If
End Sub

[melouille56]

T'as essayé ce que je viens de t'envoyer. Chez moi ca marche parfait. Faut d'abord que tu cliques sur un des items de la listbox et ensuite que tu tapes un montant dans la textbox MontFact.
Et pour avoir un X dans la bonne textbox à l'ouverture, c'est dans Userform_activate() que tu dois le mettre.