Macro VBA
Cluses74
Messages postés
240
Date d'inscription
Statut
Membre
Dernière intervention
-
Cluses74 Messages postés 240 Date d'inscription Statut Membre Dernière intervention -
Cluses74 Messages postés 240 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
je possède maintenant une gestion de stock sur un classeur de 3 feuilles avec un USEFORM constitué de la manière suivante
GESTION A GESTION B GESTION C
ADRESSE
MACHINES
REFERENCE
DESIGNATION
STOCK
Je saisi l'adresse et tout le reste se remplit machines, référence, désignation, stock le tout avec une macro VBA. Par contre j'aimerai ajouter une macro pour gérer les entrées sorties avec un bouton d'option ENTREE ou SORTIE avec mise à jour dans les feuilles du classeur GESTION A OU GESTION B OU GESTION C et cerise sur le gâteau que la mise à jour s'effectue dans la feuille concernée du classeur.
Actuellement j'ai une macro pour chaque feuille qui me fait cela sans passer par le USERFORME mais je ne sais pas la modifier Je vous la fait parvenir
MACRO STOCKS A B C
je possède maintenant une gestion de stock sur un classeur de 3 feuilles avec un USEFORM constitué de la manière suivante
GESTION A GESTION B GESTION C
ADRESSE
MACHINES
REFERENCE
DESIGNATION
STOCK
Je saisi l'adresse et tout le reste se remplit machines, référence, désignation, stock le tout avec une macro VBA. Par contre j'aimerai ajouter une macro pour gérer les entrées sorties avec un bouton d'option ENTREE ou SORTIE avec mise à jour dans les feuilles du classeur GESTION A OU GESTION B OU GESTION C et cerise sur le gâteau que la mise à jour s'effectue dans la feuille concernée du classeur.
Actuellement j'ai une macro pour chaque feuille qui me fait cela sans passer par le USERFORME mais je ne sais pas la modifier Je vous la fait parvenir
MACRO STOCKS A B C
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Range("F3:F385")) Is Nothing Then ' si on se trouve dans la plage indiquée
a = Target.Value
modif = InputBox("Indiquer la quantité à ajouter ou retrancher (signe -)")
nouv = a + modif
Target.Value = nouv
End If
End Sub
A voir également:
- Macro VBA
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Jitbit macro recorder - Télécharger - Confidentialité
- Télécharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Excel compter cellule couleur sans vba - Guide
- Macro word - Guide
11 réponses
Bonjour,
Vous pouvez mettre votre fichier a dispo pour que nous puissions voir de quoi il en retourne??
site de partage:
https://www.cjoint.com
Vous pouvez mettre votre fichier a dispo pour que nous puissions voir de quoi il en retourne??
site de partage:
https://www.cjoint.com
Bonjour ,
je me suis servi du lien que vous m'avez fait passer. https://www.cjoint.com/ J ai même trouvé cela très pratique. Dois je recommencer ou y a t il une autre combine
Merci
je me suis servi du lien que vous m'avez fait passer. https://www.cjoint.com/ J ai même trouvé cela très pratique. Dois je recommencer ou y a t il une autre combine
Merci
Bonjour,
je crois que c'est la bonne fois ce coup ci.
https://www.cjoint.com/c/HJvjKjYZZLn
Mille excuses et merci de votre patience
je crois que c'est la bonne fois ce coup ci.
https://www.cjoint.com/c/HJvjKjYZZLn
Mille excuses et merci de votre patience
Bonjour,
oui je peux avoir des entrées et des sorties pour la même adresse voilà pourquoi je préfère faire une sélection des mouvements afin d'éviter les erreurs. Je saisie en principe les entrées en premier puis les sorties lorsque je suis en saisie différée mais j'effectue ce nouveau système pour justement faire de la saisie en direct.
Merci
oui je peux avoir des entrées et des sorties pour la même adresse voilà pourquoi je préfère faire une sélection des mouvements afin d'éviter les erreurs. Je saisie en principe les entrées en premier puis les sorties lorsque je suis en saisie différée mais j'effectue ce nouveau système pour justement faire de la saisie en direct.
Merci
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
Ce que j'en dit,
Je préfère la solution, une case entrée et une case sortie car il ne faut pas oublier que la saisie est effectuée par du personnel non qualifié. Plus c'est simple plus c'est fiable.
Je préfère la solution, une case entrée et une case sortie car il ne faut pas oublier que la saisie est effectuée par du personnel non qualifié. Plus c'est simple plus c'est fiable.
Re,
exemple de code, avec un bouton validation mise a jour (a discuter)
Pour le moment mon PC Windows est HS, j'ai fait les modifs sur un MAC donc normalement PC ca marche mais ai eu une surprise une fois alors....
https://www.cjoint.com/c/HJvqeQnSegf
exemple de code, avec un bouton validation mise a jour (a discuter)
Pour le moment mon PC Windows est HS, j'ai fait les modifs sur un MAC donc normalement PC ca marche mais ai eu une surprise une fois alors....
https://www.cjoint.com/c/HJvqeQnSegf
Bonjour,
Je suis dans l'attente et encore merci
Je suis dans l'attente et encore merci
Re,
fichier modifie: https://www.cjoint.com/c/HJwrgGYw8pf
Ai ajoute controle saisie numerique E/S
Ai verrouille les Textbox 3 a 5, mais si vous voulez faire de la sasie majour deverrouillez les
fichier modifie: https://www.cjoint.com/c/HJwrgGYw8pf
Ai ajoute controle saisie numerique E/S
Ai verrouille les Textbox 3 a 5, mais si vous voulez faire de la sasie majour deverrouillez les
Bonsoir,
je suis désolé mais je n'arrive toujours pas à ouvrir votre fichier. Je le reçois en .xls et il me dit erreur d'extension.
Dommage
je suis désolé mais je n'arrive toujours pas à ouvrir votre fichier. Je le reçois en .xls et il me dit erreur d'extension.
Dommage
J'ai réussi à l'ouvrir en changeant l'extension en .xlsm. mais après un essai rapide la Gestion A ne fonctionne plus. Par contre je n'ai pas cherche pourquoi. J'essaie de regarder si je trouve l'anomalie. Lorsque je saisie une entrée de stock celle ci s'affiche en F3 et ne se totalise pas et ne me donne pas mes recherches MACHINES REFERENCES DESIGNATION ET STOCK. Je rentre dans la recherche pour voir si je trouve et vous tiens au courant.
Par contre chapeau pour ce que vous avez fait et quelle simplicité
Encore merci
A plus
Par contre chapeau pour ce que vous avez fait et quelle simplicité
Encore merci
A plus
Bonjour,
juste ce mot pour vous dire que j'avais trouvé le pb de A4 car lors de ma sélection de source A j'ai oublié une ligne. Pour ce qui est de l'extension je l'ai forcée en .xlsm et cela a fonctionné et j'ai pu ouvrir ce fichier. Maintenant tout est OK je n'ai plus que l'essai en réel à effectuer pour voir si tout est opérationnel dans la réalité
Encore merci pour votre aide.
juste ce mot pour vous dire que j'avais trouvé le pb de A4 car lors de ma sélection de source A j'ai oublié une ligne. Pour ce qui est de l'extension je l'ai forcée en .xlsm et cela a fonctionné et j'ai pu ouvrir ce fichier. Maintenant tout est OK je n'ai plus que l'essai en réel à effectuer pour voir si tout est opérationnel dans la réalité
Encore merci pour votre aide.
Avez vous reçu mon fichier?
Ben non. Par quel site avez vous fait l'envoi ??