Discussion :

[flexx]

Bonjour

Je rencontre un problème lors de la génération automatique de bouton radio (OptionButton).

Je souhaite associer plusieurs boutons radio dans un groupe que je génère dynamiquement en fonction du nombre d'item d'un formulaire.

Le problème est que je n'arrive pas bien à aligner les groupes avec les cellules. Et de ce fait, les boutons radio n'ont pas le comportement désiré, et il est possible de sélectionner 2 boutons radio dans un même groupe !

Vous pouvez constater le problème sur la capture d'écran suivante :

Capture

Une chose même très étonnant, est que le 2ème groupe semble lié au 4ème groupe de boutons. Ainsi, lorsque je clique sur un bouton radio du 2ème groupe, ça désélectionne un bouton radio du 4ème groupe. Je ne comprends absolument pas pourquoi.

Voici le code que j'utilise :

Code :

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

1
2
3
4
5
6
 
Set groupeCellules = ActiveSheet.Cells(cellule.Row, 6).Resize(nbCellulesFusionnees, 1)
 
With groupeCellules
 Set monGroupBox = ActiveSheet.GroupBoxes.Add(Top:=.Top, Left:=.Left, Height:=.Height, Width:=.Width)
End With

Pouvez-vous m'indiquer comment affecter un bouton radio à un groupe, et comment les aligner sur les cellules ?

Merci d'avance

[Daniel.C]

Bonjour,

Pourquoi ne te sers-tu pas des options buttons ActiveX ? C'est beaucoup plus facile à manier et tu n'as pas besoin de groupboxes.

[flexx]

Pourquoi pas utiliser les ActiveX si cela permet de faire ce que je veux.

A une époque j'avais entendu dire qu'il valait mieux les éviter.
Maintenant je ne sais pas.

Quels en sont les inconvénients ? (s'il y en a)
La rétro-compatibilité est-elle assurée ?

En regardant sur le net, j'ai vu que les ActiveX ne marchaient pas sous Mac.

Voici un cours exemple simplifié montrant le problème.

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
21
22
23
 
Dim myCell As Range
Dim numCell As Integer
Dim myGroupBox As GroupBox
Dim myOptionButton As OptionButton
 
ActiveSheet.OptionButtons.Delete
ActiveSheet.GroupBoxes.Delete
 
numCell = 0
For Each myCell In ActiveSheet.Range("E2:E12").Cells
    If numCell = 0 Then
        Set myGroupBox = ActiveSheet.GroupBoxes.Add(myCell.Left, myCell.Top, myCell.Width, myCell.Height * 3)
        myGroupBox.Caption = ""
    End If
    numCell = numCell + 1
    If numCell = 3 Then numCell = 0
Next
 
For Each myCell In ActiveSheet.Range("E2:E13").Cells
    Set myOptionButton = ActiveSheet.OptionButtons.Add(myCell.Left, myCell.Top, myCell.Width, myCell.Height)
    myOptionButton.Caption = "Option Button"
Next

Si qqun a une solution en utilisant les contrôles Excel, je suis preneur.

Merci par avance.

[Daniel.C]

En regardant sur le net, j'ai vu que les ActiveX ne marchaient pas sous Mac.

Apparemment c'est exact. Si tu travailles pour des Mac ...

[CodeFacile]

j'arrive peut être un peu tard sur la post mais..


Si ton problème consiste à aligner les controls sur la feuille , prend tes repéres sur la feuille :

Code :

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

1
2
3
4
 
 
left_W = ActiveSheet.Columns(Selection.Column).Left  ' Position Gauche selection fenêtre active
top_W = ActiveSheet.Rows(Selection.Row).Top  '

[flexx]

Ca correspond à peu près à ce que je faisais :

Code :

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

1
2
 
Set myGroupBox = ActiveSheet.GroupBoxes.Add(myCell.Left, myCell.Top, myCell.Width, myCell.Height * 3)

En fait, le problème vient du fait que souvent le dernier bouton radio n'est pas inclu dans le groupBox.
Du coup, je dimensionne un peu plus grand mon groupBox afin que tous les OptionButtons soient bien inclus dedans.

Ca marche pas trop mal (sauf à certains zooms).