contrôle de saisie dans USF

lo · 4 Août 2004

Bonjour le forum !

Après plusieurs heures de recherches je me permets à un nouveau un petit post.
Je cherche à mettre un contrôle de saisie dans mon userform, de façon à limiter les erreurs. J'ai trouvé pas mal d'infos ici :
http://www.gaboly.com/VBA/CodeSimplifieControle.html

Cependant je me demandais s'il ne pouvait pas y avoir qq choses de plus simple sachant que pour que la validation soit acceptée il faudrait que les textbox: NOM / ADRESS / CP / VILLE soient renseignés obligatoirement et "plus dur" qu'au moins une textbox sur trois (que l'on va appelé Textbox1, Textbox2 et Textbox3) soit remplie.

Voici mon code actuel pour info :

Private Sub Valider_Click()
Dim Ligne As Integer
Dim sjour As String
Dim qu As String
Dim nom As String
Dim adress As String
Dim cp As String
Dim ville As String

Ligne = Sheets("Saisie").Range("D65536").End(xlUp).Row + 1
Worksheets(1).Activate
Cells(Ligne, 1).Value = sjour
Cells(Ligne, 2).Value = qu
Cells(Ligne, 4).Value = nom
Cells(Ligne, 5).Value = adress
Cells(Ligne, 6).Value = cp
Cells(Ligne, 7).Value = ville

Dim CTRL As Control
For Each CTRL In Controls
If TypeOf CTRL Is MSForms.TextBox Then
If Not CTRL.Tag = "NonReset" Then CTRL = ""
End If
Next CTRL

Exit Sub

Merci à tous, et bonne journée!

lo · 4 Août 2004

J'ai oublié de préciser que les 3 textbox citées dans mon précédent post correspondent à choix numérique 1
Autrement, ou la valeur rentré est 1 = ok, ou vide.

🙂

salim · 4 Août 2004

Bonjour Lo et le Forum

Lo je ne suis pas un expert loin de là mais je n'arrive pas à comprendre ton code tu déclares des variables de type String mais elles correspondent à quoi ? si elles correspondent aux TextBox tu n'as qu'a nommer tes TextBox directement avec ces noms et ensuite faire une boucles sur les TextBox por savoir si elles sont renseignées ou pas.

For Each CTRL in Me.Controls
If TypeOf CTRL Is MSForms.TextBox Then
If CTRL = " " Then
<instructions>
End If
Next CTRL

Ou alors j'ai rien compris ce qui est très probable.

@+ Salim

@+Thierry · 4 Août 2004

Bonjour Lo, le Forum

Il y a plusieurs moyens, si tu regardes mes démos dans ce Forum, j'en ai dévoilé plusieurs.

Dans ton cas en reprenant cette fameuse boucle For Each CTRL on peut faire un truc dans le Style :

Private Sub CommandButton1_Click()
Dim CTRL As Control
Dim CTRLName As String
Dim Bad As Byte

  For Each CTRL In Controls
    If TypeOf CTRL Is MSForms.TextBox Then
      If CTRL.Name = "TextBox1" Or CTRL.Name = "TextBox2" Or CTRL.Name = "TextBox3" Then
        If CTRL = "" Then
        Bad = Bad + 1
        CTRLName = CTRLName & CTRL.Name & vbCrLf
        End If
      End If
    End If
Next CTRL

Select Case Bad
Case 1
  MsgBox "Le Control TextBox : " & vbCrLf & CTRLName & " est Vide", vbCritical
  Exit Sub
Case 2, 3
  MsgBox "Les Controls TextBoxes : " & vbCrLf & CTRLName & "   sont Vides", vbCritical
Exit Sub
End Select

End Sub

Je n'ai pas intégré ta macro, car tes noms de controls ne sont pas mentioné ici mais tout ce que je sais c'est qu'il ne semble pas nécessaire de passer par des variables (sjour, su, nom...) si tu as utilisé la démonination par défaut (TextBox1, TextBox2, 3 etc) tu peux faire ceci directement exemple :

Option Explicit
Private Sub CommandButton1_Click()
Dim CTRL As Control
Dim CTRLName As String
Dim Bad As Byte
Dim Ligne As Integer
Dim Colon As Byte

  For Each CTRL In Controls
    If TypeOf CTRL Is MSForms.TextBox Then
      If CTRL.Name = "TextBox1" Or CTRL.Name = "TextBox2" Or CTRL.Name = "TextBox3" Then
        If CTRL = "" Then
        Bad = Bad + 1
        CTRLName = CTRLName & CTRL.Name & vbCrLf
        End If
      End If
    End If
  Next CTRL

Select Case Bad
Case 1
  MsgBox "Le Control TextBox : " & vbCrLf & CTRLName & " est Vide", vbCritical
  Exit Sub
Case 2, 3
  MsgBox "Les Controls TextBoxes : " & vbCrLf & CTRLName & " sont Vides", vbCritical
  Exit Sub
End Select

 With Sheets("Saisie")
  Ligne = .Range("D65536").End(xlUp).Row + 1
     For Colon = 1 To 7
      .Cells(Ligne, Colon) = Controls("TextBox" & Colon)
     Next Colon
&nbspEnd With

  For Each CTRL In Controls
    If TypeOf CTRL Is MSForms.TextBox Then
      If Not CTRL.Tag = "NonReset" Then CTRL = ""
   &nbspEnd If
  Next CTRL

End Sub

Bonne Journée
@+Thierry

@+Thierry · 4 Août 2004

Bonjour Salim,

Désolé je ne t'avais pas vu, mais tu as tout à fait raison, pas besoin (à mon avis de passer par des Variables pour récupérer le contenu des TextBox, mais comme on ne sait pas trop ce que Lo a dans son UserForm, c'est difficile de dire d'avance...

Par contre attention Salim : If CTRL = " " Then
Ne Signifie pas "Vide" mais un Espace... le Vrai Vide c'est If CTRL = "" Then

Bonne Journée
@+Thierry

salim · 4 Août 2004

Bonjour @+Thierry

C'est pas grave on s'est croisé, effectivement cela signifie un espace en plus je l'ai appris y'a pas longtemps mais en fait pour plus de lisibilité j'ai voulu aéré le texte et j'ai commi une erreur comme quoi tout à son importance
Merci .

@+ Salim

lo · 4 Août 2004

Bonjour Thierry, Salim, re le forum.

Voici une copie exacte de mon code ce sera peut être plus clair :

Private Sub UserForm_Activate()
TBsjour.Value = Format(Now, "MM/DD/YYYY") ' date auto
TBsjour.Enabled = False ' empèche toute modification sur le textbox
End Sub

'page saisie
Private Sub Valider_Click()
Dim Ligne As Integer
Dim sjour As String
Dim qu As String
Dim nom As String
Dim adress As String
Dim cp As String
Dim ville As String
Dim cour As String
Dim net As String
Dim pt As String
Dim lp As String
Dim un As String
Dim ept As String
Dim sept As String
Dim laforetpt As String
Dim artlp As String
Dim laforetlp As String
Dim capeblp As String
Dim intun As String
Dim perun As String

On Error GoTo Err
sjour = TBsjour.Value
qu = TBqu.Value
nom = UCase(TBnom.Value)
adress = TBadress.Value
cp = TBcp.Value
ville = UCase(TBville.Value)
cour = TBcour.Value
net = TBnet.Value
pt = TBpt.Value
lp = TBlp.Value
un = TBun.Value
ept = TBept.Value
sept = TBsept.Value
lpt = TBlaforetpt.Value
artlp = TBartlp.Value
llp = TBlaforetlp.Value
clp = TBcapeblp.Value
intun = TBintun.Value
perun = TBperun.Value

Ligne = Sheets("Saisie").Range("D65536").End(xlUp).Row + 1
Worksheets(1).Activate
Cells(Ligne, 1).Value = sjour
Cells(Ligne, 2).Value = qu
Cells(Ligne, 4).Value = nom
Cells(Ligne, 5).Value = adress
Cells(Ligne, 6).Value = cp
Cells(Ligne, 7).Value = ville
Cells(Ligne, 8).Value = cour
Cells(Ligne, 9).Value = net
Cells(Ligne, 10).Value = pt
Cells(Ligne, 11).Value = ept
Cells(Ligne, 12).Value = sept
Cells(Ligne, 13).Value = lpt
Cells(Ligne, 14).Value = lp
Cells(Ligne, 15).Value = artlp
Cells(Ligne, 16).Value = llp
Cells(Ligne, 17).Value = clp
Cells(Ligne, 18).Value = un
Cells(Ligne, 19).Value = intun
Cells(Ligne, 20).Value = perun

' en cours de test :
If IsMissing(TexteMessage) Then
TexteMessage = "Vous n'avez pas indiqué " & ComplTexte
End If

Dim CTRL As Control
For Each CTRL In Controls
If TypeOf CTRL Is MSForms.TextBox Then
If Not CTRL.Tag = "NonReset" Then CTRL = ""
End If
Next CTRL

Exit Sub
Err:
MsgBox "Oupppsssss erreur"
End Sub

Private Sub TBnom_Exit(ByVal Cancel As MSForms.ReturnBoolean)
TBnom.Value = UCase(TBnom.Value)
End Sub

Private Sub Quit_Click()
Unload tpo
End Sub

Cela pourra peut être aider Salim à comprendre mon code ;-)

Je n'ai pas intégré ta macro, car tes noms de controls ne sont pas mentioné ici mais tout ce que je sais c'est qu'il ne semble pas nécessaire de passer par des variables (sjour, su, nom...) si tu as utilisé la démonination par défaut (TextBox1, TextBox2, 3 etc) tu peux faire ceci directement exemple : => je le saurais pour l'avenir. En fait j'avais posé des variables pour soucis de "lisibilité". Je ne le referais plus promis ;-)

Je vais me pencher sur vos deux idées dès maintenant. Merci les gars

contrôle de saisie dans USF

lo

Guest

lo

Guest

salim

Guest

@+Thierry

Guest

@+Thierry

Guest

salim

Guest

lo

Guest

Discussions similaires

contrôle de saisie dans USF

lo

Guest

lo

Guest

salim

Guest

@+Thierry

Guest

@+Thierry

Guest

salim

Guest

lo

Guest

Discussions similaires

Privacy & Transparency

Privacy & Transparency