Bloquer la validation si une textebox est vide

slt, je souhaite avoir une aide concernant le non validation si par exemple un ou plusieurs textbox est vide

je m'explique :

dans mon userform j'ai un bouton (VALIDER) qui consiste a transférer les valeurs des textbox ver excel, donc je cherche un code vba pour empêcher cette validation en cas ou les textbox sont vide. est aussi le contour des texbox soit colorer, pour que l'utilisateur save quel texbox qu'il faut remplire.

j'ai une piece jointe pour plus de détails

merci

Bonjour,

Merci de préciser dans votre profil quelle version d'office et de Windows sont est utilisées

Car à l'ouverture de votre fichier, voici ce que l'on obtient

Sinon le code souhaité est du style

' Vérification des TextBox avant de valider
Private Sub CommandButton1_Click()
  Dim Ctl As Control
  ' Parcourir tous les controles de l'USF
  For Each Ctl In Me.Controls
    ' Si le controle est un TextBox
    If TypeOf Ctl Is MSForms.TextBox Then
      ' Vérifier s'il est vide
      If Ctl.Value = "" Then
        ' Si oui, donner le focus au controle
        Ctl.SetFocus
        ' Alerter
        MsgBox "Il manque une valeur dans ce champ !"
        Exit Sub
      End If
    End If
  Next
  ' Si ils sont tous remplis
  ' Mettre la suite du code ICI
End Sub

Bonjour, le forum

A tester

Avis :

Pourquoi ne pas mettre un formulaire avec une seule langue ?

Oui j'ai totalement oublié de mentionner mon profil. Désolé

Bonjour, le forum

Apprendre sans réfléchir est vain. Réfléchir sans apprendre est dangereux.

merci beaucoup ça fonctionne à merveille.

salut, office 2013

windows 8.1

le code que vous m'avez envoyer concerne seulement les texbox ( ce que j'ai souhaité avoir), mais j'ai un autre problème c'est qu'il faut que la condition soit appliquer sur les texbox et les combobox.

voici le code que j'ai eu

' Vérification des TextBox avant de valider
Private Sub CommandButton1_Click()
  Dim Ctl As Control
  ' Parcourir tous les controles de l'USF
  For Each Ctl In Me.Controls
    ' Si le controle est un TextBox
    If TypeOf Ctl Is MSForms.TextBox Then
      ' Vérifier s'il est vide
      If Ctl.Value = "" Then
        ' Si oui, donner le focus au controle
        Ctl.SetFocus
        ' Alerter
        MsgBox "Il manque une valeur dans ce champ !"
        Exit Sub
      End If
    End If
  Next
  ' Si ils sont tous remplis
  ' Mettre la suite du code ICI
End Sub

merci

Bonjour,

Voici

' Vérification des TextBox avant de valider
Private Sub CommandButton1_Click()
  Dim Ctl As Control
  ' Parcourir tous les controles de l'USF
  For Each Ctl In Me.Controls
    ' Si le controle est un TextBox
    If TypeOf Ctl Is MSForms.TextBox Or TypeOf Ctl Is MSForms.ComboBox Then
      ' Vérifier s'il est vide
      If Ctl.Value = "" Then
        ' Si oui, donner le focus au controle
        Ctl.SetFocus
        ' Alerter
        MsgBox "Il manque une valeur dans ce champ !"
        Exit Sub
      End If
    End If
  Next
  ' Si ils sont tous remplis
  ' Mettre la suite du code ICI
End Sub