Stock + Entrée - Sortie = Stock

JCGL

XLDnaute Barbatruc

• 9 Avril 2008

• #2

Re : Stock + Entrée - Sortie = Stock

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...

 

Vote positif 0 Vote négatif

JCGL

XLDnaute Barbatruc

• 9 Avril 2008

• #3

Re : Stock + Entrée - Sortie = Stock

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

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 9 Avril 2008

• #4

Re : Stock + Entrée - Sortie = Stock

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.

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
    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
@+

 

Vote positif 0 Vote négatif

B

Bebere

XLDnaute Barbatruc

• 9 Avril 2008

• #5

Re : Stock + Entrée - Sortie = Stock

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

 

Pièces jointes

• cellsmemory.xls

  24.5 KB · Affichages: 625

Vote positif 0 Vote négatif

ChTi160

XLDnaute Barbatruc

• 9 Avril 2008

• #6

Re : Stock + Entrée - Sortie = Stock

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

 

Dernière édition: 9 Avril 2008

Vote positif 0 Vote négatif

JCGL

XLDnaute Barbatruc

• 9 Avril 2008

• #7

Re : Stock + Entrée - Sortie = Stock

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

Comme WDAndCo semble absent, juste un coucou aux amis 🙂

A+ les Ch'tis
A+ à tous

 

Vote positif 0 Vote négatif

WDAndCo

XLDnaute Impliqué

• 9 Avril 2008

• #8

Re : Stock + Entrée - Sortie = Stock

Salut Ti ziote

Hé ! merci

 

Vote positif 0 Vote négatif

WDAndCo

XLDnaute Impliqué

• 10 Avril 2008

• #9

Re : Stock + Entrée - Sortie = Stock

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 !

 

Pièces jointes

• Matos.xls

  27 KB · Affichages: 584
• Matos.xls

  27 KB · Affichages: 625
• Matos.xls

  27 KB · Affichages: 624

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 10 Avril 2008

• #10

Re : Stock + Entrée - Sortie = Stock

Bonsoir à tous

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

Code:

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
@+

 

Vote positif 0 Vote négatif