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.