validation bloquer si pas valeur dans textbox

[Geraldine]

Re-bonjour sans vouloir monopoliser le forum, j'ai une autre question (mon ordinateur portable oubli des lettres désolé, il vas moins vite que moi rrrrrrrrrr)

Dans une userform, j'ai plusieurs textbox 1, 2, 3, 4.
Je veux bloquer la validation tant que textbox 2 pas renseigné est ce possible ?

merci geraldine

 

[Pierrot93]

Re : validation bloquer si pas valeur dans textbox

Re Geraldine

en supposant que ta validation s'effectue par un CommandButton, essaye le code ci dessous :

Private Sub CommandButton1_Click()
If TextBox2.Value = "" Then Exit Sub
'ton code
End Sub

@+

 

[Cousinhub]

Re : validation bloquer si pas valeur dans textbox

Bonjour, ou prévenir l'utilisateur de remplir la TB2 :
Private Sub CommandButton1_Click()
If TextBox2.Value = "" Then MsgBox "Veuillez remplir la 2": _
TextBox2.SetFocus: Exit Sub
End Sub

 

[Robert]

Re : validation bloquer si pas valeur dans textbox

Bonjour Géraldine, bonjour le forum,

J'imagine que la validation se fait par un bouton "Valider" ou "Ok", etc... Un CommandButton1 par exemple.

Private Sub CommandButton1_Click()
If TextBox2.Value = "" Then
    TextBox2.SetFocus
    Exit Sub
End If
End Sub

Édition :

Bonjour Pierrot, bhbh, on s'est croisés. Moi je vote bhbh sur ce coup là...

 

[Pierrot93]

Re : validation bloquer si pas valeur dans textbox

Re, bonjour Robert

une autre solution :

Private Sub UserForm_Initialize()
TextBox2.SetFocus
End Sub

Private Sub TextBox2_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If TextBox2.Value = "" Then Cancel = True
End Sub

à l'initialisation on donne le focus sur le textbox, et on empêche la sortie tant qu'il est vide...

Robert, perso je vote Géraldine 🙂

bonne journée
@+

 

[Robert]

Re : validation bloquer si pas valeur dans textbox

Bonjour le fil, bonjour le forum,

Pfffff.... Mais pour qui votait-on alors ?

 

[Geraldine]

Re : validation bloquer si pas valeur dans textbox

merci a vous pierrot93, bhbh et robert

oui par un bouton
Mon code presque bon, ok si pas rempli il me revient bien, mais j'ai rempli ma textbox1 donc je veux que tu execute les extractions dans a1 a2 a3 a4

Private Sub Valider_Click()
If TextBox1.value = "" then Msgox "Veuillez remplir le taux de marge"
Textbox1.SetFocus: Exit sub
If UserForm5.ComboBox1.Value <> "" Then [C48] = UserForm5.ComboBox1 & " "
[a1] = UserForm5.TextBox1 & " "
[a2] = UserForm5.TextBox2 & " "
[a3] = UserForm5.TextBox3 & " "
[a4] = UserForm5.TextBox4 & " "
Unload UserForm5
End Sub

merci

 

[Geraldine]

Re : validation bloquer si pas valeur dans textbox

Pierrot93 dit "perso je vote Géraldine"
c'est pour mes incapacités au niveau "langage vba" ou pour la présence feminine du forum ce 15aout

mon message a croisé celui de pierrot3 donc jeregarde

 

[Cousinhub]

Re : validation bloquer si pas valeur dans textbox

Re-, Attention, mon code n'est que sur une seule ligne, regarde bien, il y a un espace et un Underscore là : MsgBox "Veuillez remplir la 2": _, ceci est fait pour pouvoir écrire sur 2 lignes, tout en étant la même instruction, pour la lecture sur l'écran (évite de partir à droite voir le reste du code...)
Cela donnerait donc :
f TextBox2.Value = "" Then MsgBox "Veuillez remplir la 2": TextBox2.SetFocus: Exit Sub

bonne chance

 

[Robert]

Re : validation bloquer si pas valeur dans textbox

Bonjour le fil, bonjour le forum,

Geraldine je n'ai pas compris du tout ton avant dernier post. Quant à Pierrot, comme tous les grands fauves, il marque son territoire... Ha ha ha !

 

[Pierrot93]

Re : validation bloquer si pas valeur dans textbox

Re

non, pas du tout Géraldine, simplement petit clin d'oeil à l'édition de Robert de 11h11

Édition :

Bonjour Pierrot, bhbh, on s'est croisés. Moi je vote bhbh sur ce coup là...

 

[Geraldine]

Re : validation bloquer si pas valeur dans textbox

bon je vais me detendre et je lit tout ça ce soir bonne journée atous

 

[Excel_lent]

Re : validation bloquer si pas valeur dans textbox

Bonjour à tous,

Avant d'aller piquer une tête,

Private Sub Valider_Click()
With UserForm5
  If TextBox2.Value = "" Then
    MsgBox "Veuillez remplir le taux de marge"
    TextBox2.SetFocus
     .Hide 'pour garder les autres saisies
     .Show
  End If
  If .ComboBox1.Value <> "" Then [C48] = .ComboBox1 & " "
  [a1] = .TextBox1 & " "
  [a2] = .TextBox2 & " "
  [a3] = .TextBox3 & " "
  [a4] = .TextBox4 & " "
  Unload Me 'pour remettre tous les champs à zéro
  [a1].Select
End With
End Sub

Userform5.hide cache seulement l'USF
Unload.Me vide l'Usf

Ce code permet de garder les autres saisies en cas d'oubli de la 2 (ou de la 1, je ne sais plus, j'ai perdu la tête).