Traçabilité et saisie de bon de livraison

Bonjour à tous,

Je cherche à mettre en place un système de traçabilité dans mon usine.

Les logiciels proposés sur le marché sont bien trop complet, c'est pourquoi je souhaite passer par excel.

Je suis globalement novice en VBA mais je recherche à comprendre et à apprendre en un temps raisonnable.

J'explique mes besoins en fonction d'un de mes fichiers que j'ai joint à ma demande.

Le but c'est que j'adapte le code à l'ensemble de mes autres fichiers.

Ici, il faudrait que sur la page index il y ai un bouton qui m'affiche une fenêtre (jusque là je sais faire).

Dans cette fenêtre il faudrait que je puisse rentrer les informations suivantes :

• Nom du produit (exemple : Calvados) avec si possible ce nom associer à une liste déroulante dans la colonne A de mon index (pour être sur d'avoir tous les produits même si j'en rajoute à terme)

• Nom du fournisseur (exemple : Busnel) s'il a possibilité que j'associe cette complétion avec une liste déroulante que je rajouterai sur une feuille à part, je suis preneur (après que suppose que cela fonctionnera comme pour le nom du produit)
• Numéro de facture
• Date de facturation
• Numéro de lot
• DLC

Ensuite ces informations serait associées à une feuille (ici la feuille Calvados). Avec pour chaque colonne les informations collectées dans la fenêtre.

Ces informations devront être rajoutées sur une nouvelle ligne.

Est-ce quelque chose d'envisageable selon vous ou est-ce beaucoup trop compliqué ?

Merci par avance pour celles et ceux qui prendront le temps de m'aider.

Hello,

Voici une proposition

Tu as une liste nom produit & fournisseurs. Tu peux ajouter des données à la suite.

Il est important de créer une feuille quand tu ajoutes un nouveau produit dans cette liste.

La saisie du bon de livraison se fait des colonnes A à L puis clic sur le bouton.

++

Hey,

Merci pour le temps que tu as consacré à ma demande.

C'est vraiment propre et cela correspond à ce que je souhaite faire.

J'ai essayé de comprendre le code et cela me confirme que j'ai encore beaucoup de chose à apprendre.

Encore merci :).

Re,

Comment je peux faire pour empêcher qu'il prenne la deuxième ligne quand je clique sur le bouton et qu'il n'y a pas de texte dans la ligne 3 ?

Merci par avance.

Hello,

C'est pour voir si tu suivais

Rajoute cette ligne :

If lng_lastrow = 2 Then Exit Sub

comme ci dessous (ligne 5):

Sub main_saisie()

Dim i As Long, lng_lastrow As Long, lng_lastrowdesti As Long
Dim str_nameproduct As String, str_msgtemp As String

lng_lastrow = Cells(Rows.Count, 1).End(xlUp).Row 'Derniere ligne feuille index
If lng_lastrow = 2 Then Exit Sub
For i = 3 To lng_lastrow 'Boucle sur chaque produit

Ahah et bah je suis

Ca fonctionne parfaitement merci !

Tu as appris à coder sur ce site ou pas du tout ?

Hello,

Entre autres. Mais le principal c'est d'aimer coder avant tout.