(vba)gestionnaire de stock dune pme

Télécharger le projet
Commenter

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 / Exemple : 


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"
Télécharger le projet

Codes Sources

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (mirmoleboss)