tableau d'objet et optionButton

[chouralie]

Bonjour a tous,

je plante le décors :

j'ai plusieurs Combobox, dans ces Combobox j ai mis la même liste ex :

C00000L3
C00001L3
C00002L3
ect...

A chaque élément de ma liste j ai 2 OptionButton (avec un nom de groupe) qui ont pour nom ex :

C0000L3 et C0000L31
C0001L3 et C0001L32
ect..

donc ma manipulation consiste a récupérer l'élément de la Combobox puis de changer l'état de mon optionButton

pour cela j ai créé un tableau d'objet objTab(30,2) a 2 dimensions dans un module en public

je remplis mon tableau a l'ouverture du classeur ex :

Public Sub Workbook_Open()
objTab(0, 0) = Feuil1.C0000L3.Name
objTab(0, 1) = Feuil1.C0000L3
End Sub

Puis, lors de l'evenement change() de la combobox j'envoie la valeur de la Combobox vers une procedure (dans le module) qui va me préciser le rang dans le tableau objTab :

Public Function nameOptionButton(nomOptionButton)
Dim num As Integer
num = 0
For i = 0 To 29
    If objTab(i, 0) = nomOptionButton Then
          numero = num
    End If
num = num + 1
Next
End Function

Donc maintenant j'ai la position dans mon tableau objTab(numero,1)

je reviens sur ma feuille dans l'evenement change() pour changer l'etat de mon optionButton mais rien ne se fait :

Private Sub ComboBox1_Change()
nameOptionButton(ComboBox1.Value)
objTab(numero, 1) = True
End Sub

numero déclaré en public dans le module


Je ne comprends pas mon erreur, si quelqu'un peux me dire ou je me suis trompé, ca serait bien cool

 

[pierrejean]

Re : tableau d'objet et optionButton

bonjour chouralie

et bienvenue sur XLD

deja 10 forumeurs qui t'ont lu et qui ont probablement été découragés d'avoir a construire un fichier pour tenter de te comprendre !!
Fait le petit effort de presenter un exemple (sans données confidentielles) et je te garantis un resultat rapide)