Bonjour au forum,

Je souhaite utiliser rowsource de la feuille Listes en "I" pour Ligne et "J" pour Colonne en passant par le code ci-dessous, dans les ComboBox "CBoxColonne" et "CBoxLigne" avec options

ex: si "OptButtonH" est coché alors "CBoxColonne" liste de A jusqu'à C et "CBoxLigne" liste de 1 à 21, par compte
si "OptButtonV" est coché alors "CBoxColonne" liste de A jusqu'à D et "CBoxLigne" liste de 1 à 12

J'ai écrit ceci :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub UserForm_Initialize()
Dim laListe
If OptButtonH = True Then
laListe = Sheets("Listes").Range("I2:I" & Sheets("Listes").Range("I22").Row)
CBoxLigne.List = laListe
laListe = Sheets("Listes").Range("J2:J" & Sheets("Listes").Range("J4").Row)
CBoxColonne.List = laListe
ElseIf OptButtonV = True Then
laListe = Sheets("Listes").Range("I2:I" & Sheets("Listes").Range("I13").Row)
CBoxLigne.List = laListe
laListe = Sheets("Listes").Range("J2:J" & Sheets("Listes").Range("J5").Row)
CBoxColonne.List = laListe
End If
End Sub
mais fonctionne pas

Comment utiliser le control OptionButton ?

Merci

Stephanie