ajout d'une liste de choix dans userform

  • Initiateur de la discussion Initiateur de la discussion angoul
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

angoul

XLDnaute Impliqué
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
 

Pièces jointes

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 😎
 
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

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
 
Dernière édition:
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
6
Affichages
336
Réponses
6
Affichages
323
Réponses
40
Affichages
2 K
Retour