Probleme d'echange entre userform
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:
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
