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