L
lo
Guest
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!
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!