Détection cellule vide + message d'erreur

Bonjour à tous,

J'espère que vous allez bien

Je sollicite votre aide aujourd'hui car je souhaiterais savoir comment faire pour détecter une cellule vide et envoyer un message d'erreur sur Excel.

J'essaye de mieux expliquer j'ai un énorme fichier avec plein de macros. Dans un des dossiers, chaque personne doit renseigner une fiche et l'enregistrer automatiquement. Sauf que voilà, en consolidant, je me rends compte que beaucoup de cases ne sont pas renseignées alors je souhaiterais appliquer une formule/macro qui me permettrait de détecter les cellules vides et d'envoyer un message d'erreur pour que toutes les cellules soient renseignées au moment de la saisie.

P.S. Je ne peux pas joindre le fichier en question, j'espère que j'aurai quand même des réponses

Merci d'avance pour votre aide,

Salut salut

Bonjour,

Un exemple à mettre pour chaque TextBox ou ComboBox qui doit être renseignés

Private Sub CommandButton1_Click() 'Bouton de validation
  If Me.TextBox1.Value = "" Then 'Remplacer TextBox1 par le nom du TextBox
     MsgBox "Veuillez entrer un nom svp"
     Me.TextBox1.SetFocus 'Se replace sur le TextBox1 pour le renseigner
     Exit Sub 'Sort de la procèdure
  End If
End Sub

Par contre si tu as une vingtaine de TextBox, et que par chance elles s'appellent toujours TextBox1, TextBox2 etc...ou tb1,tb2...

Tu peux faire ça

Private Sub CommandButton1_Click() 'Bouton de validation
Dim I As Integer
  For I = 1 To 20
    If UserForm1.Controls("TextBox" & I) = "" Then
      MsgBox "Veuillez renseigner la case svp"
      UserForm1.Controls("TextBox" & I).SetFocus 'Se replace sur le TextBox1 pour le renseigner
      Exit Sub 'Sort de la procèdure
    End If
  Next I
End Sub

Bonjour M12, je te remercie pour tes réponses

Je trouve toujours des perles sur ce forum