Appliquer un module suivant une sélection listbox

[nak]

Bonjour

Je voudrais appliquer un module suivant la sélection dans la listbox.
-j'ouvre mon fichier source (ok)
-ensuite je sélectionne mon client dans la listbox
-je valide

Mon problème c'est comment appliquer le module1 au fichier source quand je sélectionne client 1, module2 quand je sélectionne client 2...

Quelqu'un peut-il m'aider ?

Merci

 

[jeanpierre]

Re : Appliquer un module suivant une sélection listbox

Bonjour nak,

Déjà ne pas mettre 36 fois le même nom de Sub, que ce soit dans le même module ou non.

Sub toto (), Sub toto(), mais plutôt Sub toto1(), Sub toto2()(

Ensuite et selon ce que tu veux faire, appeler la sub en question avec l'index qui va bien selon tes souhaits.

Pas pu aller plus loin car je n'aime pas trop ce :

Private Sub CommandButton3_Click()
Application.Quit
End Sub

alors que j'ai plusieurs fichiers d'ouverts (que j'avais, on peut dire maintenant) et que j'ai travaillé plus ou moins longtemps dessus.

Ensuite, ton message n'est pas terminé : "quand je sélectionne client 1, module2 quand je sélectionne client 2..."

Dans le premier cas, on fait quoi, dans le second....... ?

 

[nak]

Re : Appliquer un module suivant une sélection listbox

Je suis vraiment désolé jeanpierre

je ne pensais pas faire une connerie, pardon, pardon, pardon...

J'ai changé la commande : ActiveWorkbook.Close False



Sinon je suis désolé pour les Sub mais je commence juste en VBA, j'apprends sur le tas.

Pour ma fonction je voulais dire que lorsque je sélectionne le client 1 j'applique le module 1 avec la touche Validé, je sélectionne le client 2 j'applique le module 2, etc...

Encore désolé jeanpierre...

Nak

 

[pierrejean]

Re : Appliquer un module suivant une sélection listbox

bonjour nak

Salut jeanpierre (je partage ton opinion sur Application.Quit
......mais pourquoi pas quand on est sur de ce que l'on fait)

Une solution avec macro unique (mais qui requiert les numeros de client comme parametre)
Si ce n'est pas le cas il y a surement une possibilité

 

[jeanpierre]

Re : Appliquer un module suivant une sélection listbox

Re,

Pas grave, mais des fois quand même..

Ce n'est pas le module qu'il faut appeler, mais la sub qui est dedans.

Dans ton cas, toutes tes Sub Transformation(), 1 2 3....4 peuvent être dans le même module. Donc, par exemple et pas testé.....

Private Sub CommandButton2_Click()
Unload Me
tranformation1 'et pas module1 comme vu
Unload UserForm1
End Sub

Edit : Salut à toi PierreJean (D'accord avec toi pour : "quand on est sur de ce que l'on fait", sauf si l'application doit circuler. Te dis pas la tête des collègues.........

 

[pierrejean]

Re : Appliquer un module suivant une sélection listbox

Re

Voila la version qui repere le client par son nom, et non par un numero

nota : Le module2 n'est plus utile

 

[nak]

Re : Appliquer un module suivant une sélection listbox

merci pour la solution pierrejean, comme cela je pourrais ajouter autant de clients que je veux.

et encore désolé pour ton travail jeanpierre et merci pour tes conseils

encore merci
@+