Test sur textbox checkbox et doublon

Version imprimable

Bonjour au forum,

Voilà, j'ai 2problèmes dans mon suserform
- le premier concerne textbox et case à cocher
lorsque l'userform s'affiche verifie que la TextBox18 soit remplie, si oui la checkbox est cochée si non alors logique c'est l'inverse et TextBox18 encadrée en rouge. Ce que j'écris dans UserForm_Initialize()

Code:

1
2
3
4
5
6
7
If Me.TextBox18 = "" Then
CheckBox1 = False
Me.TextBox18 .BorderColor = RGB(255, 0, 0)
If Me.TextBox18 <> "" Then
Else: CheckBox1 = True
End If
End If

Le problème, c'est que ça reste cocher même si TextBox18 est remplie, comment faire ?

- le deuxième problème est le controle de doublon
Je saisie dans mon formulaire (qui s'ouvre depuis un bouton d'un autre formulaire)
le nom puis le nom de l'entreprise etc., si TxtNom ou TxtEntreprise existe, il affiche un message sinon je peux continuer à remplir le reste du formulaire. Ca marche en partie
Le code de l'userform pour etre plus claire.

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
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
Option Explicit
 
Private Sub TxtNom_Change()
If TxtNom = "" Then VérifExistence
'End If
End Sub
 
Private Sub TxtEntreprise_Change()
If TxtEntreprise= "" Then VérifExistence
'End If
End Sub
 
Private Sub CommandButton1_Click()
Dim r, Y As Long
Dim ob As Control
If TextBox18  = "" Then
MsgBox "Merci de compléter le nom du nouveau client avant de saisir les autres données !"
Me.TextBox18 .BorderColor = vbRed 'RGB(255, 0, 0)
TextBox18 .SetFocus
Exit Sub
End If
For Each ob In Me.Controls
If ob.Tag > "" Then
Select Case Val(ob.Tag)
Case 16, 17, 1
Feuil9.Cells(gg, Val(ob.Tag)) = Val(ob)
'Case 16
'If ob.Value = True Then Feuil9.Cells(gg, Val(ob.Tag)) = 1 Else Feuil9.Cells(gg, Val(ob.Tag)) = 0
Case 31, 23
If IsDate(ob) = True Then Feuil9.Cells(gg, Val(ob.Tag)) = CDate(ob) Else Feuil9.Cells(gg, Val(ob.Tag)) = ""
Case Else
Feuil9.Cells(gg, Val(ob.Tag)) = ob
End Select
End If
Next
dico1
dep.client.Clear
If dep.TextBox9 = "" Then
For r = 2 To finf9
dep.client.AddItem Feuil9.Cells(r, 1) & " " & Feuil9.Cells(r, 3) & " (" & Feuil9.Cells(r, 4) & ")"
dep.client.List(r - 2, 1) = r
Next
dep.client = gg
Else
For r = 2 To finf9
If UCase(Mid(Feuil9.Cells(r, 3), 1, Len(dep.TextBox9))) = UCase(dep.TextBox9) Then
dep.client.AddItem Feuil9.Cells(r, 1) & " " & Feuil9.Cells(r, 3) & " (" & Feuil9.Cells(r, 4) & ")"
dep.client.List(Y, 1) = r
Y = Y + 1
End If
Next
End If
Unload Me
End Sub
 
Private Sub UserForm_activate()
Dim ob As Control
For Each ob In Me.Controls
If ob.Tag > "" Then
Select Case Val(ob.Tag)
Case 16, 17
ob = Format(Feuil9.Cells(gg, Val(ob.Tag)), "0.00")
ob = Replace(ob, ",", ".")
Case Else
ob = Feuil9.Cells(gg, Val(ob.Tag))
End Select
End If
Next
If nom = "" Then nom = WorksheetFunction.Max(Feuil9.Range("a:a")) + 1
End Sub
 
