Accueil > > > (VBA)GESTIONNAIRE DE STOCK DUNE PME
 (VBA)GESTIONNAIRE DE STOCK DUNE PME
 Information sur la source
 Description
ceci est un petit "programme" tournant sur excel qui permet a une pme de gerer ses stocks: stock present, sorties de stocks, ventes, societes, fournisseurs,employés,alertes ect.. LE CODE EST "FLORENT"
 Source
- Voici une partie de code détaillée d’une de nos fonctions :
-
- 'ceci est la fonction : ajouter un nouveau fournisseur
- Private Sub Valider_ajout_fournisseur_Click() 'lorsqu'on appuye sur le bouton « valider »:
-
- ajout_telephonefixe_fournisseur = Format(ajout_telephonefixe_fournisseur, "00 00 00 00 00 ") ' Ceci indique à Excel que les valeurs rentrées sont deschiffres
-
- Dim I As Integer, nbLignes As Long ' Ceci appelle des sous programmes déjà définis
-
-
- Sheets("Fournisseurs").Activate 'Active la feuille nommée
- « Fournisseurs »
-
- nbLignes = PremiereLigneVide(1) ' Définit la première ligne vide des cellules
-
- If ajout_nom_fournisseur.Value <> "" Then 'test s’il y a une valeur déjà entrée
- For I = 2 To nbLignes 1 ' on part de la deuxième ligne jusqu’a la dernière -1
-
- If ajout_nom_fournisseur.Value = Range("A" & I).Value Then
- ' Test si le nom rentré existe déjà
-
- MsgBox "Ce nom existe déjà"
- Exit Sub
- End If
- Next
-
-
- If InStr(1, ajout_email_fournisseur.Text, "@") > 0 Then ' le texte contient-il un @ ?
-
- 'place comme il faut les différentes caractéristiques
- Range("A" & nbLignes) = ajout_nom_fournisseur
- Range("B" & nbLignes) = ajout_adresse_fournisseur
- Range("C" & nbLignes) = ajout_codepostal_fournisseur
- Range("D" & nbLignes) = ajout_ville_fournisseur
- Range("E" & nbLignes) = ajout_pays_fournisseur
- Range("F" & nbLignes) = ajout_telephonefixe_fournisseur
- Range("G" & nbLignes) = ajout_fax_fournisseur
- Range("H" & nbLignes) = ajout_email_fournisseur
- Range("I" & nbLignes) = ajout_remarques_fournisseur
- Range("J" & nbLignes) = Date
-
- Else
- MsgBox "Mauvaise adresse email" ' Indique dans le cas où il n y a pas d’@ en affichant un message
-
- End If ' Fin de la condition
- Else ' S‘il n y pas de nom, cela effectue les actions qui suivent
-
- MsgBox "Vous n'avez pas entré un nom de fournisseur", _
- vbCritical + vbOKOnly, "Erreur nom fournisseur"
- End If ' Fin de la condition
-
- End Sub ' Fin de la fonction
Voici une partie de code détaillée d’une de nos fonctions :
'ceci est la fonction : ajouter un nouveau fournisseur
Private Sub Valider_ajout_fournisseur_Click() 'lorsqu'on appuye sur le bouton « valider »:
ajout_telephonefixe_fournisseur = Format(ajout_telephonefixe_fournisseur, "00 00 00 00 00 ") ' Ceci indique à Excel que les valeurs rentrées sont deschiffres
Dim I As Integer, nbLignes As Long ' Ceci appelle des sous programmes déjà définis
Sheets("Fournisseurs").Activate 'Active la feuille nommée
« Fournisseurs »
nbLignes = PremiereLigneVide(1) ' Définit la première ligne vide des cellules
If ajout_nom_fournisseur.Value <> "" Then 'test s’il y a une valeur déjà entrée
For I = 2 To nbLignes 1 ' on part de la deuxième ligne jusqu’a la dernière -1
If ajout_nom_fournisseur.Value = Range("A" & I).Value Then
' Test si le nom rentré existe déjà
MsgBox "Ce nom existe déjà"
Exit Sub
End If
Next
If InStr(1, ajout_email_fournisseur.Text, "@") > 0 Then ' le texte contient-il un @ ?
'place comme il faut les différentes caractéristiques
Range("A" & nbLignes) = ajout_nom_fournisseur
Range("B" & nbLignes) = ajout_adresse_fournisseur
Range("C" & nbLignes) = ajout_codepostal_fournisseur
Range("D" & nbLignes) = ajout_ville_fournisseur
Range("E" & nbLignes) = ajout_pays_fournisseur
Range("F" & nbLignes) = ajout_telephonefixe_fournisseur
Range("G" & nbLignes) = ajout_fax_fournisseur
Range("H" & nbLignes) = ajout_email_fournisseur
Range("I" & nbLignes) = ajout_remarques_fournisseur
Range("J" & nbLignes) = Date
Else
MsgBox "Mauvaise adresse email" ' Indique dans le cas où il n y a pas d’@ en affichant un message
End If ' Fin de la condition
Else ' S‘il n y pas de nom, cela effectue les actions qui suivent
MsgBox "Vous n'avez pas entré un nom de fournisseur", _
vbCritical + vbOKOnly, "Erreur nom fournisseur"
End If ' Fin de la condition
End Sub ' Fin de la fonction
 Conclusion
