TextBox en Vba Excel

Version imprimable

19/09/2007, 12h39
NEC14

TextBox en Vba Excel

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 :oops:

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

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

19/09/2007, 13h30
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:

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:

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
19/09/2007, 14h04
NEC14
Citation:
Envoyé par 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:

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:

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:bug:
19/09/2007, 14h22
melouille56

Est-ce que tu arrives déjà à avoir un x à l'endroit désiré à l'ouverture de ton formulaire ?
19/09/2007, 14h27
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 ?

En reprenant le code de melouille56

Code:

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

Voilà ce qui marche

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
26
27
28
29
30
Private Sub TxtMontFact_Change()
 
Dim i As Integer
 
For i = 0 To LstMont.ListCount - 1
    If LstMont.Selected(i) = True Then
    If TxtMontFact.Value = LstMont.Value Then
        TxtOui.Text = "X"
        TxtNon.Text = ""
    ElseIf TxtMontFact.Value <> LstMont.Value Then
        TxtOui.Text = ""
        TxtNon.Text = "X"
    End If
    End If
Next i
 
 
End Sub
 
Private Sub UserForm_Activate()
TxtNon.Text = "X"
TxtOui.Text = ""
TxtMontFact = ""
 
LstMont.Clear
LstMont.AddItem "item1"
LstMont.AddItem "item2"
LstMont.AddItem "item3"
LstMont.AddItem "item4" etc.
End Sub

A toi de jouer

19/09/2007, 14h48
ouskel'n'or

Tu ne dis pas à quel moment tu effectues ton test :
Tu fais ton test au moment de la sélection dans ta liste (LstMont_Click) ou après saisie dans la TextBox (TxtMontFact_Exit) ?
19/09/2007, 14h55
NEC14
Citation:

Envoyé par melouille56

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:

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
19/09/2007, 14h58
NEC14

Citation:

Envoyé par ouskel'n'or

Tu ne dis pas à quel moment tu effectues ton test :
Tu fais ton test au moment de la sélection dans ta liste (LstMont_Click) ou après saisie dans la TextBox (TxtMontFact_Exit) ?

Bonjour,

A l'ouverture du formulaire le "X" est dans le non. Dès que je tapes un montant dans TxtMontFact et que celui-ci est égal à LstMont, alors le "X" est dans oui
19/09/2007, 14h58
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.
19/09/2007, 15h00
melouille56

Citation:

Envoyé par NEC14

Bonjour,

A l'ouverture du formulaire le "X" est dans le non. Dès que je tapes un montant dans TxtMontFact et que celui-ci est égal à LstMont, alors le "X" est dans oui

Alors c'est bien ce que tu voulais nan ?

Citation:

Envoyé par melouille56

Voilà ce qui marche

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
26
27
28
29
30
Private Sub TxtMontFact_Change()
 
Dim i As Integer
 
For i = 0 To LstMont.ListCount - 1
    If LstMont.Selected(i) = True Then
    If TxtMontFact.Value = LstMont.Value Then
        TxtOui.Text = "X"
        TxtNon.Text = ""
    ElseIf TxtMontFact.Value <> LstMont.Value Then
        TxtOui.Text = ""
        TxtNon.Text = "X"
    End If
    End If
Next i
 
 
End Sub
 
Private Sub UserForm_Activate()
TxtNon.Text = "X"
TxtOui.Text = ""
TxtMontFact = ""
 
LstMont.Clear
LstMont.AddItem "item1"
LstMont.AddItem "item2"
LstMont.AddItem "item3"
LstMont.AddItem "item4" etc.
End Sub

A toi de jouer

Bonjour,
Je ne comprends pas les LstMont.AddItem. J'en mets combien ?
Ma question est peut-être stupide, mais je débute et là c'est le grand vide.:oops:

19/09/2007, 15h07
melouille56

Bein les additem, ca permet d'ajouter des items justement dans la listbox à l'ouvertur du formulaire.
Quand tu vas ouvrir ton formulaire (Userform), il faut bien que tu aies des données dans la listbox, à partir desquelles tu vas faire la comparaison avec la valeur que tu entreras en manuel dans ta textbox MontFact.
Donc pour avoir des valeurs qui apparaissent dans ta listbox, que tu vas par la suite sélectionner avec ta souris quand le formulaire s'affichera pdt l'exécution de ta macro, il faut bien que tu les aies rentrées à un moment donné.
Donc avec ca, tu charges les items (ou valeurs ou données) que tu veux au chargement du userform.
19/09/2007, 15h12
ouskel'n'or
Je reviens à ton test que je placerais plutôt dans l'événement exit de ton txtbox
Code:

