Tite question pour une formule qui parait simple...
3 réponses
Eric
Bonjour tt le monde,
Je recherche une formule de calcul pour une gestion de stock..
Lorsque je veux appliquer ma formule tte simple, cela me donne le message :
formule circulaire : modifier.. Et je n'arrive jamais à l'appliquer...
Exple :
A1 B1 C1
10 5 3
Je voudrais que le total se fasse en A1 soit cette formule la : =somme
(A1+B1-C1)
(que la somme en A1 soit variable en fonction des saisies en + sur B1 ou
en - sur C1) ceci pour une gestion de stocks...
Mais ça met met que des erreurs : formule circulaire..;
Je suis largué...
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
Paul V.
Bonjour,
Normal que tu aies un calcul circulaire puisque tu modifie A1 dans ton calcul et que A1 fais partie de ton calcul.
Faut modifier la structure de ton tableur ou le faire en VBA
A+
Paul V
Eric wrote:
Bonjour tt le monde, Je recherche une formule de calcul pour une gestion de stock.. Lorsque je veux appliquer ma formule tte simple, cela me donne le message : formule circulaire : modifier.. Et je n'arrive jamais à l'appliquer...
Exple : A1 B1 C1 10 5 3
Je voudrais que le total se fasse en A1 soit cette formule la : =somme (A1+B1-C1) (que la somme en A1 soit variable en fonction des saisies en + sur B1 ou en - sur C1) ceci pour une gestion de stocks...
Mais ça met met que des erreurs : formule circulaire..; Je suis largué...
Si qqun à la réponse, merci de votre aide ...
Bonjour,
Normal que tu aies un calcul circulaire puisque tu modifie A1 dans ton
calcul et que A1 fais partie de ton calcul.
Faut modifier la structure de ton tableur ou le faire en VBA
A+
Paul V
Eric wrote:
Bonjour tt le monde,
Je recherche une formule de calcul pour une gestion de stock..
Lorsque je veux appliquer ma formule tte simple, cela me donne le
message : formule circulaire : modifier.. Et je n'arrive jamais à
l'appliquer...
Exple :
A1 B1 C1
10 5 3
Je voudrais que le total se fasse en A1 soit cette formule la :
=somme (A1+B1-C1)
(que la somme en A1 soit variable en fonction des saisies en + sur B1
ou en - sur C1) ceci pour une gestion de stocks...
Mais ça met met que des erreurs : formule circulaire..;
Je suis largué...
Normal que tu aies un calcul circulaire puisque tu modifie A1 dans ton calcul et que A1 fais partie de ton calcul.
Faut modifier la structure de ton tableur ou le faire en VBA
A+
Paul V
Eric wrote:
Bonjour tt le monde, Je recherche une formule de calcul pour une gestion de stock.. Lorsque je veux appliquer ma formule tte simple, cela me donne le message : formule circulaire : modifier.. Et je n'arrive jamais à l'appliquer...
Exple : A1 B1 C1 10 5 3
Je voudrais que le total se fasse en A1 soit cette formule la : =somme (A1+B1-C1) (que la somme en A1 soit variable en fonction des saisies en + sur B1 ou en - sur C1) ceci pour une gestion de stocks...
Mais ça met met que des erreurs : formule circulaire..; Je suis largué...
Si qqun à la réponse, merci de votre aide ...
Eric
Bonjour AV, Merci beaucoup pour cette formule géniale... Ca marche ouiiii..!!
Puis je abuser de tes compétences?? Est il possible d'appliquer cette même formule dans toute une feuille de calcul??? qui comprend bcp d'articles? (en changeant les valeurs 2 par 3,4,etc. ...) Ou alors faut il appliquer une autre formule... Je suis qu'un pauvre petit débutant mais qui ne demande qu'à apprendre... En tous cas merci déjà pour cette première info, C'est sympa.
"AV" a écrit dans le message de news:
Avec ton stock en C2, Réappro. en D2 et Ventes en E2 Dans le module de la feuille (Clic droit sur l'onglet > Visualiser le code
copier/coller le code suivant) :
Private Sub Worksheet_Change(ByVal zz As Range) If zz.Address = "$D$2" Then [C2] = [C2] + [D2] If zz.Address = "$E$2" Then If [E2] > [C2] Then [E2].Select MsgBox "Qté non dispo en stock !" Application.EnableEvents = False [E2] = "" Application.EnableEvents = True Exit Sub End If [C2] = [C2] - [E2] End If End Sub
AV
Bonjour AV,
Merci beaucoup pour cette formule géniale...
Ca marche ouiiii..!!
Puis je abuser de tes compétences??
Est il possible d'appliquer cette même formule dans toute une feuille de
calcul??? qui comprend bcp d'articles? (en changeant les valeurs 2 par
3,4,etc. ...)
Ou alors faut il appliquer une autre formule...
Je suis qu'un pauvre petit débutant mais qui ne demande qu'à apprendre...
En tous cas merci déjà pour cette première info,
C'est sympa.
"AV" <alain.vallon@wanadoo.fr> a écrit dans le message de
news:ed2zjP1dDHA.736@TK2MSFTNGP09.phx.gbl...
Avec ton stock en C2, Réappro. en D2 et Ventes en E2
Dans le module de la feuille (Clic droit sur l'onglet > Visualiser le code
copier/coller le code suivant) :
Private Sub Worksheet_Change(ByVal zz As Range)
If zz.Address = "$D$2" Then [C2] = [C2] + [D2]
If zz.Address = "$E$2" Then
If [E2] > [C2] Then
[E2].Select
MsgBox "Qté non dispo en stock !"
Application.EnableEvents = False
[E2] = ""
Application.EnableEvents = True
Exit Sub
End If
[C2] = [C2] - [E2]
End If
End Sub
Bonjour AV, Merci beaucoup pour cette formule géniale... Ca marche ouiiii..!!
Puis je abuser de tes compétences?? Est il possible d'appliquer cette même formule dans toute une feuille de calcul??? qui comprend bcp d'articles? (en changeant les valeurs 2 par 3,4,etc. ...) Ou alors faut il appliquer une autre formule... Je suis qu'un pauvre petit débutant mais qui ne demande qu'à apprendre... En tous cas merci déjà pour cette première info, C'est sympa.
"AV" a écrit dans le message de news:
Avec ton stock en C2, Réappro. en D2 et Ventes en E2 Dans le module de la feuille (Clic droit sur l'onglet > Visualiser le code
copier/coller le code suivant) :
Private Sub Worksheet_Change(ByVal zz As Range) If zz.Address = "$D$2" Then [C2] = [C2] + [D2] If zz.Address = "$E$2" Then If [E2] > [C2] Then [E2].Select MsgBox "Qté non dispo en stock !" Application.EnableEvents = False [E2] = "" Application.EnableEvents = True Exit Sub End If [C2] = [C2] - [E2] End If End Sub
AV
AV
A adapter : Le stock en C2:Cx Le réappro. en D2:Dx Les Ventes en E2:Ex Dans le module de la feuille :
Private Sub Worksheet_Change(ByVal zz As Range) y = zz.Column: x = zz.Row If y < 4 Or y > 5 Or x = 1 Then Exit Sub If y = 4 Then 'réappros Cells(x, 3) = Cells(x, 3) + zz.Value: Exit Sub End If If y = 5 Then 'ventes If Cells(x, 5) > Cells(x, 3) Then Cells(x, 5).Select MsgBox "Qté non dispo en stock !" Application.EnableEvents = False Cells(x, 5) = "" Application.EnableEvents = True Exit Sub Else: Cells(x, 3) = Cells(x, 3) - Cells(x, 5) End If End If End Sub
AV
A adapter :
Le stock en C2:Cx
Le réappro. en D2:Dx
Les Ventes en E2:Ex
Dans le module de la feuille :
Private Sub Worksheet_Change(ByVal zz As Range)
y = zz.Column: x = zz.Row
If y < 4 Or y > 5 Or x = 1 Then Exit Sub
If y = 4 Then 'réappros
Cells(x, 3) = Cells(x, 3) + zz.Value: Exit Sub
End If
If y = 5 Then 'ventes
If Cells(x, 5) > Cells(x, 3) Then
Cells(x, 5).Select
MsgBox "Qté non dispo en stock !"
Application.EnableEvents = False
Cells(x, 5) = ""
Application.EnableEvents = True
Exit Sub
Else: Cells(x, 3) = Cells(x, 3) - Cells(x, 5)
End If
End If
End Sub
A adapter : Le stock en C2:Cx Le réappro. en D2:Dx Les Ventes en E2:Ex Dans le module de la feuille :
Private Sub Worksheet_Change(ByVal zz As Range) y = zz.Column: x = zz.Row If y < 4 Or y > 5 Or x = 1 Then Exit Sub If y = 4 Then 'réappros Cells(x, 3) = Cells(x, 3) + zz.Value: Exit Sub End If If y = 5 Then 'ventes If Cells(x, 5) > Cells(x, 3) Then Cells(x, 5).Select MsgBox "Qté non dispo en stock !" Application.EnableEvents = False Cells(x, 5) = "" Application.EnableEvents = True Exit Sub Else: Cells(x, 3) = Cells(x, 3) - Cells(x, 5) End If End If End Sub