Private Sub UserForm_Initialize()
Dim aa
plus
aa = Feuil18.Range("a2:a" & Feuil18.Range("a6500").End(xlUp).Row)
ComboBox1.List = aa
aa = Feuil18.Range("b2:b" & Feuil18.Range("b6500").End(xlUp).Row)
ComboBox2.List = aa
aa = Feuil18.Range("c2:c" & Feuil18.Range("c6500").End(xlUp).Row)
ComboBox3.List = aa
'aa = Feuil18.Range("d2:d" & Feuil18.Range("d6500").End(xlUp).Row)
'ComboBox4.List = aa
aa = Feuil18.Range("e2:e" & Feuil18.Range("e6500").End(xlUp).Row)
ComboBox5.List = aa
aa = Feuil18.Range("g2:g" & Feuil18.Range("g6500").End(xlUp).Row)
ComboBox6.List = aa
aa = Feuil18.Range("h2:h" & Feuil18.Range("h6500").End(xlUp).Row)
ComboBox7.List = aa
aa = Feuil18.Range("i2:i" & Feuil18.Range("i6500").End(xlUp).Row)
ComboBox8.List = aa
aa = Feuil18.Range("f2:f" & Feuil18.Range("f6500").End(xlUp).Row)
ComboBox9.List = aa
aa = Feuil18.Range("k2:k" & Feuil18.Range("k6500").End(xlUp).Row)
ComboBox10.List = aa
aa = Feuil18.Range("j2:j" & Feuil18.Range("j6500").End(xlUp).Row)
ComboBox11.List = aa
 
If Me.TextBox18 = "" Then
CheckBox1 = False
Me.TextBox18 .BorderColor = vbRed 'RGB(255, 0, 0)
If Me.TextBox18 <> "" Then
Else: CheckBox1 = True
End If
End If
End Sub
 
Private Sub VérifExistence()
 Dim TV() As Variant, L As Long
 TV = Feuil9.[C:D].Value
 L = 1
 Do: L = L + 1
    If TV(L, 1) = "" And TV(L, 2) = "" Then Exit Sub
    If TV(L, 1) = TxtNom  And TV(L, 2) = TxtEntreprise Then Exit Do
    Loop
 MsgBox TxtNom  & " " & TxtEntreprise & " existe déjà"
 End Sub

Qu'est-ce qui ne vas pas ?

Merci Stephanie

06/04/2012, 10h46
Daniel.C
Bonjour,

1. Tu testes si le textbox est rempli à l'intérieur du test où le textbox est vide. Mets :
Code:

1 2 3 4 5 6 7 If Me.TextBox18 = "" Then CheckBox1 = False Me.TextBox18 .BorderColor = RGB(255, 0, 0) Else CheckBox1 = True Me.TextBox18 .BorderColor = End If
en indiquant la couleur d'origine du textbox.

2.

Code:

Ca marche en partie

Est-ce que tu peux expliquer ce qui marche et ce qui ne marche pas ?
06/04/2012, 15h14
stephadm

bonjour Daniel C et le forum

Daniel C, j'ai essayé votre code mais hélas rien ne se passe. Dès que j'ouvre l'userform, la textbox devrait être encadrer en rouge car il n'y a rien d'inscrit dans cette dernière.

Pourquoi ?

Je vais voir après pour les reste, je vais avancer petit à petit.

Stephanie
06/04/2012, 15h49
casefayere

Bonjour,

Citation:

Dès que j'ouvre l'userform, la textbox devrait être encadrée....

as-tu recopié la proposition de Daniel dans ton code "Private Sub UserForm_Initialize()" ?
06/04/2012, 15h56
Daniel.C

Apparemment, on ne peut pas mettre d'autre couleur que les couleurs pisseuses que tu peux voir dans les propriétés du textbox.
06/04/2012, 15h57
stephadm

bonjour casefayere, au forum

J'ai bien modifié ce que Daniel.C m'a mis dans la partie initialisation de l'userform. Dans le 1er post en seconde partie, j'ai le code complet de mon userform, il y a quelque chose qui coince !

Savez-vous en regardant dans ce code et prenant en compte la modification ?

Merci

Stephanie

bonjour Daniel.C, asefayere et le forum

C'est bon, j'ai fait autrement pour mon problème de checkbox en faisant une lisaison (VRAI/FAUX) avec une cellule.

