if end if, msgbox

Bonjour

Voilà j'aimerais qu'une message box s'ouvre,quand une cellule est inferieur a une autre, j'ai essayé plusieur combinaison mais cela ne fonctionne pas.
Si vous avez une petite idée, merci

Code:

---

Range("C10").FormulaR1C1 = "=if(RC<RC[2],MsgBox ""ATTENTION il ne reste plus que" & " " & (ActiveCell.Value) & " " & (Label1.Caption)", vbInformation)

---

Ce code là, ne fonctionne pas, ai je oublié, une virgule ou autre ?

Cordialement

bonjour Didpa peut être passer par une evenementielle

code dans worksheet de ta feuille
exemple basique a adapter

Code:

---

1 2 3

Private Sub Worksheet_Change(ByVal Target As Range) If [a10] > [a1] Then MsgBox "plus grand" Else MsgBox "plus petit" End Sub

---

ok, mais j'ai un code qui rajoute des feuilles, et il faudrait pouvoir incorporer ton code dans chaque nouvelle feuille.

re, eh bien le code tu le met dans thisworkbook

Code:

---

1 2 3

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) If [a10] > [a1] Then MsgBox "plus grand" Else MsgBox "plus petit" End Sub

---

mais ma mgbox doit récuperer la valeur des textbox, et sur une boucle de 25 articles

Code:

---

msgbox ""ATTENTION il ne reste plus que" & " " & (ActiveCell.Value) & " " & (Label1.Caption)", vbInformation

---

voilà

re, en fin de compte tes 2 posts sont liees!!!! ca sert a rien de passer par une evenementielle dans ton cas il faudra le mettre dans userform quand tu feras des changements. mais comme dit dans l'autre post pas le temps de rester