Discussion :

[stephadm]

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

[stephadm]

Bonsoir au forum,

Je me répond à moi même et pour ceux a qui ça intéresse

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
Private Sub OptButtonH_Click()
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
End If
End Sub
 
Private Sub OptButtonV_Click()
If 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
 
Private Sub UserForm_Initialize()
Dim laListe
 
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
End If

Merci

Stephanie