Version final de notre application enfin arrive
des retouches seront a faire mais la cest bon
juste une fonction qui nest pas encore faite, quand on ajoute une commande est quelle est recu les produits recu ne s'ajoute pas automatitquement dans le stock.
LE CODE EST "FLORENT"
 Historique
- 22 novembre 2006 11:50:19 :
- mauvais fichier uploade
- 22 novembre 2006 19:03:13 :
- modification de la mise en page general et des couleurs
modification de la rubrique informations
modification de la feuille menu et ouverture automatique du programme lors de louverture du fichier excel
- 29 novembre 2006 22:49:11 :
- Modification de l’ajout d’une date
Ajout de mot de pass pour afficher la feuille
Cache la feuille et ouvre le programme automatiquement
Creation de la partie vente de produit(brouillon)
Ajout de la msgbox pour aller voir la derniere mise a jour du programme
Modification du code pour l’ajout de données ainsi que d’un test a chaque fois pour voir si la valeur existe deja et si la case est remplit
Creation des boutons quitter
- 08 janvier 2007 18:27:56 :
- Creation du fichier daide
Ajout de la case date sur la page dacceuil
Rajout de la fonction rechercher pour un produit
Modification de la fermeture des page .hide en .me qui le rend plus fiable
correction bug ajout nouveau produit
correction pour lajout des dates
modifier design
Ajout de diverses « gadget » sur l’accueil
Changement graphisme
Création d'un début de logo
- 31 janvier 2007 11:58:36 :
- Regler le probleme des fonctions rechercher et modifier
Chercher pour afficher stocks generaux
Rajout de excel 2007 dans les versions
Ajout de beaucoup de commenatires
Réglage pb librairie
- 11 février 2007 17:24:22 :
- ajout dun fichier d'activite qui enregistre les ouvertures et fermetures du fichier
la fonction commander fonctionne enfin presque(au niveau du code cest bon mais pas en général)
et dautres petits truc
mise en place du fichier daide(un debut bien avancé lol)
- 23 février 2007 21:17:22 :
- ajout d'une fonction impression avec choix de l'imprimante.
amelioration des focntions vente et commander(mais pas completement finit)
diverses truc
amelioration de laide
- 13 mars 2007 20:54:28 :
- mise a jour:
Versions 0.7b
Ajout de la fonction mise a jour
Modification de l'aide (plus complete)
Version 1.0
Ajout de la fonction mail
Correctif ed bogues
vérification du stock minimal
Ajout de la fonction recherche de produit lister pa la fournisseur
Permettre de voir l'état des stocks
- 15 mars 2007 18:47:12 :
- rajout des fichiers car erreur de lors de la mise a jour
car javais fait en sorte que tous le contenu soit en .exe mais apparement ceci ne peuvent etre envoyé sur le serveur
idem pour le fichier activite.log
merci
- 15 mars 2007 18:54:36 :
-
LE CODE EST "FLORENT"
- 14 novembre 2007 17:24:27 :
- maj enfin apres pas mal de temps d'inactivité
version 1.0.3
je reprends le service actif donc je serai plus reactif probleme
correction pour l'affichage de limage dans certaines parties
correction pour l'enregistrement des images
uniformisation des noms pour les images
possibilite de modifier un employe (euh enfete jai oublié mais a venir dans la semaine)
prise en charge des png dans les images
si vous voulez dautre formats faut le dire
modifications de commentaires inapropriés ainsi que de nom de sub mal positionés ou encore de plein d'autre choses
- 14 novembre 2007 19:36:23 :
- il est possible de rechercher, modifier un employé
correction de quelqu'autre bouts de code
 Sources du même auteur
 Sources de la même categorie
 Commentaires et avis
