Bonjour,

Je débute en VBA et je souhaiterais votre aide pour afficher une msgbox qui me permettrait de lister toutes les cellules d'une plage nommée DELAI et présentant des valeurs supérieures à 21.
(Les cellules vides devant être ignorées)

J'ai commencé le code ainsi :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
Sub DELAI()
    For Each Cellule In [DELAI]
        If Cellule.Value > 21 Then MsgBox "La cellule " & Cellule.Address(0, 0) & " est supérieure à 21."
    Next
End Sub
Le problème est le suivant :
Il me présente toutes les cellules de la sélection qui sont vides également ???
Je souhaite afficher toutes les cellules répondant au critère dans la même msgbox...

Vraiment un grand merci par avance pour votre aide...

Tom