Petit PB tout simple VBA avec "Worksheet_Change"

[HasRom]

Bonjour à tous 😀 ,

Je suis étudiant dans le domaine des télécoms et réseaux.
Dans le cadre de mon stage je dois faire un fichier excel qui gère le stock de l'entreprise.

Dans ce classeur excel que je vous joins grace à ce lien free, j'ai un problème tout simple de calcule avec Worksheet_Change.

Free - Envoyez vos documents

Dans la feuille "J.L.F..." j'ai mis un petit bout de code VBA qui ajoute ou enleve dans "QUANTITE STOCK" et se réinitialise à zero pour une future opération.

Mon problème est le suivant :

J'aimerais que cette opération fonctionne pour chaqu'une des lignes des autres produits de la feuille de calcul J.L.F....

Actuellement seule la ligne 2 se recalcule automatiquement et je n'arrive pas à généraliser l'opération...

J'espere que vous pourrez m'aider...

Dans l'attente de vous lire.🙄

Cordialement Romain.

 

[néné06]

Re : Petit PB tout simple VBA avec "Worksheet_Change"

Bonjour Hasrom et bienvenue sur le Forum

tu as oublié "Application.EnableEvents" ce qui provoque un retour à la routine change à chaque changement de cellules.

essayes ceci et dis-nous ?
Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If Target.Column = 6 Then Range("D2") = Range("D2") + Range("F2")
If Target.Column = 7 Then Range("D2") = Range("D2") - Range("G2")
Range("F2:G2") = 0
Application.EnableEvents = True
End Sub

A+

 

[Staple1600]

Re : Petit PB tout simple VBA avec "Worksheet_Change"

Bonsoir à tous, Bonsoir néné06 et bienvenue sur le forum HasRom

Une petite suggestion en passant:

Dans le cadre de mon stage je dois faire un fichier excel qui gère le stock de l'entreprise.

Attention , il est conseillé de ne pas publier de données confidentielles.

En associant le nom de la feuille indiquée dans ton premier message et la ville de ta localisation, G..gle nous dit déjà trop de choses.

PS: Un ficher exemple avec une feuille nommée Feuil1 lui n'aura rien de confidentiel.

 

[néné06]

Re : Petit PB tout simple VBA avec "Worksheet_Change"

Oups,
une petite erreur!!

regardes le prog

A+

Edit : Salut Staple 1600

 

[néné06]

Re : Petit PB tout simple VBA avec "Worksheet_Change"

Bonsoir à tous

Ne pas tenir compte de ma réponse, mon exemple est "Nul", je vais manger et n'est pas le temps de le corriger!!!

A+

 

[néné06]

Re : Petit PB tout simple VBA avec "Worksheet_Change"

Bonsoir à tous

j'envoie ce programme qui correspond à la demande de Hasrom.
Testes le et dis-nous!!!

A+

 

[HasRom]

Re : Petit PB tout simple VBA avec "Worksheet_Change"

Bonjour à tous,

Avant tout je tiens à vous remercier pour votre attention et votre disponibilité à l'égare de mon petit soucis.

Staple1600 , j'ai fais la modification de mon post pour enlever les traces du nom exacte de l'entreprise, je n'y avais pas songé. Merci 🙂

néné06, c'est exactement ce que je voulais faire !! 😎

Cependant étant curieux et novice j'aimerais si ça ne vous dérange pas de m'interpreter les lignes de code pour comprendre pour la prochaine fois. J'ai fait un peu de langage C, mais jamais de VBA...

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
    Application.EnableEvents = False
        If Target.Column = 6 Then
            Cells(Target.Row, 4) = Cells(Target.Row, 4) + Cells(Target.Row, 6)
        End If
        If Target.Column = 7 Then
            Cells(Target.Row, 4) = Cells(Target.Row, 4) - Cells(Target.Row, 7)
        End If
    Cells(Target.Row, 6) = 0
    Cells(Target.Row, 7) = 0
    Application.EnableEvents = True
End Sub

Un grand MERCI !!

Il me tarde de vous lire !! 😀

Cordialement Romain.

 

[néné06]

Re : Petit PB tout simple VBA avec "Worksheet_Change"

Bonjour le Forum
@Hasrom
Application.enabledÉvents=false "ou True"
Active ou non le déclenchement d'événements "si une cellule change,exécutera ou non la routine (worKsheet Change)Ou autres
Cells(target .row,4)est égale à la cellule,(ligne de la position,4=colonne 4)
je suis sur mon téléphone et c,est dur d,écrire dessus

Les explications te sont elles claires?

À+

 

[HasRom]

Re : Petit PB tout simple VBA avec "Worksheet_Change"

Merci @néné06 ,

Oui les explications sont claires.

Merci encore pour votre attention !!$

Cordialement Romain.