Lier Combo Box avec OptionButton

[Johann Wintzenrieth]

Bonjour à tous,

Je suis dans une impasse concernant un fichier Excel développé majoritairement sous VBA et j'aurais aimé avoir votre avis.

Explication du fichier :

Une feuille base de données (BD) avec :

3 colonnes sur 164 lignes

Les 3 références sont liées (Ex : X122, Y122, Z122)


Le reste est développé sous VBA avec :

Une dizaine de UserForm dont un « Principal » (qu’on appellera UFP) qui fait le lien avec tous les autres « Secondaires » (UFS) :



Private Sub CommandButton1_Click()



UFP.Hide

Load UFS1

UFS1.Show



End Sub



Les UFS affichent les informations de la BD dans 3 Label lorsqu’un OptionButton est sélectionné :



Private Sub OptionButton1_Click()



Dim X, Y, Z As String

Dim ligne As Integer

ligne = 1

X = Worksheets("Feuil1").Cells(ligne, 1)

Y = Worksheets("Feuil1").Cells(ligne, 2)

Z = Worksheets("Feuil1").Cells(ligne, 3)

Label1.Caption = X

Label2.Caption = Y

Label3.Caption = Z


End Sub



Opération répétée 164 fois avec pour seule variable : ligne = X

Demande :

L’amélioration que je souhaite apporter au fichier est de pouvoir rechercher depuis le UFP, via unComboBox, une référence de la colonne C de la BD (donc la ref Z) :

Propriétés ComboBox1 > RowSource > Feuil1!C1:C164

Puis lorsque la référence est sélectionnée dans le ComboBox le UFS concerné s’ouvre et me sélectionne l’OptionButton en rapport avec la référence.



Auriez-vous une idée pour m’aider à réaliser cette dernière opération ?



Cordialement