XL 2021 Alléger, simplifier et optimiser un fichier excel

[momo27]

Bonjour tout le monde,
voici un classeur excel contenant des macros, je vous demande de l'alléger et l'optimiser pour une meilleure efficacité.

 

[fanfan38]

Bonjour et bienvenu sur le forum
Ci joint ma solution
la macro qui est dans le module 7 ne marchera pas
c'est une macro à mettre sur le vba d'une feuille

A+ François

 

[momo27]

Bonjour et bienvenu sur le forum
Ci joint ma solution
la macro qui est dans le module 7 ne marchera pas
c'est une macro à mettre sur le vba d'une feuille

A+ François

Merci infiniment, Mr François !

 

[momo27]

Merci infiniment, Mr François !

un petit souci, comment restaurer la feuille "FACTURE" pour avoir une facture vierge ?

 

[fanfan38]

Bonjour
Avec le bouton restaure
A+ François

 

[Piment]

Bonjour
Avec le bouton restaure
A+ François

momo27, fanfan38 Bonjour,
momo27 j'ai repris votre fichier, et je me suis permis de rajouter quelques éléments qui me semble "indispensables" pour la gestion d'un stock.
Je n'ai pas encore traité la problématique de la facture. Il me semble également qu'il faudrait gérer les commandes qui permettrait d'alimenter les Quantité "Entrée".
Quelques explications:
La feuille "liste des Articles" est alimenter par un formulaire. Vous déclenchez ce formulaire avec le bouton qui se trouve sur la feuille Accueil.
Ce formulaire contient 2 zones de saisies : la zone "Ajouter un nouvel article dans le tableau" qui vous permets d'ajouter à la fin du tableau un nouvel article.
La zone "Modifier ou Supprimer un article". Après le choix d'un article, la listview remonte les données de l'article sélectionné. Vous cliquez sur la ligne qui est remonté, et l'ensemble des données s'affiche dans les TextBox qui se situent sous la listview. vous pouvez alors y modifier ce que vous voulez. Vous clquez sur le bouton modifier, et les modifications seron injectées dans le tableau sur la ligne concernées. Ou alors après avoir cliquer sur la ligne remontée dans la listview, supprimer cet Article de votre tableau.
Le bouton "Initialiser permet de tout remettre à vide et donc de saisir dans le comboBox "Rechercher par...) . Vous pouvez rechercher un article par sa réf ou par son nom.
J'ai également traité la partie "Mouvement des Stocks". Vous ouvrez le formulaire sur la feuille Accueil. Je procès est identique que pour le formulaire précédent. Je vous laisse le découvrir.
Si cela ne vous intéresse pas : aucun problème. Nous sommes là pour faire des propositions aux demandeurs, à lui de prendre ce qui lui plaît.
Soyez gentil de me faire un retour.
Cordialement.

 

[momo27]

momo27, fanfan38 Bonjour,
momo27 j'ai repris votre fichier, et je me suis permis de rajouter quelques éléments qui me semble "indispensables" pour la gestion d'un stock.
Je n'ai pas encore traité la problématique de la facture. Il me semble également qu'il faudrait gérer les commandes qui permettrait d'alimenter les Quantité "Entrée".
Quelques explications:
La feuille "liste des Articles" est alimenter par un formulaire. Vous déclenchez ce formulaire avec le bouton qui se trouve sur la feuille Accueil.
Ce formulaire contient 2 zones de saisies : la zone "Ajouter un nouvel article dans le tableau" qui vous permets d'ajouter à la fin du tableau un nouvel article.
La zone "Modifier ou Supprimer un article". Après le choix d'un article, la listview remonte les données de l'article sélectionné. Vous cliquez sur la ligne qui est remonté, et l'ensemble des données s'affiche dans les TextBox qui se situent sous la listview. vous pouvez alors y modifier ce que vous voulez. Vous clquez sur le bouton modifier, et les modifications seron injectées dans le tableau sur la ligne concernées. Ou alors après avoir cliquer sur la ligne remontée dans la listview, supprimer cet Article de votre tableau.
Le bouton "Initialiser permet de tout remettre à vide et donc de saisir dans le comboBox "Rechercher par...) . Vous pouvez rechercher un article par sa réf ou par son nom.
J'ai également traité la partie "Mouvement des Stocks". Vous ouvrez le formulaire sur la feuille Accueil. Je procès est identique que pour le formulaire précédent. Je vous laisse le découvrir.
Si cela ne vous intéresse pas : aucun problème. Nous sommes là pour faire des propositions aux demandeurs, à lui de prendre ce qui lui plaît.
Soyez gentil de me faire un retour.
Cordialement.

