Discussion :

[yzf-r]

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
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

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

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
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

[gFZT82]

Bonjour,

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

Dans un module standard (Modules / Module1),

Code :

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

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 :

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

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.

[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!

[gFZT82]

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

[yzf-r]

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

J'ai en double cliquant sur le boutton Valid:

Code :

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

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 :

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

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.

[yzf-r]

j'ai plus ou moins trouvé pourquoi ca plante

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 :

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
 
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
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