Microsoft 365 cellules vides et boite de dialogue

[michel.dupont]

bonjour
dans une plage de cellule je voudrais mettre en couleur jaune les cellules vides et faire apparaître un message pour avertir que des cellules sont vides.Par contre si toutes les cellules de la plage sont remplies je voudrais faire apparaitre un message pour dire que les cellules sont bien remplies...
voila mon code qui bien sur se plante...
par avance un grand merci et bonne soirée
Michel

Sub macro3()
Dim c As Range
For Each c In Range("h28:h29,j28:j29,n28:n29,n32:n33,h31:h34,f32:f35,j28:j29,e31,j31,a28,j2")
If IsEmpty(c) Then c.Interior.ColorIndex = 6
If IsEmpty(c) Then
MsgBox ("Des cellules ne sont pas remplies.Elles apparaissent en jaune.Merci de les remplir")
End If
Exit Sub
If c.Value <> 0 Then c.Interior.ColorIndex = 0
If c.Value <> 0 Then
MsgBox ("votre formulaire peut être envoyé")
Exit Sub
End If
Next
End Sub

 

[Gégé-45550]

bonjour
dans une plage de cellule je voudrais mettre en couleur jaune les cellules vides et faire apparaître un message pour avertir que des cellules sont vides.Par contre si toutes les cellules de la plage sont remplies je voudrais faire apparaitre un message pour dire que les cellules sont bien remplies...
voila mon code qui bien sur se plante...
par avance un grand merci et bonne soirée
Michel

Sub macro3()
Dim c As Range
For Each c In Range("h28:h29,j28:j29,n28:n29,n32:n33,h31:h34,f32:f35,j28:j29,e31,j31,a28,j2")
If IsEmpty(c) Then c.Interior.ColorIndex = 6
If IsEmpty(c) Then
MsgBox ("Des cellules ne sont pas remplies.Elles apparaissent en jaune.Merci de les remplir")
End If
Exit Sub
If c.Value <> 0 Then c.Interior.ColorIndex = 0
If c.Value <> 0 Then
MsgBox ("votre formulaire peut être envoyé")
Exit Sub
End If
Next
End Sub

Bonsoir,
Essayez ceci :

Sub macro3()
Dim c As Range, Msg As Boolean
Msg = False
For Each c In Range("h28:h29,j28:j29,n28:n29,n32:n33,h31:h34,f32:f35,j28:j29,e31,j31,a28,j2")
If IsEmpty(c) Then
c.Interior.ColorIndex = 6
Msg = True
End If
If c.Value <> 0 Then
c.Interior.ColorIndex = 0
End If
Next
If Msg = True Then
MsgBox ("Des cellules ne sont pas remplies.Elles apparaissent en jaune.Merci de les remplir")
Else
MsgBox ("votre formulaire peut être envoyé")
End If
End Sub

Cordialement,

 

[michel.dupont]

Bonsoir,
Essayez ceci :

Cordialement,

parfait
un très grand merci
bonne soirée
Michel