Discussion :

[Combaz67]

Bonjour,

Etant débutant en VBA je m'en remets à vos conseils.
Je souhaite mettre en place un fichier possédant une macro pour les entrées en sorties de stock (sans historique).

Ci-dessous la macro utilisée pour une ligne.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Private Sub Worksheet_Change(ByVal target As Range)
 
    If target.Count > 1 Then Exit Sub
    Application.EnableEvents = False
    If target.Address = "$H$5" Or target.Address = "$F$5" Then
        If target.Address = "$H$5" Then
            Range("G5") = Range("G5") + target
        ElseIf target.Address = "$F$5" Then
            Range("G5") = Range("G5") - target
        End If
        target = ""
    End If
 
Application.EnableEvents = True
End Sub

Je l'ai testé elle marche très bien et c'est le résultat que je souhaite obtenir.
Malheureusement, mon tableau excel ne possède pas qu'une seule ligne mais 600.. j'ai essayé de le faire pour chaque ligne mais impossible de dépasser la ligne 180 pour cause de procédure trop longue.
Je m'en remets donc à vos conseils si je peux la réduire ou l'utiliser autrement..

Merci
Baptiste

[a_diard]

Bonsoir

Si j'ai bien compris ton besoin

si tu ne met à jour que la ligne active

Je ne comprend pas ton problème.

A +

[anasecu]

Bonjour,

j'ai essayé de le faire pour chaque ligne mais impossible de dépasser la ligne 180

Je ne sais pas comment tu as essayé mais en utilisant la macro suivante tu ne vas pas être bridé et elle fonctionne sur toutes les lignes

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub Worksheet_Change(ByVal target As Range)
 
    If target.Count > 1 Then Exit Sub
    If target.Row < 5 Then Exit Sub ' ligne début traitée
    Application.EnableEvents = False
    If target.Column = 8 Then ' "H"
        Cells(target.Row, "G").Value = Cells(target.Row, "G").Value + target.Value
        target = ""
    ElseIf target.Column = 6 Then  ' "F"
        Cells(target.Row, "G").Value = Cells(target.Row, "G").Value - target.Value
        target = ""
    End If
    Application.EnableEvents = True
End Sub

Edit : un stock géré de cette façon n'a aucune chance de fournir des résultats justes (jusqu'à preuve du contraire bien sûr !)

[Combaz67]

C'est ce qu'il me fallait ! Merci anasecu ! Bien vu l'utilisation sur les colonnes, c'était le blocage.

Pour gérer le stock je suis d'accord en un sens, mais pour initier de nouvelles personnes, je préfère commencer ainsi !
La démarche est d'inscrire les entrées et sorties pour éviter les écarts très important pour l'inventaire de fin d'année

Bonjour,


Je ne sais pas comment tu as essayé mais en utilisant la macro suivante tu ne vas pas être bridé et elle fonctionne sur toutes les lignes

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub Worksheet_Change(ByVal target As Range)
 
    If target.Count > 1 Then Exit Sub
    If target.Row < 5 Then Exit Sub ' ligne début traitée
    Application.EnableEvents = False
    If target.Column = 8 Then ' "H"
        Cells(target.Row, "G").Value = Cells(target.Row, "G").Value + target.Value
        target = ""
    ElseIf target.Column = 6 Then  ' "F"
        Cells(target.Row, "G").Value = Cells(target.Row, "G").Value - target.Value
        target = ""
    End If
    Application.EnableEvents = True
End Sub

Edit : un stock géré de cette façon n'a aucune chance de fournir des résultats justes (jusqu'à preuve du contraire bien sûr !)