TextBox en Vba Excel

Citation:

---

Envoyé par NEC14

Voilà :
Lorsque le n° est choisi, un montant s'affiche dans LstMont, ...

---

Tu dis qu'un montant s'affiche dans LstMont quand tu as sélectionné dans la combo le bon numero d'engagement.
Mais comment ca se présente ?
Dès que tu choisis le bon n° d'engagement il y a un des items de la liste qui se met en surbrillance ou bien il n'y a qu'un item qui apparaît, comme dans un textbox en fait ? Est-ce que tu metx quelque chose en surbrillance dans la liste où il y a les montants ou bien c'est automatique, ou bien il n'y a qu'un seul montant qui apparait. Je pense que la réponse à cette question aidera bcp pour la suite. Parce que comme dit, chez moi tout marche.
Peut etre aussi le fait qu'il y ait un obglet change la donne, je vais tester, mais en attendant, dis moi à quoi ressemble ta listbox avec les montants.

Voici un exemple
Il n'y a qu'un seul affichage dans LstMont

Ok. Alors les deux syntaxes qu'on t'a passées fonctionnent. Dans la mienne, supprime simplement le lcase et remplace le par trim mour supprimer d'éventuelles saisie d'espace (on les voit pas en cas de fausse manip')

Code:

---

1 2 3 4 5 6

Sub TxtMontFact_Exit() If Trim(TxtMontFact.Value) = LstMont.List(LstMont.listindex) Then TxtOui.Text="X" TxtNon.Text="" End If End Sub

---

ou

Code:

---

1 2 3 4 5 6

Sub TxtMontFact_Exit() If Trim(TxtMontFact.Value) = LstMont.Value Then TxtOui.Text="X" TxtNon.Text="" End If End Sub

---

Est-ce que tu peux envoyer le code de Sub CmbNumEng_Change() ?

Tu es bien bien sûr que c'est une listbox là où apparaît le montant de la facture ?

non le montant de l engagement

Edit
L'établissement de tes listes étant pré-établi, pense que tu peux avoir deux formats de séparateurs décimaux, la virgule ou le point. Fais le test avec les 2 lors de la saisie dans ton textbox. Si l'un des deux fonctionne, il faudra ajouter la conversion de séparateur dans le txtbox.

Citation:

---

Envoyé par ouskel'n'or

Ok. Alors les deux syntaxes qu'on t'a passées fonctionnent. Dans la mienne, supprime simplement le lcase et remplace le par trim mour supprimer d'éventuelles saisie d'espace (on les voit pas en cas de fausse manip')

Code:

---

1 2 3 4 5 6

Sub TxtMontFact_Exit() If Trim(TxtMontFact.Value) = LstMont.List(LstMont.listindex) Then TxtOui.Text="X" TxtNon.Text="" End If End Sub

---

ou

Code:

---

1 2 3 4 5 6

Sub TxtMontFact_Exit() If Trim(TxtMontFact.Value) = LstMont.Value Then TxtOui.Text="X" TxtNon.Text="" End If End Sub

---

---

La procédure ne marche pas ce message apparaît :
Erreur de compilation
La déclaration de la procédure ne correspond pas à la description de l'événement ou de la procédure de même nom.

Citation:

---

Envoyé par melouille56

non le montant de l engagement

---

Oui je suis sûr. "Zone de liste" dans la boîte à outil, ListBox dans les propriétés.

Citation:

---

Envoyé par ouskel'n'or

Edit
L'établissement de tes listes étant pré-établi, pense que tu peux avoir deux formats de séparateurs décimaux, la virgule ou le point. Fais le test avec les 2 lors de la saisie dans ton textbox. Si l'un des deux fonctionne, il faudra ajouter la conversion de séparateur dans le txtbox.

---

Dans le montant de l'engagement, c'est le point par défaut pour la décimale

Citation:

---

Envoyé par NEC14

Dans le montant de l'engagement, c'est le point par défaut pour la décimale

---

En fait au moment du choix dans la Combo, un "X" se met par défaut dans TxtNon. Après la saisie dans TxtMontFact et si le montant est égal au montant affiché dans LstMont, alors "X" dans TxtOui

Citation:

---

Envoyé par melouille56

Est-ce que tu peux envoyer le code de Sub CmbNumEng_Change() ?

Tu es bien bien sûr que c'est une listbox là où apparaît le montant de la facture ?

---

Voici :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25

Private Sub CmbNumEng_Change() Dim Cell As Range Dim Tab1(0 To 50, 0 To 1) As String Dim Tab2(0 To 50, 0 To 1) As String Dim Tab3(0 To 50, 0 To 1) As String Dim I As Byte Dim L As Byte FrmEngt.LstMont.Clear FrmEngt.LstTier.Clear FrmEngt.LstBat.Clear If FrmEngt.CmbNumEng.Value <> "" Then L = Len(CmbNumEng) For Each Cell In Sheets("Engagements").Range("IntituNum") If UCase(Left(Cell.Text, L)) = UCase(CmbNumEng.Text) Then Tab1(I, 0) = Cell.Offset(0, 4).Text Tab2(I, 0) = Cell.Offset(0, 5).Text Tab3(I, 0) = Cell.Offset(0, 7).Text I = I + 1 End If Next FrmEngt.LstTier.List = Tab1() FrmEngt.LstBat.List = Tab2() FrmEngt.LstMont.List = Tab3() End If End Sub

---

J'espère que tu as adapté l'exit... :cry: La syntaxe est

Code:

---

Private Sub LaTextBox_Exit(ByVal Cancel As MSForms.ReturnBoolean)

---

Il faut tout te mettre ? :evilred:

Citation:

---

Envoyé par ouskel'n'or

J'espère que tu as adapté l'exit... :cry: La syntaxe est

Code:

---

Private Sub LaTextBox_Exit(ByVal Cancel As MSForms.ReturnBoolean)

---

Il faut tout te mettre ? :evilred:

---

Ben Oui, ne te fache pas.

Code:

---

1 2 3 4 5 6

Private Sub TxtMontFact_Exit(ByVal Cancel As MSForms.ReturnBoolean) If Trim(TxtMontFact.Value) = LstMont.Value Then TxtOui = "X" TxtNon = "" End If End Sub

---

l'autre solution

Code:

---

1 2 3 4 5 6

Private Sub TxtMontFact_Exit(ByVal Cancel As MSForms.ReturnBoolean) If Trim(TxtMontFact.Value) = LstMont.List(LstMont.Listindex) Then TxtOui = "X" TxtNon = "" End If End Sub

---

ne fonctionne pas plus.

Bonjour à tous,

Après une nuit de repos, je me suis remis à ce problème.

Un "X" s'affiche par défaut dans TxtNon après que j'aie modifié un peu le code du
Private Sub CmbNumEng
Aprés FrmEngt.LstMont.List=Tab(3)
J'ai ajouté cette ligne
FrmEngt.TxtNon.Value="X"

Mais mon problème reste entier, puisque je n'arrive pas à afficher un "X" dans TxtOui lorsque le chiffre du TxtMontFact est égal à celui de LstMont.

Et si tu mets

Code:

---

1 2	TxtOui.text = "X" TxtNon.text = ""

---

?

Citation:

---

Envoyé par ouskel'n'or

Et si tu mets

Code:

---

1 2	TxtOui.text = "X" TxtNon.text = ""

---

?

---

Bonjour ouskel'n'or,

J'ai essayé avec .value et .text sans résultat.:cry:

Bonjour,
Je crois qu'il n'a pas bien compris quand l'événement Text_exit survient,
Mais peut être une autre piste...:mrgreen:

Code:

---

1 2 3 4 5 6 7 8 9

Private Sub TextBox1_Change() If Trim(TxtMontFact.Value) = LstMont.List(LstMont.listindex) then LabOui.Caption = "X" LabNon.Caption = "" Else LabOui.Caption = "" LabNon.Caption = "X" End If End Sub

---

Et une autre remarque, tu met des contrôle TextBox pour visualiser tes "X", que les utilisateurs peuvent modifiés, ce serait plus judicieux de mettre des labels (intitulé)
Et encore, tu emploi Tab comme tableau mais ce mot est réservé par VB et risque de te causer des problèmes.
A+

Bonjour,

Merci pour ta remarque, je vais changer les Tab et mettre des Labels à la place des TextBox.
J'essaie ton code, je suis un peu long à répondre car je cherche également de mon côté.
A++

Super ton système de Label. Par contre le reste ne fonctionne pas. Lorsque je tape un montant dans TxtMontFact c'est non par défaut.
Je démoralise que ça ne marche pas. En plus j'ai mon chef sur le dos.
Bon allez, je me remets à la recherche.
Je n'y arrive pas.Je vais laisser tomber et passer à une autre façon de faire.
Si vous avez de quoi éclairer ma lanterne pour que j'y vois plus clair. Mais là, c'est la purée de poix.

J'y suis arrivé enfin avec le code que m'a envoyé melouille56, je l'ai un peu trituré et ça marche.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20

Private Sub TxtMontFact_Change() Dim i As Integer For i = 0 To LstMont.ListCount - 1 If TxtMontFact.Value = LstMont.List(i) Then LabOui.Caption = "X" LabNon.Caption = "" ElseIf TxtMontFact.Value <> LstMont.Value Then LabOui.Caption = "" LabNon.Caption = "X" End If Next i End Sub ------------ Private Sub UserForm_Activate() LabOui.Caption = "" LabNon.Caption = "X" TxtMontFact = "" LstMont.Clear LstMont.AddItem "" End Sub

---

Si je mets un montant différent de celui de LstMont, le Label Non, s'affiche bien, si je modifie ce montant en mettant le même que celui de LstMont, le Label Oui s'affiche bien. Cependant, une fois que le label est passé à Oui, il ne revient pas sur non en cas de changement de montant.8O

Bonjour à tous,

Avez-vous une solution à me proposer ? si il n'y en a pas tant pis.
A+