Gestion de stock pneumatiques

re,

récupération données du Web

formule modifiée pour avoir le "prix HT" prêt à coller sur fichier "stock..."

https://www.excel-pratique.com/~files/doc/Gestion_stock_donneesWeb4.xls

Claude.

Bonsoir à tous,

En attendant des nouvelles, je continue !

- Le problème du tri est corrigé (il y avait des cellules en texte et d'autre en numérique, dans les colonnes Ø , Larg , et série)

J'ai remis ces 3 colonnes au format texte.

- nouvelle colonne avec "prix HT" x 2.2

(on aurait pu avoir un taux variable à la place de 2,2 fixe)

• ---------------------------
• J'ai ajouté en essai une feuille qui enregistre toutes les sorties et réapprovisionnements,

• Il reste une colonne libre (K), elle est cachée, mais çà peut toujours servir.
• La colonne "Emplacement" désigne l'emplacement du stockage.
• J'ai ajouté un bouton (image de pneu) qui affiche les caractéristiques d'un pneu.
• J'ai aussi incorporé une quarantaine de Ref "UNIROYAL"
• L'ensemble de la base est trié par :

2- Larg

3- Marque

https://www.excel-pratique.com/~files/doc/Stock_pneu5_2.zip

à te lire

amicalement

Claude.

Bonsoir à tous!

Merci beaucoup dubois ça commence vraiment à prendre forme maintenant, je sais que tu vas y arriver, il restera à apporter les dernières finitions.

La seconde feuille avec le total des ventes est vraiment pratique, je te remercie de l'avoir ajoutée.

J'ai quelques questions à te poser et mes remarques à te soumettre alors j'y vais:

- Quelle est ta méthode pour mettre les valeurs en format "nombre" ?

....................Lorsque je passe en "écriture", je sélectionne la colonne entière, je demande le format "numérique" mais cela ne change rien, il ne le met pas à jour!

(La version d'Office que j'utilise est la 2007)

- Si je trie les valeus "Dimension" OU "Série" OU "Jante" de "A à Z" un message apparaît à l'écran.

- Si je simule un réapprovisionnement les données se mettent bien à jour dans la feuille 2 mais les valeurs ne sont pas insérées en "rouge" (comme dans l'exemple).

- La petite bête: j'aimerai que le bouton "tri" soit de la même forme que les autres.

Pourrais-tu apporter ces modifications stp?

De mon côté je vais récupérer la liste complète des refs dans la semaine pour pouvoir monter la base définitive, quand la BDD est à jour je te la poste ici.

Salutations.

Bonjour au forum et ledebutant,

maintenant qu'on se connait, çà m'ennuie de t'appeler par ton pseudo !

Moi c'est Claude, et toi ?

Quelle est ta méthode pour mettre les valeurs en format "nombre" ?

voici une fichier explicatif :

https://www.excel-pratique.com/~files/doc/formats.xls

Si je trie les valeus "Dimension" OU "Série" OU "Jante" de "A à Z" un message apparaît à l'écran.

Quel message ? et que veux-tu faire ?

J'ai remis les colonnes dimensions en numérique. ainsi que l'indice de charge.

- Le tri semble t'embêter, qu'est-ce qui te gêne ?

tu ne peux pas trier autrement (la macro triera toujours pareil), à moins de la modifier !

Dis-moi si tu veux un tri différent.

Le bouton Tri et les valeurs en rouge sont corrigés

tu l'auras à la prochaine version.

amicalement

Claude.

édit: fichier pour récupérer des données du Web en numérique :

https://www.excel-pratique.com/~files/doc/Gestion_stock_donneesWeb_num.xls

Re,

Bonjour à toi Claude, puisqu'on en est aux présentations je m'appelle Brice.

Merci encore pour ton travail, je tenais aussi à te féliciter, ce "logiciel" s'annonce prometteur, un logiciel de gestion digne de ce nom !

Je n'ai pas du tout le niveau sous Excel et je dois avouer que tes connaissances m'impressionnent, j'ai affiché les macros et le code sous Visual Basic m'est incompréhensible. Ce projet n'aurait jamais abouti sans ta précieuse aide.

Pour en revenir à nos moutons je ne retrouve pas les "chemins" pour convertir les cellules au format "numérique", "Insertion/Fonction/Texte". Je suis sous Excel 2007 et cela n'est pas affiché de cette manière.

- Lorsque je fais le tri dans "Dimension" OU "Série" OU "Jante" de "A à Z" => "Stock épuisé, Quantité en stock maxi" s'affiche à l'écran.

- Concernant le tri la seule chose que l'on pourrait modifier c'est le tri des valeurs "Série", je pense que si elles étaient affichées dans l'ordre croissant cela faciliterait encore + la recherche, les pneus sont classés comme ca dans le catalogue, c'est le premier critère de tri.

J'ai fait un premier test en sélectionnant "Trier de A à Z", jusque là ca va, je fais ma recherche normalement en sélectionnant la dimension que je désire etc OK. Une fois que j'ai obtenu mon résultat je clique sur "Afficher tout" et cela revient à la normale OK. Par contre si je fais un "tri", les commandes à effectuer apparaissent et en revenant à la normale la colonne "Série" est à nouveau dans le désordre.

Est-ce possible de remédier à cela?

- La colonne "Qté en stock mini" peut être cachée, elle apparaîtra seulement en mode écriture

- Enfin, j'avais complètement oublié mais le bouton "Valider la sortie" a disparu, si l'on entre une valeur erronée dans "quantité sortie" on ne peut pas le modifier, la seule manière c'est de remettre à jour le nombre de pneus mais la saisie est enregistrée dans la seconde feuille et le total des achats sera alors erroné.

(Ex.: On sort 2 articles mais il en fallait 4. On peut remettre le stock à jour en rentrant -2 puis on valide après la sortie de 4 articles. Nos saisies ont alors été enregistrées dans la 2nde feuille où il aura rentré "A vendu 2 pneus, valider, a acheté 2 pneus, valider, a vendu 4 pneus, valider" au lieu de "A vendu 2 pneus, modifier, A vendu 4 pneus, valider".)

Tu as bien du courage et du mérite parce que c'est un joyeux bazar, il faut remanier sans cesse au fur et à mesure que tu avances. "Rome ne s'est pas construite en un jour" comme dirait l'autre.

Accorde toi un peu de répit, je m'en voudrais de te faire bosser un dimanche...

Salutations.

Brice

Bonjour Brice,

je ne peux pas ouvrir des fichiers 2007

tu dois les convertir en XLS

si c'est une modif de colonnes, pas besoin de toutes les lignes

pas de message perso, reste sur le fil du forum.

de mon coté, j'ai pas mal modifié.

amicalement

Claude.

Bonjour Claude,

je te joins des fichiers (1) (2) au format 2003, des instructions sont inscrites à l'intérieur.

J'ai de mon côté essayé d'opérer les modifications moi-même, (2) est la MàJ de (1),

je n'ai pas su adapter certaines choses, il reste des erreurs.

Je te laisse juger par toi-même.

https://www.excel-pratique.com/~files/doc/Fichier_1.zip

https://www.excel-pratique.com/~files/doc/Fichier_2.zip

J'aurai besoin de ta dernière version en date.

J'ai les refs, on valide la version dans laquelle les implanter et je commence à monter la base. On aura du concret, c'est toujours mieux en situation réelle...

Edit: Et zut! J'ai oublié une colonne à gauche de "RunOnFlat" dans la "base"

l'en-tête est "XL" et les valeurs seront "XL" ou "vides"

Si "XL" = "XL" cela apparaît dans "Référence" sur la seconde feuille (à la manière de "Afficher RunOnFlat si = à "OUI")

J'espère ne pas trop te noyer avec les modifs, on devrait être bon après ça...

Que penses-tu de la réorganisation du tableau? J'aimerai ton avis.

J'attends donc la version que tu as faite de ton côté, que je puisse y voir un peu plus clair et m'aiguiller au mieux.

Je suis impatient de la découvrir, en attendant je me penche sur les références.

Merci d'avance, merci et encore merci.

Sincères salutations.

Brice

Bonjour Brice et à tous,

Pour la mise en page, cela devrait aller,

Mais ce qui m'inquiète, c'est le bug aux filtrages (flèches), si je comprends bien, tu ne peux

pas filtrer ??

• quel message as-tu ?
• chez moi je n'ai pas ce bug (même sur ton fichier)

Confirme si le filtrage fonctionne ou pas.

sinon, c'est pas la peine d'aller + loin !

Je commence à regarder les modifs

amicalement

Claude.

édit : est-ce que çà bogue en écriture aussi ?

Bonjour Claude,

le bug:

- les macros doivent être activées

- lorsqu'on clique sur "Quantité sortie" (en-tête) le message qui apparaît vient de la macro "validez la sortie"

Sub validez_sortie() 'mise à jour du stock

If [a1] = 2 Then Exit Sub

If ActiveCell = 0 Or ActiveCell.Offset(0, -3) = "" Then

MsgBox ("Sortie 0 , ou prix non communiqué !")

Exit Sub

End If

If ActiveCell > ActiveCell.Offset(0, -7) Then

MsgBox ("Stock limité !" & Chr(10) & ActiveCell.Offset(0, -7) & " pneus en stock")

[r3:z65536].ClearContents

GoTo Fin

End If

ActiveCell.Offset(0, -7) = ActiveCell.Offset(0, -7) - ActiveCell

Call sorties

Fin:

[r3:z65536].ClearContents

End Sub

- Les filtres fonctionnent, ce sont les tris qui déconnent:

Manip1: Tri "A à Z" de "Série" ------------ message intempestif

Manip2: Clic sur une cellule quelconque ------ pas de message (ouf!)

Manip3: Clic "Qté sortie" (en-tête) --------- même message

Si l'on reste sur la même ligne après apparition du message cela ne gêne plus.

Cela peut s'expliquer:

Tri dans 1er en-tête ------ cellule active = "Qté sortie" ---- message intempestif

Tri dans 2nd en-tête ----- "Qté sortie" toujours active ------ pas de message

Je ne sais pas si tu as remarqué mais lors du premier tri le curseur se déplace automatiquement sur le dernier en-tête et quel est-il?

Oh surprise! C'est "Qté sortie" !!!

J'en conclus donc qu'à chaque 1er déplacement sur cet en-tête le bug apparaît !

Je pense que la macro qui affiche le message en cas de saisie nulle ou de prix nul est active dans les en-tête, est-ce que tu comprends?

Peut-être qu'en la décalant (pour qu'elle commence sous les en-tête) le bug sera résolu. C'est mon avis.

Je suis sur la BDD, ca va être long mais je m'en sortirai, le plus long c'est de rentrer TOUTES LES DIMENSIONS et le reste sera un copier/coller pour les rendre disponibles dans différentes marques.

Tous les prix des DUNLOP et uniquement ceux-là seront inscrits (ça fera un peu de matière)

Tu ne m'as pas envoyé ta version...

pour répondre à ton EDIT le bug est absent en "ECRITURE"

Salutations.

Brice

re,

Bon çà me rassure pour les filtres,

Je t'envoie un 1er jet dans la soirée,

Je n'aurais pas fait tout ce que tu demande,(beaucoup d'un coup), mais on va panacher avec mes modifs et on jugera après.

Car là, on a pas le même fichier et c'est pas facile de voir pour le boque !

Confiance !!

à ce soir

Claude.

édit : essaye de voir exactement à quelle ligne çà bogue (en faisant déboguage, tu dois

avoir la ligne en jaune)

Ce n'est pas un bogue comme tu dois le penser...

Le pb c'est que le tri doit pouvoir se faire sans que le message s'affiche intempestivement.

La macro doit être valide puisque si le prix ou la valeur sont nuls la fenêtre apparaît...

Elle est certainement "à la rue" sur la ligne 2, si elle débutait ligne 3 je pense que ça irait. A confirmer tout de même.

Fais ce test:

Clique sur la ligne orangée (par ex.) sur la feuille que je t'ai envoyée.

Le curseur se déplace automatiquement afin que le nbre d'articles vendus soit renseigné.

Clique maintenant sur l'en-tête "Qté sortie" (en bleu clair donc)...

La fenêtre disant que le stock est limité devrait apparaître... Alors?

re,

Pas mal de modifications !

beaucoup même d'un seul coup, risque de bugs, à tester.

à lire l'encadré feuille sortie.

mes modifs : en + des tiennes

• ajout colonne A : "carcasse" R, B ou D
• Colonne N (cachée) teste si prix existant,( si pas de prix, tri en bas de tableau.), en renseignant le prix, la Ref. remonte dans le tableau au 1er tri.
• Ajout message de confirmation "entrées ou sorties"
• Séparation colonnes achat et vente (feuille sortie)
• Suppression du bouton Tri (direct avec le bouton écriture)
• Nouveau bouton "initialise" (redéfini la base suivant les ajouts de lignes et re-formate l'ensemble)

Je ne me suis pas occupé des prix, taxes etc... (je ne suis pas commerçant)

J'ai seulement considérer que tu achète pour revendre !

Fichier :

https://www.excel-pratique.com/~files/doc/Stock_pneu6.zip

j'attends tes critiques

amicalement

Claude.

Bonjour Brice, bonjour à tous,

Dernière minute :

remplace ces 2 lignes dans le code "validez_sortie" (au début)

    'If ActiveCell = 0 Or ActiveCell.Offset(0, -6) = "" Then
        'MsgBox ("Sortie 0 , ou prix non communiqué !")

remplacer par :

    If ActiveCell.Offset(0, -8) = 0 Then
        MsgBox ("Prix non communiqué !")

et dans le code tri:(2ème clé devient R5)

              Else 'tri à commander
                    Selection.Sort Key1:=Range("n5"), Order1:=xlDescending, Key2:=Range("r5") _
                    , Order2:=xlDescending, Key3:=Range("d5"), Order3:=xlAscending, Header:= _
                    xlNo, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom

bonne journée

Claude.

Bonjour à toi Claude (et aux autres!),

Merci pour cette MàJ, je suis toujours aussi impressionné, on est dans le logiciel professionnel là... Tu as mis les petits plats dans les grands...

Comme d'habitude, au fur et à mesure de l'évolution je te fais part des "bogues", des incohérences que j'ai pu détecter:

- le RunOnFlat s'affiche "RunOnFiat" dans la feuille "sortie" (???) ; Peut-il apparaître derrière la marque? (La ref sera tjrs en dernière position)

- Comment n'y ai-je pas pensé avant? Un bouton "Recherche" ("Ctrl+F") serait très pratique. Pour retrouver une Ref à partir de son n° par ex.

- La TVA n'est pas ajoutée aux Prix HT, le détaillant (nous en l'occurrence) paye la TVA à ses fournisseurs...

Dans la MàJ de la BDD j'avance doucement mais sûrement, il faut checker chaque ligne... (Tu connais ça n'est-ce pas?) J'essaie de finir pour ce weekend et on pourra confirmer les colonnes et leur ordre, etc

