Programmation combobox Résolu

Question

Bonjour, 

J'aimerais savoir si il est possible de définir la rowsource d'une combobox à partir d'une checkbox. 
Par exemple, j'ai 10 checkbox et 1 combobox : si la checkbox 1 est cochée la rowsource de la combobox est feuil1!B$40:B$55 sinon si la checkbox 2 est cochée la rowsource de la combobox est feuil2!B$40:B$50... ainsi de suite!

D'ailleurs je pense qu'il faudrait plutot faire ca avec des optionbutton pour que l'utilisation ne puisse cocher qu'une seule case à la fois? qu'en pensez vous?

J'espère que quelqu'un pourra m'aider.
D'avance merci

Configuration: Windows 2003 / Internet Explorer 7.0

michel_m · Answer

Bonjour, 

Tes combos et checkbox se touvent sur 1 feuille ou 1 userform ? 

effectivement il vaut mieux des optionsbuttons.... 
 Michel

grace · Answer

Finalement j'ai trovuer toute seule comme une grande. Ci-dessous le code, si ca peut aider d'autres personnes ;-)

Private Sub UserForm_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
If optionbutton1.Value = True Then
défauts.RowSource = "feuil1!AK$1:AK$9"
ElseIf optionbutton2.Value = True Then
défauts.RowSource = "feuil2!AK$1:AK$4"
ElseIf optionbutton3.Value = True Then
défauts.RowSource = "feuil3!AK$1:AK$23"
End If
End Sub

michel_m · Answer

Peut ^tre + simple

Private Sub OptionButton1_Click()
     ComboBox1.RowSource = "'feuil1'!A1:A10"
End Sub
Private Sub OptionButton2_Click()
     ComboBox1.RowSource = "'feuil1'!B1:B10"
End Sub

'etc

si le nom des onglets comporte plusieurs mots, il faut encadrer le nom par des apostrophes

si il y a beaucoup d'option buttons le + élégant serait un de passer par un module de classe

Programmation combobox

3 réponses

Discussions similaires

Newsletters