momo27, fanfan38 Bonjour,
momo27 j'ai repris votre fichier, et je me suis permis de rajouter quelques éléments qui me semble "indispensables" pour la gestion d'un stock.
Je n'ai pas encore traité la problématique de la facture. Il me semble également qu'il faudrait gérer les commandes qui permettrait d'alimenter les Quantité "Entrée".
Quelques explications:
La feuille "liste des Articles" est alimenter par un formulaire. Vous déclenchez ce formulaire avec le bouton qui se trouve sur la feuille Accueil.
Ce formulaire contient 2 zones de saisies : la zone "Ajouter un nouvel article dans le tableau" qui vous permets d'ajouter à la fin du tableau un nouvel article.
La zone "Modifier ou Supprimer un article". Après le choix d'un article, la listview remonte les données de l'article sélectionné. Vous cliquez sur la ligne qui est remonté, et l'ensemble des données s'affiche dans les TextBox qui se situent sous la listview. vous pouvez alors y modifier ce que vous voulez. Vous clquez sur le bouton modifier, et les modifications seron injectées dans le tableau sur la ligne concernées. Ou alors après avoir cliquer sur la ligne remontée dans la listview, supprimer cet Article de votre tableau.
Le bouton "Initialiser permet de tout remettre à vide et donc de saisir dans le comboBox "Rechercher par...) . Vous pouvez rechercher un article par sa réf ou par son nom.
J'ai également traité la partie "Mouvement des Stocks". Vous ouvrez le formulaire sur la feuille Accueil. Je procès est identique que pour le formulaire précédent. Je vous laisse le découvrir.
Si cela ne vous intéresse pas : aucun problème. Nous sommes là pour faire des propositions aux demandeurs, à lui de prendre ce qui lui plaît.
Soyez gentil de me faire un retour.
Cordialement.

Cher Monsieur François, un grand merci pour tous vos efforts et pour le travail si bien réalisé. Même si c’est un peu compliqué pour moi pour le moment, je suis motivé à apprendre petit à petit. J’aimerais commencer par quelque chose de simple et facile à manipuler, tout en conservant mon classeur Excel initial. Encore merci pour votre soutien et votre patience !

 

[fanfan38]

Bonjour
Quelle est la question
Ci joint le le fichier de Piment (Salut) légèrement modifié
A+ François

 

[Piment]

Bonjour
Quelle est la question
Ci joint le le fichier de Piment (Salut) légèrement modifié
A+ François

Salut François, apparemment il n'est pas intéressé par ma proposition, si j'ai bien compris son message.
A+

 

[momo27]

Salut François, apparemment il n'est pas intéressé par ma proposition, si j'ai bien compris son message.
A+

Bonjour, c'est pas que je suis pas intérressé par ta proposition, mais c'est trop compliqué pour moi car je débute dans ses manipulations et que j'ai plus l'age pour apprendre

 

[momo27]

Personnelement, je préfère le classeur "TEST" que tu m'as envoyé le Dimanche à 13:41. Meme si c'est simple ça me suffit pour mon petit commerce. Maintenant, il reste à régler le Total qui ne se réinstialise pas quand j'appuis sur RESTAURE

 

[fanfan38]

Bonjour
Ci joint ma solution
fichier test1 et test...

A+ François

 

[momo27]

Bonjour
Ci joint ma solution
fichier test1 et test...

A+ François

"TEST1" est plus intérressant mais le TOTAL n'apparait pas !!!

 

[fanfan38]

Bonjour
Problème réglé

A+ François

 

[oguruma]

Bonjour,
juste un "petit poil" d'optimisation qui ne coûte pas grand chose mais cela simplifie la lecture et ça évite de se poser des questions.

Private Sub TextBox2_Change()
     If Me.TextBox2.Value = Me.ListBox1.Value Then
          Exit Sub
     ElseIf Me.TextBox2 <> "" Then
          a = Application.Transpose(Sheets("STOCK").[Liste])
          Me.ListBox1.List = Sheets("STOCK").Range("Liste").Value
          Me.ListBox1.List = Filter(a, Me.TextBox2.Text, True, vbTextCompare)
     End If
End Sub

peut se simplifier par ceci :

Private Sub TextBox2_Change()
     If Me.TextBox2.Value = Me.ListBox1.Value Then
          Exit Sub
     ElseIf Me.TextBox2 <> "" Then
          a = Application.Transpose(Sheets("STOCK").[Liste])
       ' --------------------------------------------------------------------------
       '  la surcharge prendra le dessus
       '    Me.ListBox1.List = Sheets("STOCK").Range("Liste").Value
       ' ---------------------------------------------------------------------------
          Me.ListBox1.List = Filter(a, Me.TextBox2.Text, True, vbTextCompare)
     End If
End Sub

En effet, tu surcharges Me.ListBox1.List par Me.ListBox1.List = Filter(a, Me.TextBox2.Text, True, vbTextCompare) par conséquent Me.ListBox1.List = Sheets("STOCK").Range("Liste").Value n'est plus utile. L'alimentation de ta liste est plus optimisée.
Mais je suppose que c'est le fruit de plusieurs tests qui ont produit cette surcharge que tu souhaites conserver au cas où... afin de ne pas perdre le code ? dans ce cas tu places cette ligne en commentaire.
Bon je suis peut-être à côté de la plaque....

Autre suggestion pour toutes tes USF donnes un nom explicite à tous tes objets. Ne restes pas avec des noms mis par défaut comme TextBox2. Il est préférable de leur affecter un nom qui a un sens. Exemple pour un objet TextBox : Txt_Client, pour une ListBox : LstArticles, Pour Combo : Cmb_References, pour un label : Lbl_Client, Lbl_Information, Bouton : Btn_Valider, Btn_Annuler

Cette forme d'écriture simplifie la lecture du code. C'est ce style d'écriture qui a été appliqué dans les propositions fournies.