Projet Excel VBA

Bonsoir,

j'ai un problème sur excel vba . Le code vba que j'ai inséré ne marche pas.

Le projet consiste à créer un formulaire et à insérer des codes vba.

A partir de la feuille "Article", je dois créer un formulaire avec une liste déroulante faisant apparaître les éléments de la colonne B.

Si un utilisateur clique sur un élément de la liste déroulante (colonne B) , le prix ht , la quantité disponible en stock doivent s'afficher.

c'est un projet de gestion de stock, je vous joins ce que j'ai fait.

Merci de m'aider.

Bonjour et bienvenu(e)

Essaie avec cette procédure

Private Sub ListBox1_Click()
Dim cptr As Byte, produit As String, lig As Byte

  For cptr = 0 To ListBox1.ListCount - 1
    If ListBox1.Selected(cptr) = True Then
      produit = ListBox1.List(ListBox1.ListIndex, 0)
      With Sheets("Articles")
        lig = .Columns("B").Find(produit, .Range("B4"), xlValues).Row
        Disponible = .Cells(lig, "D")
        Ref_Article = .Cells(lig, "A")
        Denom = produit
        Prix_Unitaire = .Cells(lig, "C")
        HT = .Cells(lig, "E")
        TVA = .Cells(lig, "G")
        TTC = .Cells(lig, "H")
        TextBox1 = .Cells(lig, "I")
        OptionButton1 = .Cells(lig, "F")
      End With
      Exit For
    End If
  Next cptr
End Sub

Tu te sers de cellules qui ne sont pas renseignées : E, F, G, H et I

Merci beaucoup pour votre aide, je vais essayer d'avancer sur le projet. Je reviendrais vers vous si j'ai un problème.

Bonjour,

je reviens vers vous concernant le projet. J'ai un problème pour calculer la tva. J'ai rajouté cela à la suite du bouton valider

1°) question

If OptionButton1.Value = True Then

TVA = HT * OptionButton1

TVA = HT * OptionButton2

Exit Sub

End If

End Sub

mais le code ne marche pas

2°) question

sur vous regarder la propriété de la liste déroulante, vous allez voir que j'ai défini dans la propriété ROWSOURCE la plage B2:B20 alors que je désire renseigner toute la colonne B. Si vous renseignez une valeur dans la cellule B21, elle n'apparaitra pas dans la liste déroulante ALORS que je désire une liste déroulante automatique c'est à dire quand on renseigne un élément dans la colonne B quelque soit la cellule, elle apparaît dans la liste déroulante.

merci de m'aider. Je joins le fichier

Bonjour

A vérifier

Fichier supprimé à la demande de l'utilisateur

Merci beaucoup

si vous pouvez supprimer le fichier que vous avez joint à mon projet, ça me ferait plaisir car, j'ai peur que certains de mes camarades de classe viennent télécharger le meme fichier. Encore merci