Appel d'un module par CommandButton dans un Userform

Bonjour,

Jusqu'à présent j'écrivais mon code dans mes CommandButton créés dans mon Userform.

Etant donné que le code est long, j'aimerais que lorsque je clique sur mon CommandButton, un module soit lancé.

J'ai essayé ça

Code:

---

1 2 3 4 5 6 7 8 9

Private Sub CommandButtonLigneEau_Click()   'récupération des caractéristiques générales de la buse UserForm1.LabelCalculLignePente.Caption = Sheets("RECAP").Range("W5").Value 'pente buse UserForm1.LabelCalculLigneEauDiam.Caption = Sheets("RECAP").Range("U5").Value 'diamètre buse UserForm1.LabelCalculLigneEauQ.Caption = Sheets("BUSE_PROJET").Range("J14").Value ' débit buse   'calcul de Yc avec le module1 Call Module1

---

J'obtiens le message d'erreur "erreur de compilation Variable ou procédure attendue, et non un module" ..... à priori je n'ai pas le doit d'appeler un module ?

J'ai tenté aussi une trouvaille sur un forum

Code:

---

Application.Run (Module1)

---

sans succès...

Donc, comment appeler un module dans un CommandButton_Click() ?

Merci

Bonjour

On appel pas un module, mais une routine qui est dans ce module, le nom qui est derrière le mot Sub de la routine de ce module.

Philippe

Merci Philippe, mais ça ne m'aide pas car j'ai mis dans le Module1 un Sub Module1() pour faire mes essais donc j'appelle bien la routine dans mon cas.

Pour être plus juste je repose ma question :
comment appeler une routine dans un CommandButton_Click ?

Mon code est-il faux ?

Merci

Re

Change de nom, tu ne dois pas appeler la Sub comme le nom du module.

Philippe

Problème résolu, ce que tu m'as dit m'a mis la puce à l'oreille :)

J'ai renommé la routine pour ne pas avoir le même nom que le module et ça fonctionne. A priori VBA n'a pas aimé trouver 2 éléments avec le même nom.

Merci Philippe