Discussion :

[Didpa]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[laetitia]

bonjour Didpa peut être passer par une evenementielle

code dans worksheet de ta feuille
exemple basique a adapter

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Didpa]

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

[laetitia]

re, eh bien le code tu le met dans thisworkbook

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Didpa]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

voilà

[laetitia]

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