|
Derniers Blogs
 SESSION SILVERLIGHT 5 3D : SLIDES ET DEMOSSESSION SILVERLIGHT 5 3D : SLIDES ET DEMOS par Groc
Durant les techdays, j'ai eu le plaisir d'animer une session sur Silverlight 5 et la 3D avec Simon Ferquel. Comme promis, voici nos slides et mes démos (celles avec le viper BSG) ici et là. Pour mémoire, les démos utilisent toutes le viper BSG...
Cliquez pour lire la suite de l'article par Groc [TECHDAYS 2012] SESSION WEBMATRIX 2 : LE COUTEAU SUISSE GRATUIT POUR VOS DéVELOPPEMENTS WEB - SLIDES[TECHDAYS 2012] SESSION WEBMATRIX 2 : LE COUTEAU SUISSE GRATUIT POUR VOS DéVELOPPEMENTS WEB - SLIDES par gpommier
Suite à la session que j'ai présenté sur WebMatrix 2, vous pouvez trouver les slides ici, ainsi que les démos en packages nuget : démos1 et démos2 J'en profite pour remercier chaleureusement tous ceux qui sont venus très nombreux à cette sess...
Cliquez pour lire la suite de l'article par gpommier [SHAREPOINT] LES SESSIONS TECHDAYS 2012.[SHAREPOINT] LES SESSIONS TECHDAYS 2012. par Patrick Guimonet
Voici donc pour ceux qui n'ont pas pu venir, ou ceux qui n'ont pas pu toutes les suivre la liste des sessions SharePoint aux TechDays 2012, que je mettrais à jour dès que les liens des vidéo seront disponibles. Ou ici : http...
Cliquez pour lire la suite de l'article par Patrick Guimonet TECHDAYS PARIS 2012 : SESSION PLEINIèRE JOUR 3TECHDAYS PARIS 2012 : SESSION PLEINIèRE JOUR 3 par ROMELARD Fabrice
Speaker: Bernard Ourghanlian Cette session est comme chaque jour transmise en live par BrainSonic, et j'ai donc suivi cette troisième pleinière par ce moyen sur mon iPad . Elle est dédiée comme chaque année à la mise en perspective de l'é...
Cliquez pour lire la suite de l'article par ROMELARD Fabrice MISHRA READER : UN LECTEUR RSS TRèS ZUNE STYLE EN OPEN SOURCE !MISHRA READER : UN LECTEUR RSS TRèS ZUNE STYLE EN OPEN SOURCE ! par Vko
Hier durant une session dédiée aux Techdays 2012, j'ai eu le plaisir d'annoncer la sortie de la Béta 2 de Mishra Reader. C'est quoi ? Pour les utilisateurs, c'est une vraie expérience de lecture de flux RSS sur Windows. Rien à voir avec les produit...
Cliquez pour lire la suite de l'article par Vko
Logiciels
 Tribler (2012)TRIBLER (2012)Tribler est un client pair à pair (P2P/Peer-to-Peer) open source avec la capacité de regarder des... Cliquez pour télécharger Tribler OneSwarm (2012)ONESWARM (2012)Le peer-to-peer qui protège votre vie privée, c'est OneSwarm.
Ce logiciel de peer-to-peer crypté... Cliquez pour télécharger OneSwarm PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO (V8.4)PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO (V8.4)PONAMEDIA TV DEVIENS HELLLOOO FLASH
LA TV SUR VOTRE ORDINATEUR.
Toute une plateforme Multi... Cliquez pour télécharger PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO Academy System (17.2.1.0)ACADEMY SYSTEM (17.2.1.0)Logiciel de gestion des établissements.
- élèves/étudiants (inscription, dossier, absence...)
-... Cliquez pour télécharger Academy System Easy-Planning (1.0.0.1)EASY-PLANNING (1.0.0.1)Basé sur les mêmes principes que MyPlanning, Easy-Planning permet de créer des plannings sous la ... Cliquez pour télécharger Easy-Planning
|