Discussion :

[Gatsu12]

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 :

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

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.

[Kimy_Ire]

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

Code :

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

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 :

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

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 :

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

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 :

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

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

[jfontaine]

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.

[Gatsu12]

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.

[gFZT82]

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.

[Gatsu12]

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.

[Kaëléphine]

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.