[RESOLU] : combobox et relation avec option button

[MADAGASCAR]

salut forum
salut a tous
merci d'avance pour l'aide dans ce probleme que je l'ai explique dans feuil 1 de ce fichier ci joint ci dessous
cordialement
MADA

 

[Dranreb]

Re : combobox et relation avec option button

Bonsoir.

Private Sub OptionButton1_Click()
GarnirAvec Feuil1
End Sub
Private Sub OptionButton2_Click()
GarnirAvec Feuil2
End Sub
Private Sub OptionButton3_Click()
GarnirAvec Feuil3
End Sub
Sub GarnirAvec(ByVal F As Worksheet)
ComboBox1.List = F.[A4].Resize(F.[A60000].End(xlUp).Row - 3).Value
End Sub

 

[MADAGASCAR]

Re : combobox et relation avec option button

Bonsoir DRANREB
merci ..merci beaucoup pour l'aide et aussi pour votre rapide reponse
c'est vraiment ce que je veux
a part quelques questions ( dans la feuil1 ) qui me laissent comprendre beaucoup mieux ce sujet..
merci d'avance pour vos suggestions
cordialement
MADA

 

[MADAGASCAR]

Re : combobox et relation avec option button

Bonjour Forum
Bonjour a tous et a toutes
merci d'avance pour vos propositions et suggestions
cordialement
MADA

 

[Dranreb]

Re : combobox et relation avec option button

Bonjour.

Ça peut encore se faire comme ça :

Private Sub OptionButton1_Click()
GarnirAvec Feuil1.[A4]
End Sub
Private Sub OptionButton2_Click()
GarnirAvec Feuil2.[C2]
End Sub
Private Sub OptionButton3_Click()
GarnirAvec Feuil3.[B6]
End Sub
Sub GarnirAvec(ByVal CelDép As Range)
ComboBox1.List = CelDép.Resize(CelDép.Offset(60000).End(xlUp).Row - CelDép.Row + 1).Value
End Sub

 

[phlaurent55]

Re : combobox et relation avec option button

Bonjour à tous,

Private Sub OptionButton1_Click()
ComboBox1.Clear
ComboBox1.List = Sheets(1).[A4].Resize(Sheets(1).[A60000].End(xlUp).Row - 3).Value
End Sub
Private Sub OptionButton2_Click()
ComboBox1.Clear
ComboBox1.List = Sheets(2).[C2].Resize(Sheets(2).[C60000].End(xlUp).Row - 3).Value
End Sub
Private Sub OptionButton3_Click()
ComboBox1.Clear
ComboBox1.List = Sheets(3).[B6].Resize(Sheets(3).[B60000].End(xlUp).Row - 3).Value
End Sub

à+
Philippe

 

[MADAGASCAR]

Re : combobox et relation avec option button

Bonjour DRANREB..Bonjour PHILIPPE
merci beaucoup DRANREB pour l'aide
merci beaucoup PHILIPPE pour l'aide
deux excellents et impeccables codes
cordialement
MADA