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+
 

Créez un compte ou connectez vous pour répondre

Vous devez être membre afin de pouvoir répondre ici

Créer un compte

Créez un compte Excel Downloads. C'est simple!

Connexion

Vous avez déjà un compte? Connectez vous ici.

Haut Bas