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
**************************************************
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
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 **************************************************
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
J@B
************************************************
For i = 1 To 6
If .Cells(i, 2) = "" Then
MsgBox "Vous devez saisir les champs"
Exit Sub
End If
Next
**************************************************
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 **************************************************