ComboBox dans ExcelRésolu

Question

bonjour, je suis debutant dans vba, je veux mettre un comboBox dans un UserForm
j'es mis dans UserForm
ComboBox1.Additem "1"

et a l'ouverture de la UserForm le ComboBox1 et vide
de plus je ne connait pas la proc&#233;dure pour que le resultat du comboBox1 s'enregistre dans le Feuil2 
merci de votre aide

TThierry133

Utilisateur anonyme · Accepted Answer

Bonjour,



Voil&#224; un bout de code qui fait ce que tu veut



Dans une UserForm (UserForm1) avec un ComboBox(ComboBox1)



Option Explicit



Private Sub ComboBox1_Change()
  UserForm2.ResultCombo = ComboBox1.Text
  UserForm2.Show

End Sub



Private Sub UserForm_Initialize()
  ComboBox1.AddItem ("1")

  ComboBox1.AddItem ("2")

  ComboBox1.AddItem ("3")

End Sub



Dans une autre UserForm (UserForm2) avec une label (Label1)



Option Explicit



Public ResultCombo As String



Private Sub UserForm_Activate()

  Label1.Caption = "Valeur s&#233;l&#233;ctionner: " & ResultCombo

End Sub





ChRB
<hr size="2" width="100%">
Merci de cliquer sur "R&#233;ponse accept&#233;e" si une r&#233;ponse vous convient.

vaughan · Answer

Voici un code qui fonctionne :
Private Sub bt_Trt_Click()
    cb_Exemple
End Sub

Private Sub UserForm_Initialize()
    cb_Exemple.AddItem "coucou"
    cb_Exemple.AddItem "coucou2"
End Sub

Je ne comprend pas pourquoi ton addItem ne fonction pas ... peut-être l'endroit ou tu l'as placé ...

Il n'existe pas pour moi de méthode SaveToFile pour l'objet combobox en VBA ... tu dois te la faire tout seul ...

ComboBox dans Excel

2 réponses

Discussions similaires