ajout d'une liste de choix dans userform

[angoul]

bonjour,

j'ai creer une petite userform pour remplir une feuille excel

dans cette userform j'ai plusieur champs donc un " categorie" ou j'aimerai avoir une liste de choix

quelqu'un peut t'il m'aider

je met a dispo mon fichier allegée *

merci d'avance

 

[JNP]

Re : ajout d'une liste de choix dans userform

Bonjour Angoul 🙂,
A la place de ta TextBox pour Catégorie, place un ComboBox. Dans la propriété RowSource du ComboBox, tu mets la référence des cellules qui contiennent les catégories que tu veux mettre en liste déroulante. Si tu veux limiter les choix exclusivement à ta liste, tu passe la propriété Style de 0-...Combo à 2-...List. Enfin, si tu préfères charger tes propres valeurs dans le code, utilise ComboBox1.AddItem "5%" dans l'Initialise de l'USF.
Bonne journée 😎

 

[gilbert_RGI]

Re : ajout d'une liste de choix dans userform

bonjour,

j'ai creer une petite userform pour remplir une feuille excel

dans cette userform j'ai plusieur champs donc un " categorie" ou j'aimerai avoir une liste de choix

quelqu'un peut t'il m'aider

je met a dispo mon fichier allegée *

merci d'avance

Bonjour

voilà si cela peut vous aider

cliquer ici


rectifier dans le code

Private Sub BtnSave_Click()
    iRow = Sheets("Article").Range("A65536").End(xlUp).Row
    WrbCaisse.Worksheets("Article").Cells(iRow + 1, 1) = Me.TxtCodArt.Text
    WrbCaisse.Worksheets("Article").Cells(iRow + 1, 2) = Me.TxtDscArt.Text
    WrbCaisse.Worksheets("Article").Cells(iRow + 1, 5) = Me.Txttva.Text
    WrbCaisse.Worksheets("Article").Cells(iRow + 1, 6) = [COLOR="Red"]Me.ComboBox1.Text[/COLOR]
    WrbCaisse.Worksheets("Article").Cells(iRow + 1, 7) = Me.Txtstock.Text
    WrbCaisse.Worksheets("Article").Cells(iRow + 1, 4) = Me.Txtprix.Text
    FrmArticle.Hide
End Sub

Salutations

Gilbert_RGI