Discussion :

[Pierre67]

Bonjour

j'ai des optionbuttons dans l'userform frmtype en fonction du choix une listbox est alimentée dans un autre userform qui est initialisé suivante le code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
 
Sub userform_initialize()
Dim derlign As Long
Me.ListBox1.ColumnCount = 2
Me.ListBox1.ColumnWidths = "40;30"
    If frmtype.optcat1 = True Then
             derlign = Sheets("PANNEAUX").Range("A1048576").End(xlUp).Row
            Me.ListBox1.RowSource = Sheets("Panneaux").Range("A2:B" & derlign)
    End If
End Sub

mais j'obtiens une erreur 13
où est le bug ?
cordialement

[Daniel.C]

La propriété "RowSource" est de type String. Essaie :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Me.ListBox1.RowSource = "Panneaux!A2:B" & derlign

[Pierre67]

Bonjour Daniel .C

effectivement cela fonctionne très bien
merci beaucoup pour ce coup de main
@+