Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel Champs Vides

Champs Vides

1 réponse
Avatar
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
**************************************************
Signaler un problème avec ce contenu

1 réponse

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Daniel.C
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
**************************************************