Discussion :

[Thomas_C_Moi]

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 ?

[patricktoulon]

heu bonjour
c'est tres simple
exemple

Code :

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

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 :

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

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

pour le 2 em

Code :

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

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

[Thomas_C_Moi]

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

[patricktoulon]

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

exemple

Code :

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

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 :

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

.tag="toto:grosminet"

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

Code :

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

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

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

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

voir capture

[Theze]

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 :

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

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 :

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

1
2
3
4
5
6
7
8
 
Sub Test()
 
    Set UserForm1.WsData = Worksheets("Feuil1")
    Set UserForm1.WsClient = Worksheets("Feuil2")
    UserForm1.Show
 
End Sub

[SfJ5Rpw8]

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

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

[Invité]

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

Code Ajoute ce code dans ton UserForm! :

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

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 :

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

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

[Thomas_C_Moi]

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

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