Discussion :

[gregounnet]

Bonjour,

Je souhaiterais a partir d'un programme principal, faire appel a une fonction avec un worksheet en entree. De cette maniere je pourrais faire les modifications sur plusieurs worksheet avec une seule fonction.

Merci de me donner la bonne syntaxe

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
Dim ws1 As Worksheet
Dim ws2 As Worksheet
 
Sub Modfication(ws As Worksheet)
'modifications on ws......
End Sub
 
Sub Main()
Set ws1 = Worksheets("Feuil1")
Set ws2 = Worksheets("Feuil2")
 
Modfication (ws1)
Modfication (ws2)
 
End Sub

merci encore

[jfontaine]

si c'est une fonction que tu veux faire, il faut faire une fonction et non une procédure.

Code :

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

1
2
3
public function Modfication(ws As Worksheet)
'modifications on ws......
End Function

[zazaraignée]

si c'est une fonction que tu veux faire, il faut faire une fonction et non une procédure.

Code :

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

1
2
3
public function Modfication(ws As Worksheet)
'modifications on ws......
End Function

Je ne crois pas. Par définition, une fonction retourne une valeur. À moins que gregounet (mignon le pseudo) désire avoir une réponse du genre True si l'opération est réussie et False si ça a foiré quelquepart. Pas très parlant. Ou encore en gérant les code d'erreur... mais ça peut tout aussi bien se faire dans une procédure (sub).

[alsimbad]

tu peux essayer sous cette forme, ça marche, j'ai testé

Code :

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

1
2
3
4
5
6
7
8
9
10
Sub Modfication(ws)
Set u = Worksheets(ws)
u.Cells(1, 1) = u.Name
End Sub
 
Sub Main()
 choix = InputBox("choisir_n°_de_feuille")
 choixws = "feuil" & choix
Modfication (choixws)
End Sub

naturellement, c'est le principe, a toi de voir pour les déclarations et les erreur si la saisie n'est pas bonne dans l'inputbox

[gregounnet]

Merci a toutes et a tous de votre rapidite de reponse !

D'apres ce que vous me dite, je vais utiliser une procedure car je n'ai pas besoin de retourner une valeur.

En ce qui concerne mes procedures, j'ai une erreur quand j'appelle la procedure: Run-time error '438'. Je pense que j'ai un probleme de declaration

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
Dim ws1 As Worksheet
Dim ws2 As Worksheet 
Dim u As Worksheet 
 
Sub Modfication(ws)
Set u = Worksheets(ws)
'modifications sur u
End Sub
 
Sub Main()
 
Set ws1 = Worksheets("Feuil1")
Set ws2 = Worksheets("Feuil2")
 
Modfication(ws1)
Modfication(ws2)
 
End Sub

Merci beaucoup

[jfontaine]

J'ai dans une de mes applications, le même besoin que toi.
Mais au lieu de passer en paramètre la feuille, je passe le nom de la feuille.

[gregounnet]

Pourrais-je avoir un exemple stp ?

merci

[jfontaine]

Voila un exemple

Code :

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

1
2
3
4
5
6
7
8
9
10
 
Sub test(ByVal NomFeuille As String)
 
With Sheets(NomFeuille)
 
    'Modifications
 
End With
 
End Sub

[ouskel'n'or]

Dans un module, les déclarations sont à placer dans la macro ou bien tu les déclares en Public, auquel cas tes feuilles seront reconnues dans toute les modules de l'appli, y compris dans les userform

Code :

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

1
2
3
4
5
6
7
Public ws1 As Worksheet
Public ws2 As Worksheet 
Public u As Worksheet 
Sub Main()
Set ws1 = Worksheets("Feuil1")
Set ws2 = Worksheets("Feuil2")
...

Sinon, tu les déclares dans la macro

Code :

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

1
2
3
4
5
6
Sub Main()
Dim ws1 As Worksheet
Dim ws2 As Worksheet
Set ws1 = Worksheets("Feuil1")
Set ws2 = Worksheets("Feuil2")
...

Là l'instance ne sera reconnue que dans la sub ou la fonction que tu appelles avec ws1 ou ws2 en paramètre.
Par contre, ta syntaxe serait ok pour un userform, si tu déclarais ça en tête de la page de code d'un userform. Tes instances seraient valables dans toutes les sub de l'userform en question.
A+

Edit
Une autre erreur : Supprime les parenthèses

Code :

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

1
2
Modfication ws1
Modfication ws2

ou bien utilise Call

Code :

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

1
2
Call Modfication(ws1)
Call Modfication(ws2)

[gregounnet]

Merci a tous et a toue de votre efficacite

Pour finaliser et valider la reponse, je corrige mon code:

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
Dim ws1 As Worksheet
Dim ws2 As Worksheet 
 
Sub Modification(ws)
ws.Select
'modifications sur ws ex: Cells(1, 1) = 9
End Sub
 
Sub Main()
 
Set ws1 = Worksheets("Feuil1")
Set ws2 = Worksheets("Feuil2")
 
Modification ws1
Modification ws2
 
End Sub

A bientot