Maintenant, j'ai un autre problème. A la validation du formulaire, je controle que 2TextBox soient rempli si non alors le focus se positionne sur la celle qui n'est pas rempli et encadre en rouge. Le focus fonctionne mais pas l'encadrement !
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 Private Sub CommandButton1_Click() .... .... If nom = "" Then MsgBox "Merci de compléter le nom du nouveau client !" Me.nom.BorderColor = RGB(255, 0, 0) nom.SetFocus ElseIf Me.TextBox18 = "" Then MsgBox "Merci de compléter la date de création du nouveau client !" Me.TextBox18.BorderColor = RGB(255, 0, 0) TextBox18.SetFocus Exit Sub .... .... End sub
Que se passe t-il ?

Stephanie

Bonjour stephadm,

et comme ça ?

Code:

1
2
3
4
5
6
7
8
9
10
11
12
......
If nom = "" Then
  MsgBox "Merci de compléter le nom du nouveau client avant de saisir les autres données !"
  Me.nom.BorderColor = RGB(255, 0, 0) 'je n'ai pas vérifié
  nom.SetFocus: Exit Sub
End If
If Me.TextBox18 = "" Then
  MsgBox "Merci de compléter la date de création du nouveau client avant de saisir les autres données !"
  Me.TextBox18.BorderColor = RGB(255, 0, 0) 'je n'ai pas vérifié
  TextBox18.SetFocus: Exit Sub
End If
.......

07/04/2012, 10h30
gFZT82

Bonjour à tous,

A tout hasard, as-tu vérifié la propriété BorderStyle de tes TextBox ?

Cordialement.
07/04/2012, 11h17
stephadm
Bonjour gFZT82, Daniel.C, asefayere et le forum

Je ne comprends pas

Citation:

A tout hasard, as-tu vérifié la propriété BorderStyle de tes TextBox ?

Que faut-il vérifier ?

J'ai essayé ceci
Code:

1 2 3 4 5 If nom= "" Then MsgBox "Merci de compléter le nom du nouveau client avant de saisir les autres données !" Me.nom.BorderColor = RGB(255, 0, 0) nom.SetFocus Exit Sub
pareil, ça ne fonctionne toujours pas en ce qui concerne l'encadrement en rouge.

Merci pour le coup de main

Stephanie

essayes comme ça :
Code:

1 2 3 4 5 6 If nom= "" Then MsgBox "Merci de compléter le nom du nouveau client avant de saisir les autres données !" Me.nom.Borderstyle = 1 Me.nom.BorderColor = RGB(255, 0, 0) nom.SetFocus Exit Sub
PS : As-tu vérifié cette remarque de gFZT82 ?

Citation:

A tout hasard, as-tu vérifié la propriété BorderStyle de tes TextBox ?

Bonjour Casefayere, gFZT82, Daniel.C et le forum

Merci, ça fonctionne bien. C'était tout bête, il fallait y penser !

Est-ce que on peux simplifier ?
Code:

1 2 3 4 5 6 7 If nom= "" Then MsgBox "Merci de compléter le nom du nouveau client avant de saisir les autres données !" Me.nom.Borderstyle = 1 Me.nom.BackColor = RGB(241, 221, 220) Me.nom.BorderColor = RGB(255, 0, 0) nom.SetFocus Exit Sub
Stephanie

Personnellement, je ne vois pas, à part intégrer un With :

Code:

1
2
3
4
5
6
7
If nom = "" Then
  MsgBox "Merci de compléter le nom du nouveau client avant de saisir les autres données !"
  With Me.nom
    .Borderstyle = 1: .BackColor = RGB(241, 221, 220): .BorderColor = RGB(255, 0, 0)
    .SetFocus
  End With
End If

07/04/2012, 16h21
stephadm

bonjour Casefayere, gFZT82, Daniel.C et le forum

Ok, ça fonctionne. Merci tout particulièrement à Casefayere, gFZT82, Daniel.C car grace à vous
- j'ai progressé et
- de plus vous m'avez dépannés.

Au plaisir de vous relire dans des furur posts.

Stephanie