Pb avec rowsource qui affiche 2 colonnes de données

Skyna

XLDnaute Occasionnel
Bonjour à tous,

Je n'arrive pas à faire apparaître dans un combobox la liste qui fait référence aux données d'une autre feuille en affichant dans cette liste les éléments de 2 colonnes.
Voici mon code :

Private Sub UserForm1_Initialize()

Dim f

Set f = Sheets("DataComptes")

With UserForm1

.ComboBox1.ColumnCount = 2
.ComboBox1.ColumnWidths = "40,70"
.ComboBox1.RowSource = "A2:B" & [B65000].End(xlUp).Row
.ComboBox1.RowSource = f.Range("A2:B" & [B65000].End(xlUp).Row)

End With

End Sub


Private Sub Combobox1_Change()

UserForm1.Label1 = UserForm1.ComboBox1.Column(1)

End Sub

Quelqu'un aurait il une idée svp?

Je vous remercie par avance.

Cordialement.
 

Fichiers joints

eriiiic

XLDnaute Barbatruc
Bonjour,
VB:
    With UserForm1
        .ComboBox1.ColumnCount = 2
        .ComboBox1.ColumnWidths = "40,70"
        .ComboBox1.List = f.Range("A2:B" & [B65000].End(xlUp).Row).Value
    End With
eric
 

job75

XLDnaute Barbatruc
Bonsoir Skyna, Nicole, eriiiic,

Le code étant placé dans UserForm1 il est inutile de faire référence à cet objet :
Code:
Private Sub UserForm_Initialize()
Dim f As Worksheet
Set f = Sheets("DataComptes")
With ComboBox1
  .BoundColumn = 2
  .ColumnCount = 2
  .ColumnWidths = "40,70"
  .List = f.Range("A2:B" & f.[B65000].End(xlUp).Row).Value
End With
End Sub

Private Sub Combobox1_Change()
Label1 = ComboBox1 'prend la 2ème colonne
End Sub
A+
 

Discussions similaires


Haut Bas