Creation et appel de fonction avec parametre

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:

---

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

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

Code:

---

1 2 3

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

---

Citation:

---

Envoyé par jfontaine

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

Code:

---

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).

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

Code:

---

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

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:

---

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

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.

Pourrais-je avoir un exemple stp ?

merci

Voila un exemple

Code:

---

1 2 3 4 5 6 7 8 9 10

Sub test(ByVal NomFeuille As String)   With Sheets(NomFeuille)   'Modifications   End With   End Sub

---

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:

---

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:

---

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:

---

1 2	Modfication ws1 Modfication ws2

---

ou bien utilise Call

Code:

---

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

---

Merci a tous et a toue de votre efficacite

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

Code:

---

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