TextBox en Vba Excel

**NEC14** · 19/09/2007, 11h39

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é** · 19/09/2007, 12h24

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** · 19/09/2007, 12h30

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** · 19/09/2007, 13h04

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 :

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** · 19/09/2007, 13h22

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

**Jean-Philippe André** · 19/09/2007, 13h27

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** · 19/09/2007, 13h44

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

**melouille56** · 19/09/2007, 13h47

Voilà ce qui marche

Code :

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

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

**ouskel'n'or** · 19/09/2007, 13h48

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) ?

**NEC14** · 19/09/2007, 13h55

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 :

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

**NEC14** · 19/09/2007, 13h58

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

**melouille56** · 19/09/2007, 13h58

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.

**melouille56** · 19/09/2007, 14h00

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 ?

**NEC14** · 19/09/2007, 14h02

Envoyé par melouille56

Voilà ce qui marche

Code :

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

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.

**melouille56** · 19/09/2007, 14h07

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.

**ouskel'n'or** · 19/09/2007, 14h12

Je reviens à ton test que je placerais plutôt dans l'événement exit de ton txtbox

Code :

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

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)

**NEC14** · 19/09/2007, 14h15

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

**ouskel'n'or** · 19/09/2007, 14h27

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) ?

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

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...

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ù.

**melouille56** · 19/09/2007, 14h35

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 ?

**NEC14** · 19/09/2007, 14h39

Envoyé par ouskel'n'or

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

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.

TextBox en Vba Excel

Macros et VBA Excel

Discussions similaires

Partager

Partager