Nombre négatifs VBA

Bonjour,

Comment écrire un nombre négatifs dans un module sur VBA ? Ou faire comprendre que lorsque une valeur atteint -1 il faut afficher un message ?

Bonjour,

Sub Test()

Dim Nombre As Integer

    Nombre = -1000

    If Nombre < 0 Then
       MsgBox "Valeur négative !"
    End If

End Sub

Bonjour,

Je vais être embêtant mais j'ai créer ce programme pour faire une caisse enregistreuse.

Et je veux que lorsque j'atteigne -1 (et -2,-3,-4,...) dans ma cellule C3 la valeur des cellules (ligne,8) et (ligne,9) deviennent "RUPTURE"

En d'autres termes comment remplacer le : =0 pour que cela fonctionne aux nombres négatifs ?

Bonjour,

Un exemple de code à tester :

Sub Produit1TailleXXSO()
    Range("H42").Select
    Selection.End(xlUp).Select
    ligne = ActiveCell.Row + 1
    Cells(ligne, 8).Value = Sheets("Prix + Stock Produit").Cells(3, 1).Value
    Cells(ligne, 9).Value = Sheets("Prix + Stock Produit").Cells(3, 2).Value
    Cells(ligne, 10).Value = Sheets("Prix + Stock Produit").Cells(2, 3).Value
    Sheets("Prix + Stock Produit").Select
    Range("C3").Value = Range("C3").Value - 1

    If Range("C3").Value <= -1 Then 
        Sheets("Caisse").Select
        Cells(ligne, 8).Value = "RUPTURE"
        Cells(ligne, 9).Value = "RUPTURE"
    End If

    Sheets("Caisse").Select
    Range("I1").Select
End Sub