Afficher un msgBox en fonction des valeurs de cellules

[Nagrom]

Bonjour,

Dans le fichier ci-joint, j'utilise la macro suivante:

Sub contrôle_A1()

For Each cell In Range("D24:AA24")
If cell.Value > "11" Then
MsgBox "Le nombre ne doit pas être supérieur à 11!", vbExclamation, "Erreur A1"
Exit For
End If
Next cell

End Sub

Néanmoins dans la plage D24:AA24 il n'y a aucune valeur supérieure à 11 mais le message s'affiche tout de même.

Pourriez-vous m'indiquez ce qui ne va pas?

Merci d'avance.

 

[jeanpierre]

Re : Afficher un msgBox en fonction des valeurs de cellules

Bonsoir Nagrom,

Modifie : If cell.Value > 11 Then

Sans les guillemets.

Bonne soirée.

Jean-Pierre

 

[Guest]

Re : Afficher un msgBox en fonction des valeurs de cellules

Bonsoir Nagrom,

Sans avoir ouvert le fichier, je pense que le test demande une modification

If cell.Value > 11 'Sans les guillemets.

A+

 

[Nagrom]

Re : Afficher un msgBox en fonction des valeurs de cellules

Merci à vous deux!

Bonne soirée.