Inventaire pièce

Bonjour tout le monde,

Moi c'est baloo et je suis nouveau sur ce forum. je suis aussi néophyte dans le VBA mais je cherche à m'améliorer.

J'ai un projet de "gestion de stock" via un userform et j'ai donc suivis quelque cours et exemple via des vidéos.

Je suis malheureusement confronté à un problème et c'est pour ca que je viens à vous ^^

J'ai cherché à avoir deux Combobox dépendante pour:

-Mes pièces en fonction de mes équipements

En soit mon Userform fonctionne quand je remplis le userform complètement, la première ligne de ma feuille (List) ce rempli.

En revanche mon problème est que lorsque dans mon useform je note moi même un nouveau type de pièce dans la combobox cette nouvelle pièce ce note uniquement dans ma feuille "List" et pas dans la feuille "Sheet1"

Donc pour mes prochaines saisies dans le userform je ne retrouve pas la pièce dans la combobox

Voila j'espère avoir bien expliqué la situation ^^

Merci d'avance pour votre aide

Bonjour et bienvenue sur le forum

Un essai à tester. Te convient-il ?

Bye !

Bonjour,

Votre code modifié, pour la partie remplissage de la feuille "Sheet1", je n'ai pas cherché à remplacer les cellules de destination, je vous laisse le soin de le faire de par vous-même.

Private Sub CommandButton1_Click()
    Dim ligne As Integer
    Dim f1 As Worksheet, f2 As Worksheet
    Set f1 = Sheets("Liste")
    Set f2 = Sheets("Sheet1")

    UserForm1.Show 0 'garder l'affichage non modal de l'userform

    If ComboBox1.Value = "" Then
        MsgBox "Veuillez renseigner le champs   'Equipement et Sous équipement' "
    Else
        If MsgBox("confirmez-vous l'ajout des données?", vbYesNo, "confirmation") = vbYes Then
            'remplissage de la feuille "Liste"
            ligne = f1.Range("A" & Rows.Count).End(xlUp).Row + 1
            f1.Cells(ligne, 1) = ComboBox1.Value
            f1.Cells(ligne, 2) = ComboBox2.Value
            f1.Cells(ligne, 3) = TextBox1.Value
            f1.Cells(ligne, 4) = TextBox2.Value
            f1.Cells(ligne, 5) = TextBox3.Value
            f1.Cells(ligne, 6) = TextBox4.Value
            f1.Cells(ligne, 7) = TextBox5.Value
            f1.f1.Cells(ligne, 8) = TextBox6.Value
            f1.Cells(ligne, 9) = TextBox7.Value
            f1.Cells(ligne, 10) = TextBox8.Value

            'remplissage de la feuille "Sheet1"
            ligne = f2.Range("A" & Rows.Count).End(xlUp).Row + 1
            f2.Cells(ligne, 1) = ComboBox1.Value
            f2.Cells(ligne, 2) = ComboBox2.Value
            f2.Cells(ligne, 3) = TextBox1.Value
            f2.Cells(ligne, 4) = TextBox2.Value
            f2.Cells(ligne, 5) = TextBox3.Value
            f2.Cells(ligne, 6) = Textf2Box4.Value
            f2.Cells(ligne, 7) = TextBox5.Value
            f2.Cells(ligne, 8) = TextBox6.Value
            f2.Cells(ligne, 9) = TextBox7.Value
            f2.Cells(ligne, 10) = TextBox8.Value
        End If
    End If

    'libérer la mémoire
    Set f1 = Nothing
    Set f2 = Nothing
End Sub

Cdlt

Merci pour vos réponses

Le fichier envoyé à l'air de fonctionner. J'ai juste un "beug" si je veux écrire dans la combobox 1

Oups sa ne marche pas au final. Ou j'ai fais une boulette ^^

J'ai deux fois pièces 1 dans la combobox

Nouvelle version

Bye !

Merci de ton aide néanmoins j'ai toujours la problème.

Lorsque je remplie le formulaire exemple : machine 1 pièce 1 etc etc que je clik sur ajouter sa l'ajoute bien sur ma feuille liste mais sa l'ajoute aussi sur ma feuille sheet1(alors que je les déjà) et du coup quand je retourne sur le formulaire j'ai deux fois pièce 1 pour la machine 1

Nouvel essai

Bye !

Merci sa fonctionne :)

J'ai plus cas essayer d'intégrer un bouton pour ajouter une image qui s'intégrer dans ma colonne image puis afficher cette image sur mon userform :)

Je vous tiens au courant :)

Je vais pas mettre d'image au final car j'ai lu que par rapport au poids du fichier sa peut devenir vite très lourd.

Je vais "juste" essayer de faire fonctionner le bouton recherche et ajouter un bouton modifier :)

Bonjour

Je vais "juste" essayer de faire fonctionner le bouton recherche et ajouter un bouton modifier :

OK

Si tu as un problème, fais appel et joins un fichier avec des données.

Bye !