Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11

Procédure ayant une feuille en paramètre

3 réponses
Avatar
Charles
Bonjour tout le monde,

J'ai une proc=E9dure qui attend une feuille en argument.=20
Quand je veux appeler ma proc=E9dure en faisant=20
Call Proc=E9dure(Nom de la feuille que je veux)=20
=E7a ne marche pas, comment faire ?=20

En esp=E9rant que l'exemple aide =E0 comprendre :

Sub Macro

Dim feuil1, feuil2 as Worksheet
Set feuil1 =3D ThisWorkbook.Worksheets ("feuil1")
Set feuil2 =3D ThisWorkbook.Worksheets ("feuil2")

Call Procedure (feuil1) --> NE MARCHE PAS
End Sub

Sachant que la proc=E9dure est ainsi

Sub Procedure (Feuille as Worksheet)


un grand merci par avance =E0 celui qui prendra le temps de=20
me lire et me venir en aide !

Charles

3 réponses

Avatar
Pierre CFI
bonjour
une histoire de passage de réf essaie tout simple
Sub Macro()

Dim feuil1, feuil2 As Worksheet
Set feuil1 = ThisWorkbook.Worksheets("feuil1")
Set feuil2 = ThisWorkbook.Worksheets("feuil2")

Procedure feuil1
End Sub


Sub Procedure(Feuille)
Feuille.Range("a1") = "rrrr"
End Sub
en plus çà marche

--
Pierre CFI
Microsoft MVP Access

Pour mieux utiliser microsoft.public.fr.access...
http://users.skynet.be/mpfa/charte.htm

"Charles" a écrit dans le message de news:
0e0501c36cb2$a1be2f00$
Bonjour tout le monde,

J'ai une procédure qui attend une feuille en argument.
Quand je veux appeler ma procédure en faisant
Call Procédure(Nom de la feuille que je veux)
ça ne marche pas, comment faire ?

En espérant que l'exemple aide à comprendre :

Sub Macro

Dim feuil1, feuil2 as Worksheet
Set feuil1 = ThisWorkbook.Worksheets ("feuil1")
Set feuil2 = ThisWorkbook.Worksheets ("feuil2")

Call Procedure (feuil1) --> NE MARCHE PAS
End Sub

Sachant que la procédure est ainsi

Sub Procedure (Feuille as Worksheet)


un grand merci par avance à celui qui prendra le temps de
me lire et me venir en aide !

Charles
Avatar
Charles
Mais comment la ligne de code
Procedure feuil1
peut-elle marcher ?

tu veux dire que le seul pb dans mon programme vient de
Call Procedure (feuil1) ?

Merci de m'éclairer.

-----Message d'origine-----
bonjour
une histoire de passage de réf essaie tout simple
Sub Macro()

Dim feuil1, feuil2 As Worksheet
Set feuil1 = ThisWorkbook.Worksheets("feuil1")
Set feuil2 = ThisWorkbook.Worksheets("feuil2")

Procedure feuil1
End Sub


Sub Procedure(Feuille)
Feuille.Range("a1") = "rrrr"
End Sub
en plus çà marche

--
Pierre CFI
Microsoft MVP Access

Pour mieux utiliser microsoft.public.fr.access...
http://users.skynet.be/mpfa/charte.htm

"Charles" a écrit dans le message
de news:

0e0501c36cb2$a1be2f00$
Bonjour tout le monde,

J'ai une procédure qui attend une feuille en argument.
Quand je veux appeler ma procédure en faisant
Call Procédure(Nom de la feuille que je veux)
ça ne marche pas, comment faire ?

En espérant que l'exemple aide à comprendre :

Sub Macro

Dim feuil1, feuil2 as Worksheet
Set feuil1 = ThisWorkbook.Worksheets ("feuil1")
Set feuil2 = ThisWorkbook.Worksheets ("feuil2")

Call Procedure (feuil1) --> NE MARCHE PAS
End Sub

Sachant que la procédure est ainsi

Sub Procedure (Feuille as Worksheet)


un grand merci par avance à celui qui prendra le temps de
me lire et me venir en aide !

Charles


.



Avatar
Pierre CFI
.../...
Call est un peu "viellot"
quand tu passes des arguments entre () ils sont ByVal
sans ,c'est ByRef , donc pas besoin de déclaration en plus
c'est pratique car c'est l'appel qui détermine le mode
--
Pierre CFI
Microsoft MVP Access

Pour mieux utiliser microsoft.public.fr.access...
http://users.skynet.be/mpfa/charte.htm

"Charles" a écrit dans le message de news:
02c801c36cb8$2d1ddd20$
Mais comment la ligne de code
Procedure feuil1
peut-elle marcher ?

tu veux dire que le seul pb dans mon programme vient de
Call Procedure (feuil1) ?

Merci de m'éclairer.

-----Message d'origine-----
bonjour
une histoire de passage de réf essaie tout simple
Sub Macro()

Dim feuil1, feuil2 As Worksheet
Set feuil1 = ThisWorkbook.Worksheets("feuil1")
Set feuil2 = ThisWorkbook.Worksheets("feuil2")

Procedure feuil1
End Sub


Sub Procedure(Feuille)
Feuille.Range("a1") = "rrrr"
End Sub
en plus çà marche

--
Pierre CFI
Microsoft MVP Access

Pour mieux utiliser microsoft.public.fr.access...
http://users.skynet.be/mpfa/charte.htm

"Charles" a écrit dans le message
de news:

0e0501c36cb2$a1be2f00$
Bonjour tout le monde,

J'ai une procédure qui attend une feuille en argument.
Quand je veux appeler ma procédure en faisant
Call Procédure(Nom de la feuille que je veux)
ça ne marche pas, comment faire ?

En espérant que l'exemple aide à comprendre :

Sub Macro

Dim feuil1, feuil2 as Worksheet
Set feuil1 = ThisWorkbook.Worksheets ("feuil1")
Set feuil2 = ThisWorkbook.Worksheets ("feuil2")

Call Procedure (feuil1) --> NE MARCHE PAS
End Sub

Sachant que la procédure est ainsi

Sub Procedure (Feuille as Worksheet)


un grand merci par avance à celui qui prendra le temps de
me lire et me venir en aide !

Charles


.