Condition sur Textebox UserForm

Bonjour

je viens vers vous pour vous demander une petite aide qui doit etre trés facile pour vous.

Je voudrais mettre quelques conditions avant que l’utilisateur ajoute une ligne :

Voici l’algorithme :

• Si textbox3 et textbox5 sont vide et textbox7 a un contenu

Je veux une msgbox qui dit (il faut remplire le textbox 8)

Et si le textbox8 a déjà un contenu alors ne rien faire.

merci d'avance, voici mon fichier en PJ

Bonjour,

Remplace cette macro à la place de tes 2 ligne de commentaires avec les "If"

If TextBox3.Value = "" And TextBox7.Value = "" And TextBox5.Value > 0 And TextBox8 = "" Then
        MsgBox "il faut remplir le textbox 8"
        Exit Sub
    End If

Bonjour,

C'est pas très compliqué...

Après tous tes messages, comprends tu les codes que l'on te donne?

Private Sub CommandButton1_Click()   ' Ajouter Document
If TextBox3.Value = vbNullString And TextBox5.Value = vbNullString Then
    If TextBox7.Value <> vbNullString Then
        If TextBox8.Value = vbNullString Then
            MsgBox "remplir TextBox8"
            TextBox8.SetFocus
            Exit Sub
        End If
    End If
End If
Dim Ajouter
'...
   

M12 a écrit :

Bonjour,

Remplace cette macro à la place de tes 2 ligne de commentaires avec les "If"

If TextBox3.Value = "" And TextBox7.Value = "" And TextBox5.Value > 0 And TextBox8 = "" Then
        MsgBox "il faut remplir le textbox 8"
        Exit Sub
    End If

AJOUT LIGNE.xlsm

je te remercie, va marche trés bien

pijaku a écrit :

Bonjour,

C'est pas très compliqué...

Après tous tes messages, comprends tu les codes que l'on te donne?

Private Sub CommandButton1_Click()   ' Ajouter Document
If TextBox3.Value = vbNullString And TextBox5.Value = vbNullString Then
    If TextBox7.Value <> vbNullString Then
        If TextBox8.Value = vbNullString Then
            MsgBox "remplir TextBox8"
            TextBox8.SetFocus
            Exit Sub
        End If
    End If
End If
Dim Ajouter
'...
   

salut

oui je suis a fond pour comprendre merci beaucoup

DamienRRRR a écrit :

M12 a écrit :

Bonjour,

Remplace cette macro à la place de tes 2 ligne de commentaires avec les "If"

If TextBox3.Value = "" And TextBox7.Value = "" And TextBox5.Value > 0 And TextBox8 = "" Then
        MsgBox "il faut remplir le textbox 8"
        Exit Sub
    End If

AJOUT LIGNE.xlsm

je te remercie, va marche trés bien

Salut j'ai essayé cette condition pour dire ca :

If TextBox3.Value > 0 And TextBox7.Value > 0 And TextBox5.Value > 0 And TextBox4 = "" And TextBox6 = "" And TextBox8 = "" Then

MsgBox "il faut remplir textbox4, textbox6, textbox8"

Exit Sub

End If

mais ca n'a pas marché !

Un TextBox, c'est du texte. Toujours. Donc, un String.

Pour en faire un nombre, il faut le convertir.

Utilises donc Val :

If Val(TextBox3.Value) > 0

Si tu ne t'en sors pas en plaçant tes conditions à côté des autres, imbrique les :

If Val(TextBox3.Value) > 0 Then
    If Val(TextBox5.Value) > 0 Then
        If Val(TextBox7.Value) > 0 Then
           'etc...
        End If
    End If
End If

Re,

Si cela doit fonctionner, à condition de ne pas mettre celle d'avant

M12 a écrit :

Re,

Si cela doit fonctionner, à condition de ne pas mettre celle d'avant

Bonjour

mon programme m'affiche toujours (a ref version) malgrés que j'ai renseigné la valeurs

If TextBox3.Value > 0 Then

If TextBox5.Value > 0 Then

If TextBox7.Value > 0 Then

MsgBox (" merci de remplire textbox8")

Exit Sub

End If

MsgBox ("merci de remplire textbox6")

Exit Sub

End If

MsgBox ("merci de remplire textbox4")

Exit Sub

End If