Discussion :

[Thomas_C_Moi]

Bonjour,

Je souhaite utilisé des userform dans kes macro que je fais. Mais a chaque fois je me trouve face a un problème. Comment faire pour envoyer des variables a mon userform ?
J'ai fait des recherches sur le net. Je suis tombé sur une solution. mettre la variable que l'on veux envoyer en PUBLIC. J'ai toujours entendu dire qu'il fallait au maximum eviter l'utilisation des variables global.
Du coup je me dit qu'il dois bien y avoir un moyen propre de faire ça non ?

Je vais donner des exemples pour faciliter le dialogue.

J'ai une macro dans un fichier excel qui s'appelle FichierMacro. Dans cette macro j'ouvre un autre fichier excel.
Je fait donc :

Code :

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

1
2
3
4
5
 
sub test()
dim WbTravail as workbook
Set WbTravail = Workbooks.Open(path)
end sub

maintenant je souhaite afficher un userform qui me propose de sélectionner un des onglets de ce nouveau workbook.
Je souhaite utiliser une listbox avec les noms de tout les onglets du workbook. l’utilisateur en sélectionne un et je le récupère.
Pour ça il faudrait que je puisse envoyer la variable WbTravail au userfom pour en recuperer la liste des onglets.
Grace a ça je pourrais lors de la fonction d'initialisation du userform initialiser la listbox
Mais voila comment faire ?

[patricktoulon]

Bonjour

non tu pourrait tout aussi bien remplir ta liste du userform dans la meme macro
exemple

apres workbooks.open......

Code :

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

1
2
3
4
userform1.show 0
for each sh in activeworkbook.worksheets
userform1.listebox1.additem sh.name
next

et pour garder le nom du classeur en memoire
tu peut faire
userform1.listebox1.tag=activeworkbook.name

ainsi si tu te ballade entre les deux classeurs
au click de la liste tu peut faire

Code :

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

workbook(listebox1.tag).sheets(listebox1.value).activate

comme tu peut le voir
pas de variable

[Thomas_C_Moi]

Ta méthode fonctionne en effet, c'est génial.

Je pensais que Listbox1 était privé et donc accessible uniquement depuis l' interrieur du Userform. Je trouve ça bizarre que ca ne le sois pas d’ailleurs puisque toute les fonctions

Code :

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

1
2
3
4
 
Private Sub UserForm_Click()
 
End Sub

sont automatiquement déclarer en privé.
Du coup j'ai pas trop bien compris a quoi on peux avoir accès ou pas dans cette histoire ^^.

ensuite la ligne ci dessous sert a passer le userform en mode non modal. Si j'ai bien compris ça permet de ne pas bloquer l’exécution du programme et donc de passer sur les lignes suivante pour remplir la listbox

Code :

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

1
2
 
userform1.show 0

Mais du coup Le programme dois bien ce mettre en pause a un moment pour attendre les résultats non ?