Discussion :

[florent77]

Bonjour à toutes et à tous,

Je bloque, je n'arrive pas à conceptualiser le truc..
Voilà ce que je souhaiterais faire :
Une boucle sur 6 OptionButtons avec injection de données dans une colonne de 6 lignes.
Dans mon exemple, un OptionButton coché renvoie la valeur 2 dans la cellule de destination.
Le problème avec le code si dessous est que dès que je coche le premier bouton, il me renvoie la valeur 2 sur toute la colonne.

Quelqu'un aurait-il une idée ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
With UserForm1
 
For i = 1 To 6
 
    If .Controls("OptionButton" & i).Value = True Then
        For j = 5 To 10
        ThisWorkbook.Worksheets("Tableau").Cells(j, 2).Value = 2
        Next j
    End If
 
Next i
 
End With

[BENNASR]

bonjour
j'arrive pas à comprendre ta demande mais c'est ton code qui demande à remplir toutes les lignes avec 2

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 For j = 5 To 10
        ThisWorkbook.Worksheets("Tableau").Cells(j, 2).Value = 2
        Next j

une capture écran expliquera mieux ton problème
BONNE CONTINUATION

[florent77]

Bonjour BENNASR et merci de ta réponse,

Oui effectivement le code renvoie 2 dans toute la colonne mais ce n'est pas ce que je souhaite.
Je m'explique un peu mieux, on va imaginer 6 items avec 3 OptionButtons chacun ce qui donne ceci :

Item 1 : OptionButton21, OptionButton11, OptionButton01,
Item 2 : OptionButton22, OptionButton12, OptionButton02,
Item 3 : OptionButton23, OptionButton13, OptionButton03,
Item 4 : OptionButton24, OptionButton14, OptionButton04,
Item 5 : OptionButton25, OptionButton15, OptionButton05,
Item 6 : OptionButton26, OptionButton16, OptionButton06,


Si OptionButton21 est coché => 2 en B5
Si OptionButton11 est coché => 1 en B5
Si OptionButton01 est coché => 0 en B5
Si OptionButton22 est coché => 2 en B6
Si OptionButton12 est coché => 1 en B6
Si OptionButton02 est coché => 0 en B6
Si OptionButton23 est coché => 2 en B7
etc ...

Pour éviter les If à répétition, je cherche à faire une boucle sur les différents contrôles et les cellules de destination.

[boisgontierjacques]

Bonjour,

Plutôt que de créer dynamiquement des boutons d'options, pourquoi ne pas utiliser un ListBox Options qui est dynamique.

Boisgontier

[florent77]

Merci Jacques pour cet outil fort intéressant, mais je ne cherche pas à créer dynamiquement mes boutons, ils sont déjà créés.

Je cherche à faire une boucle sur les noms des OptionButtons et les cellules de destination.

[florent77]

Salut à tous,

J'ai trouvé une solution, c'était pas bien compliqué
Cela peut servir à des débutants comme moi.
Je répète ce à quoi je voulais arriver : boucler sur des OptionButtons et injecter les valeurs les unes à la suite des autres dans une colonne.
Dans l'exemple ci dessous les boutons de gauche renvoient la valeur 1 et ceux de droite la valeur 2.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Sub boucle()
 
Dim i As Integer
 
With UserForm1
 
       For i = 1 To 3
 
             If .Controls("OptionButton1" & i).Value = True Then Worksheets("Feuil1").Cells(i, 3).Value = 1
             End If
 
             If .Controls("OptionButton2" & i).Value = True Then Worksheets("Feuil1").Cells(i, 3).Value = 2
             End If
 
      Next i
 
End With
 
 
End Sub

Y'a certainement plus classe mais ça fonctionne

A +