MsgBox si...condition ... dans une colonne

[Pias]

Bonsoir le Forum

Je souhaite faire un macro pour afficher un msg box avec de conditions.
J’ai trouvé comment faire cellule par cellule (exemple macro ci-dessous, merci Michel).

Mais si la colonne contient plusieurs fois la condition comment faire pour que le message s’affiche une seule fois.

Merci d’avance

----------------------------------------------
Sub Masquerinv()
Sheets("Tri_2").Select
Dim Cell As Range
For Each Cell In Range("L1:L18")
If Cell = "1" Then MsgBox "Attention stock minimum . "
If Cell = "-1" Then MsgBox "Attention solde négatif ."
If Cell = "" Then MsgBox ""

Next Cell
Range("A1").Select
End Sub

----------------------------------------------

Amicalement

...On se lasse de tout sauf d’apprendre !..

 

[Robert]

Bonsoir Pias, bonsoir le forum,

Maniche... Mas que gol bonito ! Não compare homem !


Si il n'y avait eu qu'un seul message, Exit For suffisait.

For Each Cell In Range("L1:L18")
If Cell = "1" Then
MsgBox "Attention stock minimum . "
Exit For
End if
Next Cell

Mais dans ton cas si on place Exit For après la première condition, ni la seconde ni la troisième ne seront testées.

J'ai beau chercher je n'ai trouvé qu'un moyen qualifié de non conventionnel par l'extra-terrestre @+Thierry...

Sub Masquerinv()
Sheets("Tri_2").Select
Dim Cell As Range
'déclare 3 variables boleenne (vrai/Faux)
Dim cond1 As Boolean, cond2 As Boolean, cond3 As Boolean
For Each Cell In Range("L1:L18")
'la condition devient : si la cellule est égale à 1 et la variable cond1 est fausse
'elle n'est respectée que la première fois...
If Cell = "1" And cond1 = False Then
MsgBox "Attention stock minimum . "
cond1 = True 'définit la variable cond1
End If
'idem avec -1 et cond2
If Cell = "-1" And cond2 = False Then
MsgBox "Attention solde négatif ."
cond2 = True 'définit la variable cond2
End If
'idem avec vide et cond3
If Cell = "" And cond3 = False Then
MsgBox ""
cond3 = True 'définit la variable cond3
End If
Next Cell
Range("A1").Select
End Sub

À plus,

Robert

 

[Pias]

Salut, Robert

Quand j’ai posté le message le PSG été qualifié, maintenant ils perdre 1-3 se que n’arrange pas l’affaire du PSG ni de Champions en tille FC.PORTO mais ils faux et croire jusque au bout.
Un Sachant que tu aime bien le foot, je te dis un grand merci d’avoir pris le temps de me répondre pendent un match.

Le problème été effectivement les trois conditions, j’avais fait des recherche dans les anciens messages mais je n’avait rien trouvé.
Cette solution de @+Thierry ( que je salut et remercie au passage ) me convient.

Estou d’accordo, o golo du Maniche foi fantastico, foi un daquelles golos que só o Pélé e Eusébio sabiam fazer.

A+


...On se lasse de tout sauf d’apprendre !..