YANN-56
XLDnaute Barbatruc
Bonsoir à ceux qui passeront par là,
J'ai un souci dont je ne trouve pas solution:
Dans mon fichier joint, la gestion des "Captions" de mes boutons d'option est correcte => OK
Par le module de Classe, je crée un groupe limité à ceux présents dans le Frame 1
(Puisque dans l'appli il y en a par ailleurs; d'où pour exemple les 13 et 14 non concernés.
Surprise désagréable:
Le dernier (N° 12, COMMUNE) n'est pas pris en compte......... Je ne pige pas pourquoi!
Tournant en rond depuis un grand moment; je me résous à vous demander de l'aide.
Merci d'avance à qui ........
Yann
Dans l'USF:
Dans le module de Classe:
J'ai un souci dont je ne trouve pas solution:
Dans mon fichier joint, la gestion des "Captions" de mes boutons d'option est correcte => OK
Par le module de Classe, je crée un groupe limité à ceux présents dans le Frame 1
(Puisque dans l'appli il y en a par ailleurs; d'où pour exemple les 13 et 14 non concernés.
Surprise désagréable:
Le dernier (N° 12, COMMUNE) n'est pas pris en compte......... Je ne pige pas pourquoi!
Tournant en rond depuis un grand moment; je me résous à vous demander de l'aide.
Merci d'avance à qui ........
Yann
Dans l'USF:
Code:
Dim OPTIONS(99) As New Classe1 ' LE 99 CORRESPOND UN NOMBRE MAXI DE BOUTONS D'OPTION
Private Sub UserForm_Initialize()
''For i = 1 To Worksheets("LISTE").Range("A1").End(xlToRight).Columns ' Plante!
For i = 2 To 30 ' Donc je limite à 30 Colonnes
If Worksheets("LISTE").Cells(1, i).Value <> "" Then
' Etablissement des Appellations dans les Boutons d'Option
Controls("OptionButton" & i - 1).Caption = " " & Worksheets("LISTE").Cells(1, i).Value
End If
Next i
'-------------------------------- Deuxième Action: Création du groupe
Dim MES_OUTILS_DANS_USF1 As Control
Dim N As Byte
N = 1
For Each MES_OUTILS_DANS_USF1 In UserForm1.Controls
If MES_OUTILS_DANS_USF1.Parent.Name = "Frame1" Then
Set OPTIONS(N).GROUPE_OPTIONS = MES_OUTILS_DANS_USF1
End If
N = N + 1 ' J'ai tenté de déplacer ce "N" de diverses façons, mais sans succès.
Next MES_OUTILS_DANS_USF1
End Sub
Dans le module de Classe:
Code:
Public WithEvents GROUPE_OPTIONS As MSForms.OptionButton
Code:
Private Sub GROUPE_OPTIONS_Click()
UserForm1.Label4.Caption = GROUPE_OPTIONS.Caption
End Sub
Pièces jointes
Dernière édition: