Commande matériel entre production et magasin

[hbb]

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

 

[youky(BJ)]

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

 

[hbb]

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

 

[job75]

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" :

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+

 

[hbb]

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

 

[job75]

Re,

- Est-ce que le simple-clic gauche est possible pour l'incrémentation ? Plus naturel pour les utilisateurs

Oui mais il faudra immédiatement quitter la cellule afin de pouvoir revenir cliquer dessus.

Et alors le double-clic est impossible.

Edit : j'ai remplacé Target par Target(1) dans les macros du post #4...

Bonne nuit.

 

[youky(BJ)]

Avec les bons conseils de JOB voici le fichier
Hbb, si Job75 n'était pas passé je laissais tomber à cause des fusions.
Bon en principe tout est bon.
Bruno

Edit: je viens de remplacer le fichier ce matin qui tiens compte de Ligne 2

 

[job75]

Bonjour hbb, Bruno, le forum,

J'avoue ne pas avoir compris ce que tu as fait Bruno.

Alors veuillez trouver ci-joint ma solution.

Les demandes sont mémorisées dans les plages nommées Palette1200 et Palette1600.

Les feuilles sont protégées, mot de passe hbb.

A+

 

[hbb]

Merci Bruno, Job75 pour votre aide.
Je vais compiler tout ça !!!
Bon w-end

 

[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

 

[job75]

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+

 

[hbb]

Bonjour Job75,
Tu as du oublier la pièce jointe...
merci

 

[hbb]

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

 

[job75]

Re,

Le risque d'erreur de selection dans la liste déroulante me parait trop important...

Bah pas plus que de faire un double-clic dans une mauvaise cellule

A+

 

[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