Pb avec rowsource qui affiche 2 colonnes de données

Skyna · 22 Octobre 2017

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.

eriiic · 22 Octobre 2017

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

Skyna · 22 Octobre 2017

Merci beaucoup!!!

job75 · 22 Octobre 2017

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+

Pb avec rowsource qui affiche 2 colonnes de données

Skyna

XLDnaute Occasionnel

Pièces jointes

eriiic

XLDnaute Barbatruc

Skyna

XLDnaute Occasionnel

job75

XLDnaute Barbatruc

Discussions similaires