VBA petite question Résolu/Fermé

Question

Bonjour,

dans mon Excel j'ai en exemple des données dans les cellules A1:A3
J'aimerais me servir de cette macro pour vérifier  si les cellules sont vides ou remplies et émettre un MsgBox dans un cas comme dans l'autre.

Le code essayé ( de Polux31 ) merci en passant.


Sub testCellule()
Dim plage As Range
Dim cl

   Set plage = Worksheets(1).Range("A1:B3")

   For Each cl In plage
      If cl.Value = "" Then
         MsgBox "Toutes les cases ne sont pas renseignées !!!"
         Exit Sub
      End If
   Next cl

End Sub


Avec ce code si il y a une ou des cellules vides  il m'envoit le MsgBox "Toutes les cases ne sont pas renseignées !!!"
J'ai essayé de rajouté une ligne de code pour avoir un MsgBox si toutes les cellules sont renseignées.

Merci de m'aider

michel_m · Answer

bonjour

Sub plein_pasplein()
Dim plage As Range
Set plage = Range("A1:B3")

If Application.CountA(plage) = plage.Count Then
    MsgBox " plein"
Else
    MsgBox "pas plein"
End If
End Sub

VBA petite question

1 réponse

Discussions similaires