Microsoft 365 copier 2 valeurs dans un combobox

[gothc]

Bonjour le forum
je cherche depuis hier comment copier 2 valeurs d'un combobox et coller les deux valeurs sur l'onglet test en A1 et a2
je laisse un fichier
Merci de votre aide joyeux noël à vous

 

[sylvanu]

Bonjour Gothc,
J'ai utilisé :

Private Sub CommandButton1_Click()
    X = Application.Match(UserForm2.ComboBox1, [ListB], 0)
    Sheets("test").[A1] = [ListA].Cells(X, 1)
    Sheets("test").[B1] = UserForm2.ComboBox1
    Unload UserForm2
End Sub

car UserForm2.ComboBox1 ne remonte que la valeur de la première colonne.
( j'ai appelé ListA et ListB les deux colonnes de données )

 

[job75]

Bonjour gothc, sylvanu,

Ceci va bien :

Private Sub CommandButton1_Click()
With ComboBox1
    If .ListIndex > -1 Then Sheets("test").[A1:B1] = Application.Index(.List, .ListIndex + 1, 0)
End With
End Sub

A+

 

[gothc]

Merci pour vos reponses joyeux noel