Fichier gestion des stocks

Bonjour à tous,

J'espère que vous allez bien.

Je vous sollicite car je souhaiterai créer un fichier qui me permettrai de suivre des stocks.

J'ai plusieurs onglets, dans mon onglet "veste de feu", je souhaiterai avoir un formulaire qui puisse faire plusieurs choses :

- J'aimerais y inscrire une date d'achat

- J'aimerais y inscrire une taille

- J'aimerais y inscrire une date d'ignifugation

et que cela se copie sur une ligne d'un tableau.

Ensuite j'aimerai pouvoir "sélectionner" une ligne et y inscrire une date de lavage et que ces dates s'inscrivent dans les colonnes cachées.

Il me faudrait la meme chose pour l'onglet "Pantalon de feu"

Bonsoir

D'aprés votre fichier, vous avez limité vos lavages à 25 : Que se passera t'il quand vous serez au 26 ° Lavage.

Je ne sais pas si j'ai le droit de vous envoyer un fichier en VBA pour commencer.

Le modérateur pourra m'orienter pour cela.

Cordialement

Bonjour valdu26 et le forum
Une proposition dans le fichier joint.
A reproduire pour les pantalons.
Cdt
Papy Henri

Bonjour valdu26
Nouveau code pour la modification (contrôle sur le nombre de lavages)

Private Sub CommandButton2_Click() 'Modifier
    Dim position%, DerColLavage%, col%
    If Not IsDate(Me.TextBox5) Then
    MsgBox ("Date incorrecte.")
    Me.TextBox5 = ""
    Me.TextBox5.SetFocus
    Exit Sub
 End If
    With [Tableau1]
    position = .Find(Me.ListBox1, LookIn:=xlValues, lookat:=xlWhole).Row - .Row + 1
    For col = 3 To 28
        If .Item(position, col) <> vbNullString Then
    DerColLavage = col
    End If
    Next col
    'on contrôle le nombre de lavages
    If Me.TextBox6.Value < 25 Then
        .Item(position, DerColLavage + 1) = CDate(Me.TextBox5)
        MsgBox "Modification prise en compte."
    Else
        MsgBox "Limite des 25 lavages atteinte, Opération annulée."
    End If
    'fin de contôle
    Me.TextBox6 = .Item(position, 29)
    End With
    InitListBox
End Sub

Cdt
Papy Henri

Bonjour
J'ai été un peu vite hier.
Voici la version 2 plus adaptée.
Question: pour les tailles de vestes et de pantalons, est-ce XL,XXL, etc., ou bien 40,41,etc.
Ceci permettrait de remplacer la TextBox3 par une ComboBox.
Cdt
Papy Henri

Bonjour à tous,

Une proposition à tester.

Cordialement

Bonsoir Valdu
Voici une autre adaptation (version3). Mais peut-être faut-il penser à la notion de suppression d'un article?
@Zebulon2: Excellent ta version
Cdt
Papy Henri

Bonsoir à tous,

Hello AFEH,

Merci du compliment. Ta solution n'est pas mal non plus.

Cordialement.

Hello AFEH et Zebulon2,

Merci à vous deux, vos solution sont top !!

Merci encore pour votre aide

Merci pour ce retour.
Toutefois, mon fichier test3 de hier ne fonctionne pas bien avec les Bottes et les Gants. J'ai remplacé les tailles avec un "T" devant chaque taille.
J'ai également ajouté (comme Zebulon2) le calendrier pour saisir les dates, et un bouton "Supprimer " pour les Vestes et Pantalons, car je suppose qu'au bout de 25 lavages, ils sont HS.
Pour les autres vêtements, en cas de destruction, il suffit de mettre un nombre négatif dans la quantité pour rétablir le stock.
Voici le fichier Test3bis.
Cdt
Papy Henri