Souci avec WorkSheet_Change

Bonjour,

Voila, je suis Novice en excel VBA, pour un but d'apprentissage, je réalise une gestion de stock avec entrées et sorties.

Les entrées et sorties sont sur des feuilles spécifiques, en plus de la feuille stock et une autre intitulée "Commande", où s'ajouteront automatiquement des produits quand le stock final sera ou deviendra inférieur au stock Minimum.

Si par exemple je modifie les valeurs des cellules cibles manuellement (2 et 4), la Macro marche, par contre dans mon cas la cellule cible (2) est modifiée automatiquement selon une formule (après modif d'autre cellules), et dans ce cas la Macro ne fonctionne pas.


cela concerne la Worksheet_Change (au niveau de la feuille stock):

Code:

---

1 2 3 4 5 6 7 8 9

Private Sub Worksheet_Change(ByVal Target As Range)   If Target.Column <> 2 Then Exit Sub If Target.Value >= Cells(Target.Row, 4).Value Then Exit Sub derlig = Sheets("Commande").Range("a65536").End(xlUp).Row + 1 Sheets("Commande").Cells(derlig, 1).Value = Cells(Target.Row, 1).Value Sheets("Commande").Cells(derlig, 2).Value = Date   End Sub

---

Une solution?

Merci d'avance.

La fonction "WorkSheet_Change" s'applique uniquement lors du changement de la cellule que tu cibles manuellement.

Code:

---

If Target.Column <> 2 Then Exit Sub

---

Cette ligne spécifie que si n'importe quelles cellules autres que celles comprises dans ta colonne B sont modifiées alors, rien n'est fait.

Il y a donc plusieurs solutions :
- Soit tu gardes une restriction, auquel cas tu dois ajouter toutes les cellules qui sont succeptibles de changer avec :

Code:

---

If Target.Column <> 2 or 4 or 6 or 8 Then Exit Sub

---

Exemple : Si ta formule dans la colonne B fait référence à une cellule dans ta colonne D, alors, lorsque tu changes cette valeur dans ta colonne D, avec :

Code:

---

If Target.Column <> 2 or 4 Then Exit Sub

---

tes cellules seront recalculées.
- Autre solution, tu supprimes toutes restrictions, c'est-à-dire enlever la condition, tout simplement.

Cependant, dans ta formule, tu as :

Code:

---

Cells(Target.Row, 1).Value

---

Cela signifie que si tu changes une valeur dans ta colonne D, c'est la valeur de cette ligne en colonne A qui sera ciblée à cet endroit. Si c'est ce que tu souhaites alors prends simplement les solutions proposées au dessus.
(C'était juste un avertissement. ^^)

En espérant t'avoir aidé. :ccool:

Bonjour,

L’évènement Change de la feuille se déclenche lors d'une modification "physique" d'une cellule (manuellement ou à l'aide d'une macro).
Une formule modifie l'affichage de la valeur d'une cellule, mais ne provoque pas d’évènement.

Donc en gros je dois utiliser une macro pour modifier le contenu de la cellule en question et non une fonction, pour que cette dernière soit reconnue.

Bonjour,

Tu peux t’en sortir en utilisant l’évènement CALCULATE qui se produit après tout recalcul de la feuille. Cet évènement te permet de détecter des changements de valeur par calcul dans des cellules contenant des formules (ce que ne fait pas l’évènement CHANGE).
Le souci, c’est que Calculate ne dispose pas de paramètre Target. Tu ne peux donc pas déterminer directement quelle est la cellule qui a été modifiée. Il faut passer par une variable mémorisant le contenu antérieur de la cellule surveillée.

Dans l’exemple joint, la valeur dans Feuil2!C2 est reportée dans Feuil1!B2 qui contient la formule =Feuil2!C2.
Avec la procédure Calculate, on vérifie si la valeur de Feuil1!B2 a été modifiée.
On utilise pour cela la variable globale Memo qui a été initialisée à l’ouverture du classeur. Cette variable est déclarée dans un module standard.

Bonjour

Je bloque encore, j'ai abandonné la worsheet_change, maintenant je veux que la macro s’exécute après appuie d'un bouton.

Si la case "Remarque" affiche "commande" alors à la sélection du bouton "commande" tous les produit à commander s'afficheront sur la feuille "à commander".

Un exemple en Pièces jointe.

Merci d'avance.

Bonjour tout le monde;

Si tu as déjà mis le code de ta macro dans un module, il te reste juste à passer en mode création, tu clique droit sur ton bouton et normalement tu à la possibilité d'affecter une macro à ton bouton. Sinon c'est sur l'événement nomDeTonBouton_click dans la feuille correspondante.

Oui je sais,

Mais je ne sais quoi mettre comme code, pour l’exécution de l'action voulue ( mon post plus haut).

En gros je voudrais que ma macro vérifie en premier si il y a "commande" écrit dans la "colonne D", si c'est le cas la macro affichera dans une seconde feuille "A commander", le Nom du produit correspondant suivi de la date du jour.


Merci,

Bonjour,

bon du coup j'ai un peux bossé sur ton cas et je pense avoir réussi à faire ce que tu voulais. :ccool:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

Private Sub btn_Commande_Click() Dim i As Integer Dim nbProduit As Long, nbCommande As Long   nbProduit = Application.WorksheetFunction.CountA(Range("A:A")) - 1 nbCommande = Application.WorksheetFunction.CountA(Sheets("ACommander").Range("A:A")) - 1   For i = 2 To nbProduit + 1 If Range("E" & i).Value = "Commande" Then Sheets("ACommander").Cells(nbCommande + 2, 1).Value = Cells(i, 1).Value Sheets("ACommander").Cells(nbCommande + 2, 2).Value = Date nbCommande = nbCommande + 1 End If Next i End Sub

---

Donc si ta colonne E est égale à Commande quand tu appuis sur le bouton ça écrit le nom du produit et la date du jour. Tu ne la pas indiquer du coup j'ai prix la liberté de rajouter les nouvelles commande à la suite des anciennes sans les effacer. Hésite pas à poser des questions si tu comprends pas quelque chose ou si ça fait pas exactement ce que tu veux . ;)


Attention :aie: J'ai changé le nom d'un de tes onglets et j'ai prix un bouton active x. Si tu le fait avec un format de contrôle de formulaire alors met ce code dans un module et affecte le au bouton.

Super, Merci beaucoup ça marche

Bonne soirée.