Afficher qu'un seul MsgBox

mutzik

XLDnaute Barbatruc

• 10 Septembre 2009

• #2

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

 

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 10 Septembre 2009

• #3

Re : Afficher qu'un seul MsgBox

bonjour Nagrom

A tester

Code:

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

 

Dernière édition: 10 Septembre 2009

Vote positif 0 Vote négatif

Robert

XLDnaute Barbatruc

Repose en paix

• 10 Septembre 2009

• #4

Re : Afficher qu'un seul MsgBox

Bonjour Nagrom, Bertrand, bonjour le forum,

Ou aussi plus simplement comme ça :

Code:

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 !

 

Vote positif 0 Vote négatif

N

Nagrom

XLDnaute Occasionnel

• 10 Septembre 2009

• #5

Re : Afficher qu'un seul MsgBox

Merci à vous trois.

 

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 10 Septembre 2009

• #6

Re : Afficher qu'un seul MsgBox

Re

@ Robert

Tres heureux egalement de croiser ton si brillant Neurone 🙄

 

Vote positif 0 Vote négatif

mutzik

XLDnaute Barbatruc

• 10 Septembre 2009

• #7

Re : Afficher qu'un seul MsgBox

re,

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

 

Vote positif 0 Vote négatif