Discussion :

[viper37]

J'ai un bouton pour lancer une macro.

La 1ere partie:

Code :

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

1
2
3
4
5
6
 
Sub creation_projet_Click()
    Application.Run "'Estimations.xlsm'!projet_new"
   indexation.Show
 
End Sub

fonctionne à merveille.

Maintenant, le code pour le formulaire "indexation":

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
25
26
27
28
29
30
 
Option Explicit
 
Private Sub CommandButton1_Click()
Call UserForm_Initialize
 
End Sub
 
Private Sub OK_Click()
Sheets("nouveau projet").Activate
Cells.Item(1, 1) = nom_projet.Text
Cells.Item(5, 2) = no_projet.Text
Cells.Item(1, 4) = client.Text
Cells.Item(1, 10) = adresse.Text
Cells.Item(2, 10) = ville.Text
Cells.Item(3, 10) = code_postal.Text
Cells.Item(4, 10) = tel.Text
Cells.Item(5, 10) = telec.Text
Cells.Item(6, 10) = email.Text
If OptionReservoir Then Cells.Item(7, 2) = "Réservoir"
If OptionPF Then Cells.Item(7, 2) = "Plate-forme"
If OptionPFA Then Cells.Item(7, 2) = "Plate-forme et abri"
Range("C10").Activate
Application.Run "'Estimations.xlsm'!indexation"
Unload Me
End Sub
 
Private Sub Cancel_Click()
Unload Me
End Sub

refuse maintenant de lancer la macro "indexation". Je ne comprends pas, tout fonctionnaire en début de semaine...

Le code du bouton est situé dans "MS Excel Objects", le code du formulaire dans "indexation", et les macros dans différents modules, tous rattachés au même fichier, Estimation (Estimations.xlsm).

Est-ce parce que j'ai un formulaire du même nom qu'une macro?

[Qwazerty]

Salut
Alors

Est-ce parce que j'ai un formulaire du même nom qu'une macro?

Quelque soit la réponse, ça n'est pas une bonne idée d'avoir ce genre de choses.
Il est préférable d'avoir des noms distincts, ne serait ce que pour repérer facilement à quoi tu fais référence dans ton code.

Code :

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

Application.Run "'Estimations.xlsm'!projet_new"

Ce genre d'appelle est reservé dans le cas ou ta Sub ou fonction se trouve dans un autre classeur. Si ta procedure est dnas un module (et déclaré public) il te suffit d'utiliser son nom, c'est tout

Code :

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

projet_new

Code :

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

1
2
3
4
Private Sub CommandButton1_Click()
Call UserForm_Initialize
 
End Sub

Que veux tu faire? UserForm_Initialize est appelé automatiquement lors du chargement du UserForm.

Code :

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

1
2
3
Sheets("nouveau projet").Activate
Cells.Item(1, 1) = nom_projet.Text
Cells.Item(5, 2) = no_projet.Text

Il vaut mieux éviter d'utiliser les Activate et select

Code :

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

1
2
3
4
5
With Thisworkbook.Sheets("nouveau projet")
   .Cells.Item(1, 1) = nom_projet.Text
   .Cells.Item(5, 2) = no_projet.Text
   '[...]
End With

++
Qwaz

[viper37]

Quelque soit la réponse, ça n'est pas une bonne idée d'avoir ce genre de choses.
Il est préférable d'avoir des noms distincts, ne serait ce que pour repérer facilement à quoi tu fais référence dans ton code.

ok, noté. merci.

Ce genre d'appelle est reservé dans le cas ou ta Sub ou fonction se trouve dans un autre classeur. Si ta procedure est dnas un module (et déclaré public) il te suffit d'utiliser son nom, c'est tout

Code :

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

projet_new

corrigé, et maintenant ça fonctionne!
ça a réglé un autre problème aussi

Code :

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

1
2
3
4
Private Sub CommandButton1_Click()
Call UserForm_Initialize
 
End Sub

Que veux tu faire? UserForm_Initialize est appelé automatiquement lors du chargement du UserForm.

C'est un bouton "recommencer" pour vider les champs dans le formulaire au cas où j'ai fait une erreur, mais je n'en était pas rendu là encore, alors le bouton ne fait rien...

Ça n'est pas urgent de toute façon, et ça se peut que le bouton disparaisse, alors je ne pose pas de question sur ça pour le moment.

Code :

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

1
2
3
Sheets("nouveau projet").Activate
Cells.Item(1, 1) = nom_projet.Text
Cells.Item(5, 2) = no_projet.Text

Il vaut mieux éviter d'utiliser les Activate et select

Code :

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

1
2
3
4
5
With Thisworkbook.Sheets("nouveau projet")
   .Cells.Item(1, 1) = nom_projet.Text
   .Cells.Item(5, 2) = no_projet.Text
   '[...]
End With

++
Qwaz

merci, j'ai tout corrigé. J'ai encore bcp d'optimisation à faire dans mon code, c'est certain.