Stock + Entrée - Sortie = Stock

[WDAndCo]

Bonsoir le Forum

Je voudrais si cela est possible que ce qui est entré en colonne E soit additionner en colonne G et si retape quelques choses cela s'additionne de nouveau.
Et la même chose en colonne F mais soit soustrait en colonne G. (un fichier est joint pour être plus claire)

D'avance merci

[JCGL]

Bonjour à tous,
Salut Grenoble ,

Pas de problème pour ouvrir le fichier mais une colonne supplémentaire devrait suffire... mais WDAndCo souhaite un _Change et je ne souhaite pas me lancer dans l'aventure...

Bon OK, pour les amis vanneurs..., un post pour rien mais j'ai quand même salué jmd2 et cela le vaut bien

A+ à tous et Désolé, euh non, pour l'intrusion...

[JCGL]

Re,
Salut T'ites Couettes ,

Meuh Non personne ne m'a encore vanné,... mais tu les connais, je préfère prendre les devants.

Pourquoi je répondonds à Brigitte... , vous ne le saurez pas...

Bises à T'ites Couettes
A+ à tous

[Pierrot93]

Bonsoir wdandco, jmd2, Jean-Claude et Brigitte aussi...

regarde peut être ci dessous, macro événementielle à placer dans le module de la feuille concernée.

Private Sub Worksheet_Change(ByVal Target As Range)
If Not IsNumeric(Target.Value) Then Exit Sub
If Not Intersect(Target, Range("E:F")) Is Nothing Then
    Range("G" & Target.Row).Value = IIf(Target.Column = 5, Range("G" & Target.Row).Value + Target.Value, _
    Range("G" & Target.Row).Value - Target.Value)
End If
End Sub

bonne soirée
@+

[Bebere]

bonjour wdandco,jmd,jcgl,pierrot
commentaires dans feuille
à bientôt

[ChTi160]

Heiiiinnnnnnnnnnnn !!!!!!!!!!!!!!!!

bon la , c'est juste pour saluer un pays WDAndCo
Salut Biloutte
Bonjour le fil Lol

Arfff je rigole , comment vas tu , depuis le temps !!!!

Bonne fin de Soirée

[JCGL]

Bonjour à tous,
Salut Pierrot ,
Salut Jean-Marie Tchou-Chou ,

Comme WDAndCo semble absent, juste un coucou aux amis

A+ les Ch'tis
A+ à tous

[WDAndCo]

Salut Ti ziote

Hé ! merci

[WDAndCo]

Bonsoir le Forum


" Pas de problème pour ouvrir le fichier mais une colonne supplémentaire devrait suffire... "
J'aimerais avoir une petite explication ! (Juste pour mon info)

J'ai pris ce code :

Private Sub Worksheet_Change(ByVal Target As Range)

If Not IsNumeric(Target.Value) Then Exit Sub

If Not Intersect(Target, Range("E:F")) Is Nothing Then
'Deprotege
Range("G" & Target.Row).Value = IIf(Target.Column = 5, Range("G" & Target.Row).Value + Target.Value, _
Range("G" & Target.Row).Value - Target.Value)
Range("J" & Target.Row).Value = Date
End If
' Range("E" & Target.Row).Value = 0
' Range("F" & Target.Row).Value = 0
'Protege
End Sub

Il marche très bien je l'ai adapté pour avoir la date de la modif en J.

Est possible que lorsque on modifie E, F s'efface et lorsque on modifie F, E s'efface ?

D'avance merci a ter tous !

[Pierrot93]

Bonsoir à tous

regarde le code ci dessous, utilisation d'une variable booleenne pour éviter de boucler sur les événements :

Dim b As Boolean
Private Sub Worksheet_Change(ByVal Target As Range)
If b = True Then Exit Sub
If Not IsNumeric(Target.Value) Then Exit Sub
If Not Intersect(Target, Range("E:F")) Is Nothing Then
    b = True
    Range("G" & Target.Row).Value = IIf(Target.Column = 5, Range("G" & Target.Row).Value + Target.Value, _
    Range("G" & Target.Row).Value - Target.Value)
    If Target.Column = 5 Then Target.Offset(0, 1).Value = "" Else Target.Offset(0, -1).Value = ""
    Range("J" & Target.Row).Value = Date
    b = False
End If
End Sub

bonne soirée
@+