Microsoft 365 cellules vides et boite de dialogue

michel.dupont

XLDnaute Occasionnel
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

XLDnaute Accro
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,
 

Discussions similaires

Statistiques des forums

Discussions
313 198
Messages
2 096 141
Membres
106 505
dernier inscrit
ngomez