Commande matériel entre production et magasin

  • Initiateur de la discussion Initiateur de la discussion hbb
  • 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 !

hbb

XLDnaute Occasionnel
Bonjour à tous,
Je reviens sur mon post d'hier soir mais cette fois-ci avec plus d'explications.
Sur le fonctionnement même du partage collaboratif, je vais continuer de creuser pour trouver la solution.

Par contre, j'ai construit un exemple d'outil de commande de matériel (pièce jointe)
J'ai détaillé au maxi ce que je cherche à obtenir directement sur les onglets.

Un peu d'aide serait la bienvenue pour réussir à me lancer (le plus dur est d'écrire les 1ères lignes du code...)

merci d'avance
Bonne journée
Hbb
 

Pièces jointes

Bonjour HBB,
J'ai essayé de faire des macros mais je me suis vite buté dès la 1ère ligne aux cellules fusionnées que vba n'apprécie pas.
Je suis pas allé plus loin, je pense qu'il faut vite revoir tes tableaux sans cellules fusionnées afin de faire ce qui est demandé.
Peut être que certains de mes collègues auront des solutions.
Bruno
 
Bonsoir Bruno,
Merci pour ta réponse.
Je me suis replongé dans mes anciennes macro (j'avais un peu oublié...).
C'est pas top comme boucles mais ça marche !
J'ai quand même réussi à démarrer le projet (voir pièce jointe)

J'en suis maintenant à trouver comment incrémenter le nbre de palettes avec un simple clic ou décrémenter avec double clic.

merci et bonne soirée
Hbb
 

Pièces jointes

Bonsoir hbb, Bruno,

@ Bruno je ne comprends pas ta remarque sur les cellules fusionnées, toi aussi tu succombes à leur phobie sur XLD ???

Pour commencer place ces codes dans la feuille "LIGNE 1" :
Code:
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
Dim a
a = Array("A", "B", "C", "D", "E", "F", "G", "H", "I", "J", "K", "L", "M", "N")
If IsError(Application.Match(Target(1), a, 0)) Then Exit Sub
Cancel = True
Target(4, 4) = Target(4, 4) + 1
End Sub

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim a
a = Array("A", "B", "C", "D", "E", "F", "G", "H", "I", "J", "K", "L", "M", "N")
If IsError(Application.Match(Target(1), a, 0)) Then Exit Sub
Cancel = True
Target(4, 4) = Target(4, 4) - 1
If Target(4, 4) <= 0 Then Target(4, 4) = ""
End Sub

Je te laisse continuer, je reviendrai si tu n'y arrives pas.

A+
 
Dernière édition:
Merci Job75,
2 questions :
- Est-ce que le simple-clic gauche est possible pour l'incrémentation ? Plus naturel pour les utilisateurs
- Je souhaiterais également cliquer sur une forme transparente (mis uniquement sur le produit AAA pour l'instant) et pas dans une cellule.

merci...
Hbb
 
Bonjour à tous,
Globalement, le programme fonctionne parfaitement bien.
Malheureusement, mauvaise surprise du jour, le lancement des Macro n'est pas possible sur Excel Online.

Pour rappel, l'objectif est que chaque ligne de production (Ligne1-ligne2 etc...) utilise ce même fichier .xls pour commander ses produits.
Toutes les commandes sont transmises dans l'onglet STK BRUT, suivant une liste d'attente consulté par le magasinier.

Avez-vous en tête une alternative à l'utilisation des Macros ?
Ca me parait très lourd avec des formules......

merci d'avance pour vos conseils.
Hbb
 

Pièces jointes

Bonjour hbb, le forum,

Avez-vous en tête une alternative à l'utilisation des Macros ?
Ca me parait très lourd avec des formules......
Ci-joint une alternative très simple et très légère puisqu'il y a une seule feuille et pas de formules.

Pour les demandes on utilise des listes de validation.

Le magasinier gérera les listes par copier-coller pour les faire remonter.

A+
 

Pièces jointes

Bonsoir,
Merci Job75 pour ton idée.
Ca pourrait fonctionner sur un nombre restreint de produits mais dans mon cas, j'ai plusieurs lignes de fabrication.
Les articles sont également dédiés à leur ligne.
Le risque d'erreur de selection dans la liste déroulante me parait trop important...

Je souhaiterais, si possible, conserver un onglet par ligne.
J'ai bien peur que ce ne soit pas possible hors macro...

merci,
Hbb
 
Bonjour à tous,
Ma contrainte étant de n'avoir aucune Macro dans mon application, je me suis inspiré de la suggestion de Job75 => Sélection dans liste déroulante.
- Onglet Commande : Tous les utilisateurs des lignes inscrivent au fur et à mesure leur besoin dans la liste.

Objectifs dans l'onglet Magasin :

- 1er critère : Le type de palette (1200 ou 1000)
- 2ème critère : L'ordre à respecter de la tournée (entre 1 et 3)
- 3ème critère : Le nombre de palettes demandé
- Regrouper les départs par lots de 4 palettes

Savez-vous s'il existe une solution par des formules ?
merci d'avance pour votre aide,
Hbb
 

Pièces jointes

- 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
Retour