Question pour une msgbox

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:

---

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...:ccool:

Tom

Salut Tom, bienvenue sur le forum.
Juste une remarque : Evite d'utiliser le même nom pour une procédure, une plage ou variable. On ne se jamais ce que VBA va bien pouvoir comprendre.
Sinon, ton code me paraît bien :roll:

(Pour placer les balises code qui rendront ton code plus lisible dans tes messages, sélectionne-le et fais un clic sur "#")
Bonne soirée

Edit
As-tu vérifié que tes données sont bien des valeurs ?
(Mais ça n'expliquerait tout de même pas que des cellules ayant pour valeur zéro se retrouvent sélectionnées...)

bonjour Tom24 ouskel le forum j'ai teste pas de probleme en changent le nom de la macro ???

Bonsoir,

En effet, il est bizarre que la version 2007 n'affiche pas un message d'erreur, car c'est le cas sur la version 2000 :

Code:

---

For Each Cellule In [DELAI]

---

Citation:

---

Erreur de compilation :
Fonction ou variable attendue.

---

tant que l'on a pas changé le nom de la procédure.

Bonjour,

J'ai bien changé le nom de la macro (JOURS) afin de ne pas faire d'amalgame avec le nom de la plage nommée (DELAI).
Ce qui est étrange, c'est que les cellules vides soient sélectionnées et donc considérées comme supérieures à 21 ??
Pour information utile, j'ai des formules de calcul dans les cellules de la plage concernée....

Merci à vous

Bonjour tom,
Teste ça

Code:

---

1 2 3 4 5

Sub JOURS() For Each Cellule In [DELAI] If Val(Cellule) > 21 Then MsgBox "La cellule " & Cellule.Address(0, 0) & " est supérieure à 21." Next End Sub

---

si ça fonctionne alors tu as un autre problème :roll:

Re-bonjour,

C'est super. Cela fonctionne comme je le souhaite.
Encore merci pour le coup de main.

Tom