Récupérer l'OptionButton validé dans un UserForm

Version imprimable

1 pièce(s) jointe(s)

Salut,

Je pense que la question est élémentaire, mais j'ai beau cherché je ne trouve pas, ou alors je suis mauvais :?

A partir de mon fichier excel, je lance une macro qui me génère un mail de status .... ca ca marche :D
je voudrais en fait rajouté un prompt au lancement de cette macro pour proposer trois options, que je gèrerai ensuite pour générer un mail différent.

J'ai créé un UserForm, dont l'image est en pièce pour vous donner une idée, c exactement ce que je veux, mais je ne sais pas comment le gérer en fait.

Pas de soucis pour monter la fenêtre au lancement de ma macro:

SubKSelection.Show

mais aprés je bloque:oops:

J'ai essayé des choses comme cela sur le bouton "valid":
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 Private Sub ValidChoice_Click() Dim choice As String If AF_Option.value = True Then choice = AF Else If AUK_Option.value = True Then choice = AUK Else If AD_Option.value = True Then choice = AD End If End If End If SubKSelection.Hide End Sub
mais je ne suis pas sur, comment est-ce que ensuite je récupère cette valeur "choice" dans ma macro initiale qui a ouvert le user form?

par avance merci pour votre aide

Bonjour,

Tu dois déclarer que ta variable choice est publique.

Dans un module standard (Modules / Module1),

Code:

1
2
3
4
5
Public choice As String
Sub Test()
    SubKSelection.Show
    MsgBox "Votre choix : " & choice
End Sub

Dans le module de SubKSelection

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub ValidChoice_Click()
    If AF_Option.Value = True Then
        choice = "AF"
    Else
        If AUK_Option.Value = True Then
            choice = "AUK"
        Else
            If AD_Option.Value = True Then
                choice = "AD"
            End If
        End If
    End If
    SubKSelection.Hide
End Sub

Cordialement.

13/03/2012, 18h51
yzf-r

merci pour ta réponse, j'avais effectivement zappé l'aspect "Public" de la déclaration de ma variable.

J'ai modifié mon code suite à tes suggestions, et à chaque fois que remonte la MsgBox, le choix est " ", vide donc.
Je pense que j'ai du louper autre chose :(

pourtant j'ai bien vérifié les (name) de mes OptionButton et cela correspont bien au: AF_Option, AUK_Option et AD_Option

je ne vois pas où j'ai pu manquer qqc!
13/03/2012, 20h12
gFZT82

Tu n'as pas oublié d'enlever la déclaration de choice dans la procédure ValidChoice_Click() ?

Non, j'ai vérifié, elle n'est pas déclaré en double.

J'ai en double cliquant sur le boutton Valid:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub ValidChoice_Click()
    If AF_Option.value = True Then
        choice = "AF"
    Else
        If AUK_Option.value = True Then
            choice = "AUK"
        Else
            If AD_Option.value = True Then
                choice = "AD"
            End If
        End If
    End If
    SubKSelection.Hide
End Sub

et dans mon module où je lance la macro de génération de mail:

Code:

1
2
3
4
5
6
7
8
9
10
11
 
Public choice As String
 
Sub CreateSubKReportMail()
'create the weekly report mail for the SubK
 
    SubKSelection.Show
    If choice = "AF" Then
    MsgBox "Votre choix : " & choice
    Else
......

j'ai même rajouté un test pour afficher ou non le message, et quand je choisis AF, il n'apparait jamais.

j'ai plus ou moins trouvé pourquoi ca plante:D

en fait, je préparais une version de mon fichier pour l'attacher, j'ai donc enlever bcp de chose, et en essayant de reproduire avant de l'attacher, ça a fonctionné.

J'ai remarqué en fait que dans mon module initial où je lance la génération du mail, j'ai plusieurs sub. En résumé, mon code se présente sous la forme:
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 Public choice As String Sub Toto () ... End Sub Sub Titi() ... End Sub Sub CreateSubKReportMail() 'create the weekly report mail for the SubK '- mandatory step before: Click on "Ungroup charts/pivot tables" button SubKSelection.Show If choice = "AF" Then MsgBox "Votre choix : " & choice Else ... End sub
Quand j'enlève Titi et Toto, ça fonctionne correctement.

Mais je ne sais pas pourquoi :cry:
Ces deux sub n'appellent pas la variable choice pourtant. Est-ce que la déclaration doit être différente dans ce cas?

Par avance merci

14/03/2012, 15h14
yzf-r

Bon, j'ai contourné le problème en déplaçant ma fonction dans un module dédié où ne se trouve que la variable et la fonction en question, et ça marche.

Par contre, je ne vois toujours pas pourquoi cela ne fonctionne pas avec plusieurs fonctions dans le même module.

Je laisse ouvert le post un jour de plus si jamais qqu connait la réponse car ça m'intrigue :roll:

Aprés je ferme :ccool: