Discussion :

[sash6]

Bonjour,

J'essaie de lancer une macro sur plusieurs onglets. Mon problème, c'est qu'au début de la macro, l'utilisateur doit spécifier la période concernée. Voici le code, je continie avec les explications après:

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
Public Sub feuille()
 
Const Period = InputBox("Saisissez la période à consolider")
 
On Error Resume Next
Sheets("MOA").Select
If Err = 0 Then mise_en_forme
 
Sheets("MOE").Select
If Err = 0 Then mise_en_forme
 
Sheets("Opérations").Select
If Err = 0 Then mise_en_forme
 
MsgBox "Terminé", vbInformation
 
End Sub

Si je met la inputbox dans la macro mise_en_forme elle va apparaître sur chaque onglet, puis après sur chaque fichier (environ 80). Je souhaite la mettre au début et que dans mon code mise_en_forme, en évoquant Period, la periode remplit la cellule voulue. Mais tel que je l'ai fait ça ne marche pas.
SVP quelqu'un peut me donner un coup de main?

[Michel_M]

Bonjour,

Délare ta variable public

public period as...

a insérer dans un module standard en première ligne au dessus des macros

[sash6]

Ca ne marche pas, je ne peux pas déclarer la constante en public...Par contre il me dit qu'il y a une erreur de compilation et qu'une constante est requise...

[marsupilami34]

et pourquoi tu ne mettrait pas ta variable constante en parametre de ta procédure mise_en_forme du genre :

Code :

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

1
2
 
mise_en_forme(Period)

[sash6]

NIET, nada, walou Quand je lance le débogage (pas à pas détailllé) ça ne fait rien. En fait, j'ai une solution mais c'est pas terrible...Ca serait d'enregistrer la réponse de l'inputbox dans une cellule du premier fichier à consolider...mais après ça devra faire appel à cette cellule pour les autres fichiers...Je me demande si on ne peut pas "stocker" la réponse à l'intérieur du programme?!?

[sash6]

a y est j'ai trouvé! Michel t'avais la bonne intuition! Il faut faire une petite supercherie dont je suis pas sûr que les gars de Microsoft veulent qu'on fasse...
Donc déclarer mise_en_forme non en tant que sub mais function
public function mise_en_forme(Period)
dans le code feuille:

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
Public Sub feuille()
 
Dim strPeriod, strJunk As String
 
strPeriod = InputBox("Saisissez la période à consolider")
 
On Error Resume Next
Sheets("MOA").Select
If Err = 0 Then strJunk = mise_en_forme(strPeriod)
 
Sheets("MOE").Select
If Err = 0 Then strJunk = mise_en_forme(strPeriod)
 
Sheets("Opérations").Select
If Err = 0 Then strJunk = mise_en_forme(strPeriod)
 
MsgBox "Terminé", vbInformation
 
End Sub