Bonjour à tous (tes),
Je reviens vers vous, je cherche à prévenir l'utilisateur qu'il va être en
stock négatif.
J'ai en colonne 3 ( C) , un stock calculé ( stock initial+achats-ventes) et
je voudrais interdire une valeur <0
Le Menu données -validation ne fonctionne qu'en cas de saisie , de même que
la macro de AV
'Alain Vallon sur www.excelabo.net
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Column = 3 Then
If Target < 0 Then MsgBox "Attention Stock négatif"
End If
End Sub
Je suis persuadé que vous avez une soluce
Merci d'avance
--
Jacques
enlever le _no_Spam
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Pierre Fauconnier
Bonjour
Private Sub Worksheet_Change(ByVal Target As Range) If Application.WorksheetFunction.CountIf(Range("c1:c65536"), _ "<0") <> 0 Then MsgBox ("Stock négatif") End Sub
-- Cela convient-il? ---- Pierre Fauconnier "Si j'étais Dieu, je démissionnerais pour que les gens arrêtent de se battre en mon nom." (Le Chat...) (remplacer NOSPAM par pfi.be pour me répondre. Merci)
---
Jacques Gronier wrote:
Bonjour à tous (tes), Je reviens vers vous, je cherche à prévenir l'utilisateur qu'il va être en stock négatif. J'ai en colonne 3 ( C) , un stock calculé ( stock initial+achats-ventes) et je voudrais interdire une valeur <0 Le Menu données -validation ne fonctionne qu'en cas de saisie , de même que la macro de AV
'Alain Vallon sur www.excelabo.net Private Sub Worksheet_Change(ByVal Target As Excel.Range) If Target.Column = 3 Then If Target < 0 Then MsgBox "Attention Stock négatif" End If End Sub
Je suis persuadé que vous avez une soluce Merci d'avance
Bonjour
Private Sub Worksheet_Change(ByVal Target As Range)
If Application.WorksheetFunction.CountIf(Range("c1:c65536"), _
"<0") <> 0 Then MsgBox ("Stock négatif")
End Sub
--
Cela convient-il?
----
Pierre Fauconnier
"Si j'étais Dieu, je démissionnerais pour que les gens arrêtent de se battre
en mon nom." (Le Chat...)
(remplacer NOSPAM par pfi.be pour me répondre. Merci)
---
Jacques Gronier wrote:
Bonjour à tous (tes),
Je reviens vers vous, je cherche à prévenir l'utilisateur qu'il va
être en stock négatif.
J'ai en colonne 3 ( C) , un stock calculé ( stock
initial+achats-ventes) et je voudrais interdire une valeur <0
Le Menu données -validation ne fonctionne qu'en cas de saisie , de
même que la macro de AV
'Alain Vallon sur www.excelabo.net
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Column = 3 Then
If Target < 0 Then MsgBox "Attention Stock négatif"
End If
End Sub
Je suis persuadé que vous avez une soluce
Merci d'avance
Private Sub Worksheet_Change(ByVal Target As Range) If Application.WorksheetFunction.CountIf(Range("c1:c65536"), _ "<0") <> 0 Then MsgBox ("Stock négatif") End Sub
-- Cela convient-il? ---- Pierre Fauconnier "Si j'étais Dieu, je démissionnerais pour que les gens arrêtent de se battre en mon nom." (Le Chat...) (remplacer NOSPAM par pfi.be pour me répondre. Merci)
---
Jacques Gronier wrote:
Bonjour à tous (tes), Je reviens vers vous, je cherche à prévenir l'utilisateur qu'il va être en stock négatif. J'ai en colonne 3 ( C) , un stock calculé ( stock initial+achats-ventes) et je voudrais interdire une valeur <0 Le Menu données -validation ne fonctionne qu'en cas de saisie , de même que la macro de AV
'Alain Vallon sur www.excelabo.net Private Sub Worksheet_Change(ByVal Target As Excel.Range) If Target.Column = 3 Then If Target < 0 Then MsgBox "Attention Stock négatif" End If End Sub
Je suis persuadé que vous avez une soluce Merci d'avance
Jacques Gronier
Merci Beaucoup Pierre, C'est parfait @ bientôt Jacques
Pierre Fauconnier wrote:
Bonjour
Private Sub Worksheet_Change(ByVal Target As Range) If Application.WorksheetFunction.CountIf(Range("c1:c65536"), _ "<0") <> 0 Then MsgBox ("Stock négatif") End Sub
Jacques Gronier wrote:
Bonjour à tous (tes), Je reviens vers vous, je cherche à prévenir l'utilisateur qu'il va être en stock négatif. J'ai en colonne 3 ( C) , un stock calculé ( stock initial+achats-ventes) et je voudrais interdire une valeur <0 Le Menu données -validation ne fonctionne qu'en cas de saisie , de même que la macro de AV
'Alain Vallon sur www.excelabo.net Private Sub Worksheet_Change(ByVal Target As Excel.Range) If Target.Column = 3 Then If Target < 0 Then MsgBox "Attention Stock négatif" End If End Sub
Je suis persuadé que vous avez une soluce Merci d'avance
Merci Beaucoup Pierre,
C'est parfait
@ bientôt
Jacques
Pierre Fauconnier <pierre.fauconnier@NOSPAM> wrote:
Bonjour
Private Sub Worksheet_Change(ByVal Target As Range)
If Application.WorksheetFunction.CountIf(Range("c1:c65536"), _
"<0") <> 0 Then MsgBox ("Stock négatif")
End Sub
Jacques Gronier wrote:
Bonjour à tous (tes),
Je reviens vers vous, je cherche à prévenir l'utilisateur qu'il va
être en stock négatif.
J'ai en colonne 3 ( C) , un stock calculé ( stock
initial+achats-ventes) et je voudrais interdire une valeur <0
Le Menu données -validation ne fonctionne qu'en cas de saisie , de
même que la macro de AV
'Alain Vallon sur www.excelabo.net
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Column = 3 Then
If Target < 0 Then MsgBox "Attention Stock négatif"
End If
End Sub
Je suis persuadé que vous avez une soluce
Merci d'avance
Merci Beaucoup Pierre, C'est parfait @ bientôt Jacques
Pierre Fauconnier wrote:
Bonjour
Private Sub Worksheet_Change(ByVal Target As Range) If Application.WorksheetFunction.CountIf(Range("c1:c65536"), _ "<0") <> 0 Then MsgBox ("Stock négatif") End Sub
Jacques Gronier wrote:
Bonjour à tous (tes), Je reviens vers vous, je cherche à prévenir l'utilisateur qu'il va être en stock négatif. J'ai en colonne 3 ( C) , un stock calculé ( stock initial+achats-ventes) et je voudrais interdire une valeur <0 Le Menu données -validation ne fonctionne qu'en cas de saisie , de même que la macro de AV
'Alain Vallon sur www.excelabo.net Private Sub Worksheet_Change(ByVal Target As Excel.Range) If Target.Column = 3 Then If Target < 0 Then MsgBox "Attention Stock négatif" End If End Sub
Je suis persuadé que vous avez une soluce Merci d'avance
