Boite de dialogue, Valeur Click

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?

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:

---

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:

---

1 2 3 4

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

---

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

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

En tête d'un module standard

Code:

---

dim reponse as string 'ou le type que tu veux

---

dans le code du bouton oui

Code:

---

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

Citation:

---

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

Code:

---

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

---

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:

---

1 2 3 4 5 6

Sub Oui_click()   Dim rep As String rep = "Oui" test2 rep End Sub

---

le bouton non

Code:

---

1 2 3 4 5

Sub Non_click() Dim rep As String rep = "Non" test2 rep End Sub

---

La macro qui est appelé

Code:

---

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