For each

bonsoir

je voudrais savoir comment me dépatouiller en utilisant For Each pour mon problème suivant :

pour chaque cellule allant de T4 à T13 si il y en a une qui est supérieur à 175 alors il m'affiche une msgbox ("attention le quota des CA est atteint"), j'ai mis la macro suivant dans la feuille 21 mais ça ne fonctionne pas.

Sub Action_range()

Dim MaPlage As Range

Set MaPlage = Range("t4:t13")

' Pour chaque cellule contenue dans la plage sélectionnée...

For Each Cell In MaPlage

' ici j'éxecute le programme

If MaPlage > 175 Then

MsgBox ("attention, le quotas de CA est dépassée")

Next

End Sub

par exemple :

si la cellule T4 est inférieur à 175 alors il ne se passe rien, si la cellule T6 (par exemple) deviens > à 175 alors il apparait la msgbox, si la cellule T10 deviens "plus tard " > à 175 alors la msgbox apparait .....donc dés qu'une cellule dans cette plage dépasse 175 alors la msgbox entre en action

voila

bisous à vous

lili

Bonjour,

Tu peux tester le code suivant

Sub Action_range()
Dim Cell As Range
Dim MaPlage As Range
Set MaPlage = Range("t4:t13")
' Pour chaque cellule contenue dans la plage sélectionnée...
For Each Cell In MaPlage
' ici j'éxecute le programme
If Cell.Value > 175 Then MsgBox " Attention, le quota de CA est dépassé..."
Next Cell
End Sub

salut James, non cela ne fonctionne pas, j'ai mis le code dans la feuille ou se trouve mon tableau.

j'ai joint le classeur : en fait je voudrais que lorsque je saisisse les chiffres dans la feuill2 (pour n'importe quel mois) et que si ce chiffre saisi depasse 175 alors la msgbox pointe son nez, mais son nez doit etre trés petit car je ne la vois pas apparaitre lol

bisous

lili

Bonjour Lili,

Ci-joint ton fichier avec la macro testée ...

nickel comme toujours

bisous à toi James007

lili

Re,

Merci pour tes remerciements ...

Avec le cours actuel du nickel ...

mdr

bisous

LILI61 a écrit :

mdr

bisous

Merci aussi ... pour les

Très Bonnes Fêtes ...!!!