UserForm & Module

[dashdoush]

Bonjour Chers Membres,

Donc voila j'ai mon UserfForm qui m'affiche la liste des feuille comme suit :

Public Sub CommandButton1_Click()
Unload Me
End Sub

Public Sub UserForm_Initialize()
Dim sht As Worksheet
For Each sht In ActiveWorkbook.Worksheets
ComboBox1.AddItem sht.Name
Next sht
End Sub


Public Sub ComboBox1_Change()
Worksheets(ComboBox1.Text).Select
End Sub

Ce que je voudrai c'est que dans mon Module1 j'ai une variable String, à la quelle je veux affecter la valeur séléctionne dans le UserForm .

J'ai essayé ca mais ca marche pas :/

Option Explicit

Sub test()

Dim feuille As String

' je voudrai affecter la valeur selectionner du userform dans la variable feuille et je sais pas comment faire :/


feuille = UserForm1.Show

MsgBox (feuille)

End Sub

Merci pour vos réponses.

 

[Eric C]

Re : UserForm & Module

Bonjour le forum
Re dashsdoush

Je ne sais pas si cela fera l'affaire mais essayes :

feuille = UserForm1.ComboBox1.Value

 

[Eric C]

Re : UserForm & Module

Re le forum
Re dashdoush

J'étais à côté de la plaque je n'avais pas vu la présence du msgbox dans ta question. "Si" a répondu à ta demande sur l'autre fil de discussion avec un fichier joint !!