Champs Vides

Le
J&B
Bonjour,

J'utilise cette boucle pour vérifier que au mons 1/6 champ n'est pas vide
Je souhaiterai que le message n'apparaissent que si l'ensemble des 6 champs
sont vides

Merci
J@B

************************************************

For i = 1 To 6
If .Cells(i, 2) = "" Then
MsgBox "Vous devez saisir les champs"
Exit Sub
End If
Next
**************************************************
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Daniel.C
Le #17714881
Bonjour.

If Application.CountA(.Range("B1:B6")) = 0 Then
MsgBox "Vous devez saisir les champs"
End If

Cordialement.
Daniel

Bonjour,

J'utilise cette boucle pour vérifier que au mons 1/6 champ n'est pas vide
Je souhaiterai que le message n'apparaissent que si l'ensemble des 6 champs
sont vides

Merci


************************************************

For i = 1 To 6
If .Cells(i, 2) = "" Then
MsgBox "Vous devez saisir les champs"
Exit Sub
End If
Next
**************************************************


Publicité
Poster une réponse
Anonyme