Calcul dans une cellule clignotante

Bonjour,

Je suis débutant en VBA et j'ai besoin de votre aide afin de réaliser mon projet.

J'ai un tableau avec des entées et des sorties de stock, la dernière colonne représente l'état de celui-ci.

J'ai un code qui me permet de faire clignoter et de générer un bip si la valeur minimum est atteinte dans la cellule de stock.

Cependant ce code ne fonctionne que si je rentre manuellement la valeur, il ne fonctionne pas si j'ajoute un calcul afin d'automatiser la procédure.

Je m'explique, sur le tableau ci-joint la première cellule de stock (J3) a une formule, j'atteint mon stock mini (< à 3) et il ne se passe rien, pas d'alerte.

Sur les autres cellules de stock si je rentre le chiffre de 2 ça fonctionne.

Cordialement

Bonsoir

Tu peux modifier ta macro comme-ceci

Private Sub Worksheet_Change(ByVal Target As Range)

  If Not Intersect(Range("B3:J10"), Target) Is Nothing And Target.Count = 1 Then
    With Range("J" & Target.Row)
      .ClearComments
      .Interior.ColorIndex = xlNone
      If .Value < 3 Then
        Beep
        '.AddComment
        '.Comment.Text Text:="Prévoir commande"
        ' .Comment.Visible = True
        .Interior.ColorIndex = 6
      End If
    End With
  End If
End Sub

Bonsoir,

J'ai testé en rajoutant une formule. Le code événementiel marche bien.

Bonsoir Raja,

Merci de la rapidité de la solution, ça fonctionne impeccablement.

Cordialement.

Bonjour

Oui et moi je sens le gaz ?

Bonsoir,

Oups désolé Banzai64 de t'avoir oublié, mille excuses.

J'aurais une autre question, je pensais m'en sortir seul mais je n'y arrive pas.

Je souhaiterai que mon seuil d'alerte soit différents selon les produits, je m'explique :

Pour les poire, pommes (ligne 3 & 4) le seuil d'alerte serait 3 unités, le raisin, abricot et kiwi (ligne 5, 8 & 9) 2 unités et banane, pêche et mangue (ligne 6, 7 & 10) 1 unité.

Cordialement.

Ps : encore une fois, mes sincères excuses Banzai64.

Bonjour

Une idée : Avec une colonne indiquant le stock minimal

A voir

Bonsoir Banzai64,

Je n'y avais pas pensé.....pourtant ça peut paraître logique

Ça fonctionne parfaitement, je te remercie pour l'aide que tu m'as apporté.

Cordialement.