Discussion :

[mcchipie]

Bonjour,

Je dois pour certaines raisons, programmer une boite de dialogue ou on pourra cliquer sur oui ou sur non.

Je veux savoir comment transmettre une valeur a une macro extérieure lorsque je clique.

En gros est il possible d'apposer une valeur retour?

[Krovax]

Bonjour quel est ton problème savoir si l'utilisateur a appuyé sur oui ou Non?
Transmettre l'info a l'autre macro? (la c'est facile tu la passe en argument lors de l'appelle ou tu met la variable en publique)

Regarde ce code, il fait ce que tu demande (en passant par des argument car les variables publique c'est pas mon truc)

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Sub test35()
 
Dim rep As String
    Select Case MsgBox("Chosis", vbYesNo)
    Case vbYes
        rep = "Oui"
    Case vbNo
        rep = "Non"
    End Select
    test2 rep
End Sub

Code :

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

1
2
3
4
 
Sub test2(aff As String)
MsgBox "Il a répondu " & aff
End Sub

[mcchipie]

je ne peux pas passer par une msgbox, je suis obligée de passer par un userform.

je sais ... c'est nul mais on a pas le choix.

donc j'ai deux procédure apposées a ce Userform, et des que je clique sur oui, je voudrais que ca transmette a ma macro ext une valeur et quand je clique sur non, une autre.

j'espère m'etre bien exprimée

merci

[Krovax]

Le plus simple passe par une variable public alors (rah j'aime pas dire ca )

En tête d'un module standard

Code :

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

dim reponse as string 'ou le type que tu veux

dans le code du bouton oui

Code :

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

1
2
reponse ="Oui"
'ou la valeur que tu veux donner a ta variable

dans le code du bouton non (je te laisse de deviner )

[aalex_38]

Je veux savoir comment transmettre une valeur a une macro extérieure lorsque je clique.

On peut aussi transmettre des paramètres à une macro, l'exemple extrait de l'aide VBA :

Code :

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

1
2
3
4
' Cet exemple montre comment appeler la fonction macro My_Func_Sum, qui est ' définie dans la feuille macro MyCustom.xlm (cette dernière doit être ouverte). ' Dans cet exemple, la fonction accepte deux arguments numériques, 1 et 5.
 
mySum = Application.Run("MYCUSTOM.XLM!My_Func_Sum", 1, 5)
MsgBox "Macro result: " & mySum

[Krovax]

j'avais pas fai attention au lorsque je clique, ouf plus besoin de passer par des variables public
(mais personnellement je préfère passer les variable en argument ca permet de modifier le nom du fichier)

Bon du coup la réponse tu l'avais dans mon premier code suffisais juste le découper en deux

Donc dans le code du bouton oui

Code :

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

1
2
3
4
5
6
Sub Oui_click()
 
Dim rep As String
        rep = "Oui"
    test2 rep
End Sub

le bouton non

Code :

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

1
2
3
4
5
Sub Non_click()
Dim rep As String
        rep = "Non"
    test2 rep
End Sub

La macro qui est appelé

Code :

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

1
2
3
4
 
Sub test2(aff As String)
MsgBox "Il a répondu " & aff
End Sub

Avoue que c'est pratiquement la même chose