1 2 3 4 5 6 Sub TxtMontFact_Exit() If lcase(TxtMontFact.Value) = lcase(LstMont.List(LstMont.listindex)) Then TxtOui.Text="X" TxtNon.Text="" End If End Sub
lcase est là si la casse de ta liste et celle de la textbox ne correspondent pas (Minuscules dans l'un et majuscule dans l'autre)
19/09/2007, 15h15
NEC14

Citation:

Envoyé par 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.

Je viens d'essayer, mais ça ne marche pas. Le montant qui s'affiche dans la ListBox est automatique lorsque je choisi un numéro dans une Combo.
Je ne comprends pas
19/09/2007, 15h27
ouskel'n'or

Citation:

Envoyé par ousk'

Tu ne dis pas à quel moment tu effectues ton test :
Tu fais ton test au moment de la sélection dans ta liste (LstMont_Click) ou après saisie dans la TextBox (TxtMontFact_Exit) ?

Citation:

Envoyé par NEC14

A l'ouverture du formulaire le "X" est dans le non. Dès que je tapes un montant dans TxtMontFact et que celui-ci est égal à LstMont, alors le "X" est dans oui

Citation:

Envoyé par NEC14

Le montant qui s'affiche dans la ListBox est automatique lorsque je choisi un numéro dans une Combo.

Si quelqu'un comprend quelque chose, je cède la place... :cry:

NEC14,
Si tu expliquais pas à pas la structure de ton userform et l'ordre dans lequel s'effectuent les sélections, la saisie, dans quel contrôle, dans quelles conditions, le résultat attendu selon ces conditions, ... alors quelqu'un de pas doué comme moi comprendrait peut-être d'où tu parts pour aller où.
19/09/2007, 15h35
melouille56

Citation:

Envoyé par NEC14

Je viens d'essayer, mais ça ne marche pas. Le montant qui s'affiche dans la ListBox est automatique lorsque je choisi un numéro dans une Combo.
Je ne comprends pas

Je ne comprends pas, tu arranges une macro deja existante ou tu crées une ?
19/09/2007, 15h39
NEC14

Citation:

Envoyé par ouskel'n'or

Si quelqu'un comprend quelque chose, je cède la place... :cry:

NEC14,
Si tu expliquais pas à pas la structure de ton userform et l'ordre dans lequel s'effectuent les sélections, la saisie, dans quel contrôle, dans quelles conditions, le résultat attendu selon ces conditions, ... alors quelqu'un de pas doué comme moi comprendrait peut-être d'où tu parts pour aller où.

Voilà :
J'ai un formulaire (FrmEngt) à plusieurs onglets. Un onglet s'appelle "Factures".
Dans lequel il y a une Combo (CmbNumEng) avec laquelle je selectionne dans une liste un n° d'engagement. Lorsque le n° est choisi, un montant s'affiche dans LstMont, un Nom de Tiers dans LstTiers et un site dans LstBat (il n'est pas possible de modifier les Lst).
Ensuite je tape un n° de facture dans TxtNumFact, une date dans TxtDateFact, et le montant de la facture dans TxtMontFact. En dernier je tape un "X" dans TxtOui si le montant de la facture est égal à celui de l'engagement (LstMont), sinon un "X" dans TxtNon. Et c'est dernière manip que je souhaite automatiser.
J'espère avoir été clair.:oops:
19/09/2007, 15h50
melouille56

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.
19/09/2007, 15h56
NEC14

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

19/09/2007, 16h04
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 ?

non le montant de l engagement
19/09/2007, 16h07
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.

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

19/09/2007, 16h49
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:

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.

20/09/2007, 09h08
NEC14

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.
20/09/2007, 10h15
ouskel'n'or
Et si tu mets
Code:

1 2 TxtOui.text = "X" TxtNon.text = ""
?
20/09/2007, 10h28
NEC14
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+

20/09/2007, 11h16
NEC14

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+