Discussion :

[poulette17]

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 :

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

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 :

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

Application.Run (Module1)

sans succès...

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

Merci

[Invité]

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

[poulette17]

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

[Invité]

Re

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

Philippe

[poulette17]

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