Discussion :

[Tom24]

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

[ouskel'n'or]

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

(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...)

[laetitia]

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

[Invité]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

For Each Cellule In [DELAI]

Erreur de compilation :
Fonction ou variable attendue.

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

[Tom24]

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

[ouskel'n'or]

Bonjour tom,
Teste ça

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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