groundhog
XLDnaute Junior
Bonjour à tous,
En préambule : Je ne suis pas expert en VBA, je suis plutôt amateur. Merci pour votre indulgence...
Voilà, j'ai une problèmatique depuis une semaine sur un tableau de gestion de stocks, avec pour exemple la fonction suivante :
Si des les cellules des colonnes "I" et "O", le résultat de la formule < à celui des cellules de la colonne "B", alors affichage du résultat "RUPTURE" en colonne "A".
La fonction que je possède (merci à Fo_rum) fonctionne très bien, si dans les cellules des colonnes "I" et "O" le contenu est une valeur saisi manuellement. Par contre, en utilisant une formule dans les cellules des colonnes "I" et "O", le problème se complique : au changement de résultat, rien ne se passe.
Voici le code existant pour info :
J'espère avoir été clair pour vous tous, je cherche donc la clef de l'énigme pour terminer mon projet.
Merci à tous pour vos réponses !
En préambule : Je ne suis pas expert en VBA, je suis plutôt amateur. Merci pour votre indulgence...
Voilà, j'ai une problèmatique depuis une semaine sur un tableau de gestion de stocks, avec pour exemple la fonction suivante :
Si des les cellules des colonnes "I" et "O", le résultat de la formule < à celui des cellules de la colonne "B", alors affichage du résultat "RUPTURE" en colonne "A".
La fonction que je possède (merci à Fo_rum) fonctionne très bien, si dans les cellules des colonnes "I" et "O" le contenu est une valeur saisi manuellement. Par contre, en utilisant une formule dans les cellules des colonnes "I" et "O", le problème se complique : au changement de résultat, rien ne se passe.
Voici le code existant pour info :
Code:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Li As Integer
If Target.Count > 1 Then Exit Sub
Li = Target.Row
If Target.Address = "$I$" & Li Or Target.Address = "$O$" & Li Or Target.Address = "$U$" & Li Then
If Target < Range("C" & Li) Then
Cells(Li, "B") = "RUPTURE"
Else
Cells(Li, "B") = "EN STOCK"
End If
End If
End Sub
J'espère avoir été clair pour vous tous, je cherche donc la clef de l'énigme pour terminer mon projet.
Merci à tous pour vos réponses !