Afficher qu'un seul MsgBox

[Nagrom]

Bonjour,

J'utilise la macro suivante:

Sub contrôle()

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

End Sub

Avec un tel code, si j'ai 4 cellules dont la valeur est supérieure à 11 j'aurais 4 fois le message. Je souhaiterais savoir s'il est possible d'en obtenir qu'un seul même si plusieurs cellules correspondent au critère.

Merci.

 

[mutzik]

Re : Afficher qu'un seul MsgBox

bonjour
Sub contrôle()
dim txt
For Each cell In Range("D24:AA24")
If cell > "11" Then
txt = txt & cell.address & vblf
End If
Next cell
MsgBox txt & vblf & "Le nombre ne doit pas être supérieur à 11!"

End Sub

 

[pierrejean]

Re : Afficher qu'un seul MsgBox

bonjour Nagrom

A tester

Sub contrôle()
 
For Each cell In Range("D24:AA24")
If cell > "11" Then
MsgBox "Le nombre ne doit pas être supérieur à 11!", vbExclamation, "Erreur"
[COLOR=blue]Exit for[/COLOR]
End If
Next cell
 
End Sub

Edit: Salut Bertrand toujours un plaisir de te croiser
Edit2: S'il s'agit d'un nombre il serait peut-etre plus judicieux d'ecrire:
If cell > 11 Then

 

[Robert]

Re : Afficher qu'un seul MsgBox

Bonjour Nagrom, Bertrand, bonjour le forum,

Ou aussi plus simplement comme ça :

Sub contrôle()
For Each cell In Range("D24:AA24")
If cell > "11" Then
MsgBox "Le nombre ne doit pas être supérieur à 11!", vbExclamation, "Erreur"
[COLOR=red]Exit For[/COLOR]
End If
Next cell
End Sub

Édition :

Sacré PierreJean... Bonjour !

 

[Nagrom]

Re : Afficher qu'un seul MsgBox

Merci à vous trois.

 

[pierrejean]

Re : Afficher qu'un seul MsgBox

Re

@ Robert

Tres heureux egalement de croiser ton si brillant Neurone

 

[mutzik]

Re : Afficher qu'un seul MsgBox

re,

ah que coucou tous les deux, 13 heureux également de vous croiser