Discussion :

[rsoul]

Bonjour à tous, Bonjour à toi!
J'utilise des Boutons d'ioptions dans un userform, avec 3 options dispo pour l'utilisateur.
J'aimerais que lorsque l'utilisateur selectionne une des options et appuie sur Ok, sa reponse soit enregistré par excel.
Par exemple
l'utilisateur choisi Option1, alors excel enregistre reponse = "ARVFWD".
Ensuite VBA va réutiliser reponse = "ARVFWD" pour renommer des fichiers etc...
Mais mon pb est qu'il me renvoi que reponse= vide...

Voici une partie du code en question(de l'userform):

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
24
25
26
27
28
29
30
31
32
33
Private Sub Forwards_Click()
If Forwards = True Then
reponse = "ARVFWD"
Else
End If
End Sub
 
Private Sub Options_Click()
If Options = True Then
reponse = "ARVALL-OPT"
Else
End If
End Sub
 
Private Sub Offres_Click()
If Offres = True Then
reponse = "ARVALL-OPT"
Else
End If
End Sub
 
Private Sub OK_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal x As Single, ByVal Y As Single)
UserForm1.Hide
ouvrir_fichier
End Sub
Sub ouvrir_fichier()
 
FichFin = ActiveWorkbook.Sheets(1).Cells(18, 12).Value
'MsgBox prompt:=FichFin
 
If reponse = "ARVALL-OPT" Then Call opt Else
 
Workbooks.Open Filename:=Worksheets("1").Range("J12") & "\" & reponse & ".xls"

Merci pour vos eclairages @+

[spitnolan]

Bonjour,

Pas sûr d'avoir tout compris mais essaye :

Code :

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

Private reponse as string

en début de ton module UF.

et, sans rapport avec la question, réduits :

Code :

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

1
2
3
Private Sub Forwards_Click()
If Forwards = True Then reponse = "ARVFWD"
End Sub

Cordialement

[Gorfael]

Salut rsoul et le forum
Le problème, tel que je le comprends renient à un problème de transmission de paramètre
Comme tu ne déclares même pas tes variables, tu ne visualises pas la portée de celles-ci.
une variable déclarée dans une macro s'initialise au lancement de cette macro, n'est visible que par cette macro, et disparaît à la fin de la macro.
Si tu utilises le même nom de variables sur plusieurs macros différentes, chacune sera indépendante des autres.

Celles qui sont déclarées en tête d'un module sont valable dans le module.
(c'est pas tout à fait vrai, tu peux les rendre globales, mais c'est plus simple à comprendre) et elle ne sont initialisées, "supprimées" qu'avec le module (donc, tant que le classeur est ouvert ou l'USF chargé, elles restent à la dernière valeur qu'on leur a définie

Donc, pour ton problème, 2 solutions :
Soit tu déclares une variable en tête du module de l'USF (solution proposée par spitnolan) et tu peux traiter ta variable par toutes tes macros liées à l'USF.

Soit tu testes tes boutons d'options dans la macro finale (eux, ils restent dans la position tant que tu ne décharges pas l'USF)
Début macro
tests des 3 boutons, et mise à jour de la variable
masquage/déchargement de l'USF
traitement de la variable

Code :

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

1
2
3
4
If Forwards = True Then
     reponse = "ARVFWD"
Else
End If

??? l'écriture de Else n'est obligatoire que si tu l'utilises.. La même chose en tant que feignant ;

Code :

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

1
2
3
4
If Forwards = True Then
     reponse = "ARVFWD"
     'autre instructions
End If

syntaxe utilisée quand tu as plusieurs instructions déclechées par le If (tu peux séparer par ":", mais c'est illisible et n'apporte rien. Comme tu n'as qu'une seule instruction, tu peux utiliser l'autre syntaxe :

Code :

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

If Forwards = True Then reponse = "ARVFWD"

La déclaration obligatoire des variables te permet d'éviter les erreurs de frappe, toujours très difficiles à détecter, et réduit la place utilisée en RAM (pourvu que le type ne soit pas variant)
A+

[rsoul]

Une fois de plus Merci