Test de plusieurs TextBox

[GClaire]

Salut a toutes et ous

Voila je connais ce code pour obloiger la saisie d'un TextBox :

If TextBoxNom = "" Then
MsgBox "SAISIE OBLIGATOIRE !", vbCritical, "ATTENTION !"
TextBoxNom .SetFocus
Exit Sub
End If


Mais j'ai une quinzaine de TextBox pour lequel je dois faire ce test.

J'ai eu utiliser un code qui permettait d'appliquer ce test a tous les textbox présent dans un UserForm, mais je ne m'en rappelle plus.

Si vous avez un meilleur souvenir que moi, cela me serait utile.

Merci, G'Claire

 

[salim]

Salut G'Claire et le Forum

essaie ça si je ne me suis pas trompé cela devrait fonctionner.

Dim Ctrl as control

For each ctrl in Me.controls
If typeof ctrl is msforms.textbox then
If ctrl.value= "" then
msgbox blabla
end if
end if
next
end sub

@+ Salim

 

[GClaire]

Salim, le forum

Merci, et excuses moi de ne pas avoir répondu avant, car je chercher comment éviter de tester, tous les controls a la suite, de maniere a remplire de suite le controle non rempli.

Merci encore, G'Claire

 

[GClaire]

Bonsoir le forum,

Donc voici la procédure que j'ai pour faire ce test,

Dim Arr(), A As Integer
Arr = Array("SECUSal", "SECUVieillesseSal", "VeuvageSal", "ASSEDICSal" _
, "AGFFSal", "IRCEMSal", "CSGNonImposable", "CSGSal", "RDSSal")

For A = 0 To UBound(Arr)
If Me.Controls(Arr(A)) = "" Then
MsgBox "Le Champ : " & Me.Controls(Arr(A)).Name & " est vide !!!", vbExclamation, "ATTENTION"
Me.Controls(Arr(A)).SetFocus
Exit Sub
End If
Next

Mais le petit hic est, que mes textbox on tous des diminutif, est a l'affichage dans le message cela ne veux pas dire grand chose.

Donc comment je pourrais faire pour mettre le nom correct dans le message.

ex : pour le TextBox AAAAA, lui faire prendre le nom dans le message Lieu.

Merci, a vous,G'Claire

 

[Arnault30]

Re : Test de plusieurs TextBox

Bonjour,

J'ai ce genre de test à faire aussi, j'y suis parvenu. Toutefois je souhaiterais restreindre le champs de la boucle "each" à une page de mon multipage. Savez vous comment faire ?

J'ai jamais utilisé "Me", donc je suis un peu perdu.

 

[Pierrot93]

Re : Test de plusieurs TextBox

Bonsoir Arnault,

regarde ceci, pour la 1ère page d'un multipage :

Dim c As Control
For Each c In Me.MultiPage1.Pages(0).Controls
    If TypeName(c) = "TextBox" Then MsgBox c.Name
Next c

bonne soirée
@+

 

[Arnault30]

Re : Test de plusieurs TextBox

Super merci beaucoup