Macro,Entrée,Sortie,Stock et vendu

  • Initiateur de la discussion Initiateur de la discussion BrunoExcel2007
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

B

BrunoExcel2007

Guest
Bonjour,

Je cherche une Macro pour mon tableau Excel Entré,Sortie,Stock et vendu.
j'ai déjà eu une première partie de la macro (voir ci dessous) ,mais il me manque la partie de la cellule (Vendu) voir l'exemple en lien.
Je suis désolé si je ne suis pas très clair mais c'est mon premier Forum ,je ne sais pas trop comment m'y prendre.
Merci à vous.


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)

End If
' Range("E" & Target.Row).Value = 0
' Range("F" & Target.Row).Value = 0
'Protege
End Sub




Merci à vous.
Bonne Journée
 

Pièces jointes

Dernière modification par un modérateur:
Re : Bruno

Bonjour.

Regardez les liens ci-dessous dans "discussions similaires". Ils ont été créés automatiquement en fonction du titre que vous avez choisi pour résumer votre problème.
Relisez ensuite Lien supprimé et en particulier le paragraphe 2A.

PS : après relecture, le paragraphe 2B devrait aussi vous être profitable.
 
Re : Bruno

Bonjour.

Regardez les liens ci-dessous dans "discussions similaires". Ils ont été créés automatiquement en fonction du titre que vous avez choisi pour résumer votre problème.
Relisez ensuite Lien supprimé et en particulier le paragraphe 2A.

PS : après relecture, le paragraphe 2B devrait aussi vous être profitable.

Lol ben vu le titre qu'il a mis, ça va pas l'aider 😛
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

Réponses
9
Affichages
508
Réponses
4
Affichages
586
Réponses
1
Affichages
468
Réponses
4
Affichages
735
  • Question Question
Microsoft 365 worksheet_change
Réponses
29
Affichages
1 K
Retour