Envoyer une variable a un userform

Bonjour,

Je souhaiterais savoir comment envoyer une variable dans un userfom.

Dans ma macro j'ai 2 variables. WsData et WsClient. Ce sont des variables worksheet.
Dans mon userform j'ai 2 bouton. Un qui me permet d'afficher une des feuilles. l'autre bouton affiche l'autre feuille.
Mais voila comment je peux faire en sorte d'envoyer WsDAta et WsClient dans ce userform ? En évitant l'utilisation des variables global.
Il doit bien y avoir une façon de faire ça non ? Les gens qui ont conçu les userform ce sont bien dit que ça devrait être utile quand même ?

heu bonjour
c'est tres simple
exemple

Code:

---

1 2 3 4

with userform1 .show 0 .tag=WSDATA & ":" & WSCLIENT end with

---

et dans le click de chaque bouton
'pour le 1 er

Code:

---

sheets(split(me.tag,":")(0)).activate

---

pour le 2 em

Code:

---

sheets(split(me.tag,":")(1)).activate

---

;)

Je ne connais pas tag mais je vais me renseigné la dessus.
Par contre il semblerais que tu utilise WSDATA et WSCLIENT comme étant les nom des feuilles. C'est pas vraiment le cas puisqu'il s'agit de variable de type worksheets. WSDATA représante un objet et non pas un string. Du coup je suis pas sur que ça marche toujours ta solution

re
si Wsdata est une variable elle injecte sa valeur et non son nom

exemple

Code:

---

1 2 3 4 5 6 7 8

le sheets actif s'appeile "toto" et l'autre s'appelle "grosminet" dim Wsdata as string ,Wsclient as string Wsdata =activesheet.name Wsclient=sheets("grosminet").name with userform1 .show 0 .tag=Wsdata &":" & Wsclient end with

---

dans le tag tu aura "toto:grosminet"

tu peut aussi si les noms ne change pas les mettres en dur

Code:

---

.tag="toto:grosminet"

---

ou bien encore si c'est bien leur noms dans les parenthezes (voir capture)

Code:

---

.tag=sheets("toto").name & ":" & sheets("grosminet").name

---

ou meme encore utiliser les object sheets par leur noms de base ( ils faut qu'il correspondent )
en l'occurence ici tu aura "toto:grosminet"

Code:

---

.tag=Feuil1.name & ":" & Feuil3.name

---

voir capture
Pièce jointe 190225

Bonjour,

Une autre piste. Deux variables déclarées Public en tête du module de l'UserForm de cette façon (ici, avec le code attaché à chaque bouton pour l'activation des feuilles) :

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Public WsData As Worksheet Public WsClient As Worksheet   Private Sub CommandButton1_Click() WsData.Activate End Sub   Private Sub CommandButton2_Click() WsClient.Activate End Sub

---

Les variables sont considérées comme des propriétés il faut donc utiliser le point.
Pour le test, dans un module standard, affectation des variables puis affichage de l'UserForm :

Code:

---

1 2 3 4 5 6 7 8

Sub Test()   Set UserForm1.WsData = Worksheets("Feuil1") Set UserForm1.WsClient = Worksheets("Feuil2") UserForm1.Show   End Sub

---

Citation:

---

Envoyé par Thomas_C_Moi

...
Dans ma macro j'ai 2 variables. WsData et WsClient. Ce sont des variables worksheet.
Dans mon userform j'ai 2 bouton. Un qui me permet d'afficher une des feuilles. l'autre bouton affiche l'autre feuille.
Mais voila comment je peux faire en sorte d'envoyer WsDAta et WsClient dans ce userform ?....

---

Bonjour,

tu n'as qu'as utilisé le principe donné par These ... tu définit tu en haut du code de ton userform une variable de type worksheet ...


ensuite sur action sur l'un ou l'autre des deux boutons tu réaffecte cet objet sh ..

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24

Option explicit Dim sh as workSheet '(...)   Sub cbWsData_Clic set sh = WSData majAffichage end sub   Sub cbWsClient_Clic set sh = WsClient maJAffichage end sub   ' ' Procédure mise à jour affichage ' Sub majAffichage if sh is Nothing then exit sub ' évite erreur si feuille non sélectionnée TextBox1.value = sh.range("A2") ' par exemple affichage d'une cellule TextBox2.value = sh.Name ' par exemple affichage de la feuille sélectionnée   end sub

---

Bonjour,
je pense que j'ai rien compris, mais en dépit, tu peut utiliser ça!

Code:

---

1 2 3 4 5 6

Private WsData As Worksheet, WsClienta As Worksheet Public Sub Charger(wsd As Worksheet, Wsc As Worksheet) Set WsData = wsd Set WsClienta = Wsc Me.Show End Sub

---

et tu l’exécute comme ça

Code:

---

1 2 3

Sub test() UserForm1.Charger ActiveWorkbook.Sheets(1), ActiveWorkbook.Sheets(2) End Sub

---

Je vous remercie tous pour vos réponse. j'ai de quoi faire :lol:

patricktoulon ta solution du tag pourrais marcher mais il ce trouve que les 2 feuille ne sont pas dans le même workbook.
Donc envoyé juste le nom de la feuille ne suffis pas :(
Envoyé de nom du workbook associé a la feuille commence a être un peux compliqué quand même.
Mais je te remercie de m'avoir fait découvrir cette méthode qui me servira surement autre part.

rdurupt Si j'ai bien compris ce que tu fais, il s'agit d'une sorte de fonction GET / SET utilisé dans la programmation orienté objet.
C'est aussi intéressant. Je note

Theze ta solution me plait beaucoup. c'est assez simple à utiliser

Y a plus qu'a

Merci