Détermination variable public dans frame

Bonjour forum,

Je me retrouve encore bloqué sur mon projet de macro.

Mon USF contient un Frame pour valider le choix de la variable public "attribution".

A partir de cette variable, cela me permet d'affiner une sélection de ligne avec des conditions.

Seulement, il me semble que ma variable public n'est pas déterminer ou alors ce sont mes conditions qui ne sont pas bonnes.

Comme je n'ai pas de message de bug, j'opte pour la 1ère solution.

Pouvez-vous m'aider svp ?

Salut

essaie ce fichier

le nom du userform est depart_userform

donc il faut l'initialier comme ca:

Private Sub depart_userform_Initialize()

et non pas comme ca:

Private Sub UserForm_Initialize()

Bonne nuit

Bonjour à tous,

Heu non, c'est toujours Private Sub UserForm_Initialize() quelque soit le nom de l'UF

Par contre tu fais l'inverse du commentaire dans :

            'Si vrai la variable attribution prend comme valeur le texte du bouton
            Me.Attribution_bouton.Caption = (attribution)

il faut :

attribution = Me.Attribution_bouton.Caption

eric

Bonjour et merci pour vos réponses mais ma variable "attribution" ne remonte pas ...

Je l'ai déplacé comme suit :

Private Sub Frame_attribution_Click()
   'boucle pour chaque controle de frame_attribution
    For Each Attribution_bouton In Frame_attribution.Controls
        If Attribution_bouton.Value Then
            'Si vrai la variable attribution prend comme valeur le texte du bouton
            attribution = Me.Attribution_bouton.Caption
        Else
        End If
    Next

Pour vérifier si la variable est déterminé, j'ai placé un Commandbutton qui doit la renvoyer ... sans succès !!

Qu'est ce qu'il ne va pas dans mon code ?

Bonjour,

Private Sub Frame_attribution_Click()

donc il faut cliquer dans un endroit libre du frame pour que ça se lance.

Pas très ergonomique ni instinctif...

Supprime donc le début et met le reste dans une Sub majListes que tu appelles lors des clics sur les option buttons avec par exemple :

Private Sub OptionButton1_Click()
    attribution = OptionButton1.Caption
    majListes
End Sub

eric