J'aimerai qu'on puisse mettre en place la "mise en page" définitive au plus vite de manière à pouvoir se concentrer sur l'essentiel. On est tout de même sur la bonne voie, pas d'inquiétude.

La patience est une vertu...

Sincères salutations.

Brice

re,

Le RunOnFlat est corrigé et remis à sa place.

à quoi va ressembler la référence ? a-tu un exemple ? que je commence à regarder,

ce qu'on peux faire pour la recherche. (évite les espaces et les guillemets)

- Je ne sais pas ou tu en est ! mais il serait bon que tu m'envoie une dizaine de lignes,

pour me faire une idée du résultat final.

As-tu réussi à corriger les codes comme je te disais + haut ? et les bogues, disparus ?

Combien de réf. au final ? (en gros)

Essaye de pas trop chambouler l'ordre des colonnes, et signale moi les changements

le + tôt possible, car çà change toutes les macros !!!

Je t'ai envoyé le dernier message, il y avait 400 vus sur le forum, et là çà dépasse les 1000.

il y a des amateurs !! bon signe.

à te lire

Claude.

re,

concernant la recherche je souhaite juste l'ajout d'un bouton "Rechercher" qui exécute Ctrl+F. Juste pour éviter d'avoir à aller chercher dans la barre Excel où taper le raccourci-clavier. (Oui, je sais c'est pour les fainéants... lol)

C'est utile lorsque tu veux les caractéristiques complètes d'un pneu à partir de son n° de ref par ex. (celui qui apparait à la fin de la 1ère colonne dans la feuille "Sortie")

je te joins une feuille dans laquelle se trouve la MàJ partielle de la BDD.

Tu n'as qu'à copier/coller et la mise en place est OK. Je ne l'ai pas fait moi-même car je voulais que tu vérifies qch. En effet, quand je mets à jour la base dans le logiciel, je termine par "initialise", la ligne N se met dc à jour seule, ce qui calcule le prix de vente ET doit afficher les dernières refs dans la "partie haute" du tableau (la partie où les prix sont renseignés). Le prix de vente estt OK mais les refs restent en bas. A regarder.

https://www.excel-pratique.com/~files/doc/Copie_de_Catalogue_BDD.xls

J'ai réussi à remplacer le code que tu m'as posté. OK

Les bogues sont quasiment tous corrigés à part les derniers signalés (Ils le sont peut-être déjà à l'heure actuelle)

Il me manque encore quelques refs mais il faut compter ce qu'il y a déjà + une petite marge et multiplier par 10 environ. (Et oui, il y a déja pas mal de refs mais ce ne sont que les DUNLOP donc il les faut aussi dans les autres marques). On dira donc quelques milliers...

J'y avais pensé à cette histoire de macro et de colonnes, c'est vrai que c'est galère, le moindre ajout/déplacement de colonne modifie les macros qui l'utilisent...

Je te dirais ça ce weekend, on pourra définir l'ordre final, ça te va?

Aujourd'hui 1 000, demain 10 000 ! mdr

Oui, je crois que ton logiciel a du succès... et il le mérite !

Respectueuses salutations.

Brice

Edit: tu remarqueras que certains DUNLOP (notamment les SP SPORT 01) portent une mention MO MercedesOnly à la fin. Cela fera peut-être partie des en-tête... A confirmer.

Ne te lance pas dans les modifs maintenant, attends plutôt ce weekend.

re,

il te manque une colonne ( la colonne A : carcasse) et elle est importante car "initialise"

démarre en bas de cette colonne.

tu parles donc de 3500 références au total ??

Il va te falloir un terrain de foot pour stocker tout çà !!

Pour la recherche , on peut certainement faire mieux que le "Ctrl+f"

c'est pourquoi je te demandai à quoi va ressembler la REF: (un N°, un code ?)

à+.....Claude.

re,

j'ai des doutes sur l'utilité de cette colonne "carcasse" justement, jusqu'à maintenant toutes les refs sont des pneus en Radial, une seule carcasse donc. A confirmer en même temps que le reste... Si je comprends bien c'est pour ça que les DUNLOP ne remontaient pas lorsque on renseignait le prix...

Oui, je pense qu'il y aura 3500 refs au total voire + mais rien n'est encore sûr.

Actuellement les refs sont identifiées par des n° (c'est toi qui as ajouté la colonne).

A quoi pensais-tu pour la recherche? Un petit apercu dans la prochaine MàJ peut-être... ?!

A part la fonction "Ctrl+F" la seule recherche à laquelle j'avais pensée c'est celle que j'avais déjà évoquée avec une sorte de moteur qui, à partir des "dimensions complètes" 255/40/18 par ex. + le RunOnFlat si on le veut (ou pas!), serait capable d'afficher les articles disponibles. Un tri par saisie qui viendrait compléter le tri par filtres.

Cela permet d'annoncer un prix rapidement (au tél en particulier). A confirmer également une fois toutes les refs en place (si le filtrage devient laborieux avec la qté de données)

Qu'en penses-tu? J'aimerais avoir ton avis.

Merci. @+

Brice

bonjour Brice et au forum,

Puisque tu insiste avec la recherche, j'ai mis çà en place !

on saisie les 3 cellules : Larg, Série, Ø . c'est tout.

Les Ref. correspondantes sont affichées en haut de l'écran, reste à choisir les options.

• je te signale que c'est pas + rapide que les filtres.
• 6 clics avec les filtres
• 7 chiffres à taper + 3 validations pour saisir. (si données existantes), sinon tu tâtonne !

Pour la Ref ou Code, je te propose comme ceci (à droite), on a pas trop le choix ! car

il faut respecter l'ordre des tris.

çà ne change rien pour la feuille sortie.

• -------------------------
• pour les 3500 lignes, çà ne m'inquiète pas (on verra si çà rame un peu)
• conserve la carcasse, j'en ai besoin pour les formules.

à+.....Claude.

édit : en postant, je m'aperçois que plusieurs ont la même Ref, il va falloir ajouter un N°

re,

Finalement pour la réF, il faut toutes les données ! comme ceci,

(Ce que je voulais éviter à cause des 3500 formules à rallonge)

50/195/15-82-H- GOODYEAR. EXCELLENCE - été . oui

ceci est une formule, il faut remplacer le "oui" dans le tableau par direct "RunOnFlat"

il n'y a que le "R" (carcasse) que je ne peux pas mettre à cause de la recherche.

On laisse le "RunOnFlat" en dernier.

Je sort faire un tour

à ce soir,

Claude.