Problème Boucle Optionbuttons avec variable sans UF

Question

Je poursuis mon projet vba, et je bute de nouveau sur un problème dont je ne trouve la solution nulle part sur le web. Je souhaite effectuer une boucle sur un nombre d'optionbuttons variable. MAIS je n'utilise pas de UserForm, car j'ai disposé les optionbuttons directement dans les cellules de ma feuille(2), Colonne G. Détails des variables utilisées : "Cpt" compte le nombre de matchs de Hockey (importés via internet) disposés dans ma colonne B feuille 2. "Var" m'indique à quelle ligne j'arrête ma boucle For (Cpt*2 car une ligne est sautée entre chaque match) "ligne" m'indique à quelle ligne de la feuille apparait le 1er match "n" est le nombre variable d'optionbuttons insérés ==&gt; A chaque match va correspondre un optionbutton, placé en bout de ligne. Le problème se situe au niveau du If, avec le ".Controls" qui n'est pas reconnu ... Je ne sais vraiment pas quoi inventer comme code pour que ça marche Merci beaucoup pour votre aide !! Private Sub CommandButton1_Click() Dim Cote1, Cote2, Cote3 As String Dim Eq1, Eq2 As String Dim Cpt, Var, ligne, n As Integer Dim OptionButton As Object ligne = 10 Cpt = Application.CountA(Range("B:B")) Var = 2 * Cpt + ligne - 1 For n = 1 To Var If Sheets(2).Controls("OptionButton" &amp; n).Value = True Then 'Sheets(2).OLEObjects ne marche pas non plus Eq1 = Sheets(2).Cells(ligne, 1).Value Eq2 = Sheets(2).Cells(ligne, 6).Value Cote1 = Sheets(2).Cells(ligne, 3).Value Cote2 = Sheets(2).Cells(ligne, 4).Value Cote3 = Sheets(2).Cells(ligne, 5).Value End If ligne = ligne + 1 Next End Sub...

vba-new · Answer

Tu peux joindre un fichier stp ? Ce serait plus facile pour nous. Une remarque dans ta déclaration de variable. En VBA, le type de chaque variable doit être explicitement déclaré. Le fait de les mettre sur la même ligne et écrire "Integer" à la fin ne les déclarera pas en Integer mais en Variant...

vba-new · Answer

C'est normal ! Car une variable de type Variant peut par définition accueillir tout type de données ! Une variable déclarée en Variant prend plus de place en mémoire. Si tu connais à l'avance le type de données de ta variable, il vaudra mieux la déclarer en tant que tel comme tu l'as fait...mais avec la bonne syntaxe !! Ensuite, il faut savoir que la collection Controls appartient à l'objet Userform , tu ne peux donc pas l'utiliser ici. Dans ton cas, étant donné que c'est des contrôles ActiveX que tu as utilisés, c'est bien OLEObject qu'il faut utiliser. Tu dis que tes optionbutton se trouve sur la feuille "Prochains matchs" qui correspond à la 3è feuille de ton classeur, je n'ai pas regardé ton code en détail mais remplace la ligne If Sheets(2).Controls("OptionButton" &amp; n).Value = True Then par If Sheets(3).OLEObjects("OptionButton" &amp; n).Object.Value = True Then...

vba-new · Answer

Tu peux déclarer tes variables comme ceci : Dim Cote1 As String, Cote2 As String, Cote3 As String Sur quelle ligne ??...

vba-new · Answer

C'est parce que je n'arrive pas à reproduire l'erreur !

Fais attention à ce que ta variable n ne dépasse pas le nombre d'OptionButton, l'erreur vient peut-être de là.

C'est bien Sheets(3) et non Sheets(2) qu'il faut mettre n'est-ce pas ?

vba-new · Answer

Je n'ai pas le même fichier ??

Si j'ai bien compris le principe, ton code devrait donner quelque chose comme ça :

Private Sub CommandButton1_Click()
    Dim Cote1 As String, Cote2 As String, Cote3 As String
    Dim Eq1 As String, Eq2 As String
    Dim Cpt As Integer, Var As Integer, ligne As Integer, n As Integer
    'Dim OptionButton As Object

    With Sheets(3)
        ligne = 10
        Cpt = Application.CountA(.Range("B:B"))
        Var = 2 * Cpt + ligne - 1

        For n = 1 To Var

            If .OLEObjects("OptionButton" & n).Object.Value = True Then
                'Sheets(2).OLEObjects

                Eq1 = .Cells(ligne, 1).Value
                Eq2 = .Cells(ligne, 6).Value
                Cote1 = .Cells(ligne, 3).Value
                Cote2 = .Cells(ligne, 4).Value
                Cote3 = .Cells(ligne, 5).Value
            End If
            ligne = ligne + 1
        Next
    End With

End Sub

Attention, dans l'éditeur VBA, le nom d'objet de ton onglet "Prochains matchs" s'appelle Feuil2 mais n'est pas la 2è feuille du classeur !!

Dans le classeur, l'onglet des prochains matchs se trouve en 3è position. C'est pourquoi il faut mettre Sheets(3) et non Sheets(2) (si nous avons bien le même fichier bien entendu...)