Microsoft 365 copier 2 valeurs dans un combobox

gothc · 24 Décembre 2020

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 · 24 Décembre 2020

Bonjour Gothc,
J'ai utilisé :

Code:

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 · 24 Décembre 2020

Bonjour gothc, sylvanu,

Ceci va bien :

VB:

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 · 24 Décembre 2020

Merci pour vos reponses joyeux noel

Microsoft 365 copier 2 valeurs dans un combobox

gothc

XLDnaute Occasionnel

Pièces jointes

sylvanu

XLDnaute Barbatruc

Pièces jointes

job75

XLDnaute Barbatruc

gothc

XLDnaute Occasionnel

Discussions similaires

Microsoft 365 copier 2 valeurs dans un combobox

gothc

XLDnaute Occasionnel

Pièces jointes

sylvanu

XLDnaute Barbatruc

Pièces jointes

job75

XLDnaute Barbatruc

gothc

XLDnaute Occasionnel

Discussions similaires

Privacy & Transparency

Privacy & Transparency