Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel une macro, et des sous fonctions

une macro, et des sous fonctions

14 réponses
Avatar
alain deloin
Bonjour,

Voila j'ai une macro de ce genre:

Sub boucle()
For i = 1 To 12
...
...

Sheets("DONNEES SOURCE").Select

Range("G" & 7 + i).Select
ActiveCell.Formula = "='" & nomFeuil & i & "'!D40"
Range("H" & 7 + i).Select
ActiveCell.Formula = "='" & nomFeuil & i & "'!D41"
Range("I" & 7 + i).Select
ActiveCell.Formula = "='" & nomFeuil & i & "'!D42"
...
...
Range("N" & 7 + i).Select
ActiveCell.Formula = "='" & nomFeuil & i & "'!D47"
Range("O" & 7 + i).Select
ActiveCell.Formula = "='" & nomFeuil & i & "'!D48"
Range("P" & 7 + i).Select
ActiveCell.Formula = "='" & nomFeuil & i & "'!D49"
...
...
Next i
End Sub

Et je me demandais si je pouvais plutot faire appel a un moment dans cette
macro a une sous-procedure, ou je ne sais comment on appelle ca, en lui
passant un parametre, maniere d'alleger un peu le tout, et le separer en
sous programmes? Mais je ne sais ou definir cette sous procedure... Ni
comment lui preciser qu'elle doit attendre un parametre...
Ca donnerait un truc un peu comme ca:

Sub boucle()
For i = 1 To 12
...
...
Sheets("DONNEES SOURCE").Select

SOUS-FONCTION(parametre i)
...
...
Next i
End Sub

Merci de votre aide precieuse a vous tous ;)

AD
Signaler un problème avec ce contenu

10 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
1 2
Avatar
Jacky
Bonjour Alain

----------
Nom de la procédure+ (paramètre)
Exemple:
masousprocedure(i)
Dans ce cas le nom de la procédure appelée est 'masouprocedure' et le
paramètre transmis est la valeur de i
Il peut y avoir plusieurs paramètres (i,x,y)
-----------
Dans la procédure masousprocedure
Exemple:
Sub masousprocedure(mavariable as string)
Dans ce cas mavariable aura la valeur de i
----
----
End sub

Bon courage
JJ

"alain deloin" a écrit dans le message
de news:40c18bef$0$9583$
Bonjour,

Voila j'ai une macro de ce genre:

Sub boucle()
For i = 1 To 12
...
...

Sheets("DONNEES SOURCE").Select

Range("G" & 7 + i).Select
ActiveCell.Formula = "='" & nomFeuil & i & "'!D40"
Range("H" & 7 + i).Select
ActiveCell.Formula = "='" & nomFeuil & i & "'!D41"
Range("I" & 7 + i).Select
ActiveCell.Formula = "='" & nomFeuil & i & "'!D42"
...
...
Range("N" & 7 + i).Select
ActiveCell.Formula = "='" & nomFeuil & i & "'!D47"
Range("O" & 7 + i).Select
ActiveCell.Formula = "='" & nomFeuil & i & "'!D48"
Range("P" & 7 + i).Select
ActiveCell.Formula = "='" & nomFeuil & i & "'!D49"
...
...
Next i
End Sub

Et je me demandais si je pouvais plutot faire appel a un moment dans cette
macro a une sous-procedure, ou je ne sais comment on appelle ca, en lui
passant un parametre, maniere d'alleger un peu le tout, et le separer en
sous programmes? Mais je ne sais ou definir cette sous procedure... Ni
comment lui preciser qu'elle doit attendre un parametre...
Ca donnerait un truc un peu comme ca:

Sub boucle()
For i = 1 To 12
...
...
Sheets("DONNEES SOURCE").Select

SOUS-FONCTION(parametre i)
...
...
Next i
End Sub

Merci de votre aide precieuse a vous tous ;)

AD




Avatar
alain deloin
cool,

En fait j'ai testé un petit coup, car ca coute rien, et en effet, ca va me
simplifier le code et donc la vie.. ;)
Merci.

"Jacky" a écrit dans le message de
news:
Bonjour Alain

----------
Nom de la procédure+ (paramètre)
Exemple:
masousprocedure(i)
Dans ce cas le nom de la procédure appelée est 'masouprocedure' et le
paramètre transmis est la valeur de i
Il peut y avoir plusieurs paramètres (i,x,y)
-----------
Dans la procédure masousprocedure
Exemple:
Sub masousprocedure(mavariable as string)
Dans ce cas mavariable aura la valeur de i
----
----
End sub

Bon courage
JJ

"alain deloin" a écrit dans le
message

de news:40c18bef$0$9583$
Bonjour,

Voila j'ai une macro de ce genre:

Sub boucle()
For i = 1 To 12
...
...

Sheets("DONNEES SOURCE").Select

Range("G" & 7 + i).Select
ActiveCell.Formula = "='" & nomFeuil & i & "'!D40"
Range("H" & 7 + i).Select
ActiveCell.Formula = "='" & nomFeuil & i & "'!D41"
Range("I" & 7 + i).Select
ActiveCell.Formula = "='" & nomFeuil & i & "'!D42"
...
...
Range("N" & 7 + i).Select
ActiveCell.Formula = "='" & nomFeuil & i & "'!D47"
Range("O" & 7 + i).Select
ActiveCell.Formula = "='" & nomFeuil & i & "'!D48"
Range("P" & 7 + i).Select
ActiveCell.Formula = "='" & nomFeuil & i & "'!D49"
...
...
Next i
End Sub

Et je me demandais si je pouvais plutot faire appel a un moment dans
cette


macro a une sous-procedure, ou je ne sais comment on appelle ca, en lui
passant un parametre, maniere d'alleger un peu le tout, et le separer en
sous programmes? Mais je ne sais ou definir cette sous procedure... Ni
comment lui preciser qu'elle doit attendre un parametre...
Ca donnerait un truc un peu comme ca:

Sub boucle()
For i = 1 To 12
...
...
Sheets("DONNEES SOURCE").Select

SOUS-FONCTION(parametre i)
...
...
Next i
End Sub

Merci de votre aide precieuse a vous tous ;)

AD








Avatar
Jacky
Ben temps mieux, car tu reviens deloin, Alain
;o)))
JJ

"alain deloin" a écrit dans le message
de news:40c1b643$0$15793$
cool,

En fait j'ai testé un petit coup, car ca coute rien, et en effet, ca va me
simplifier le code et donc la vie.. ;)
Merci.

"Jacky" a écrit dans le message de
news:
Bonjour Alain

----------
Nom de la procédure+ (paramètre)
Exemple:
masousprocedure(i)
Dans ce cas le nom de la procédure appelée est 'masouprocedure' et le
paramètre transmis est la valeur de i
Il peut y avoir plusieurs paramètres (i,x,y)
-----------
Dans la procédure masousprocedure
Exemple:
Sub masousprocedure(mavariable as string)
Dans ce cas mavariable aura la valeur de i
----
----
End sub

Bon courage
JJ

"alain deloin" a écrit dans le
message

de news:40c18bef$0$9583$
Bonjour,

Voila j'ai une macro de ce genre:

Sub boucle()
For i = 1 To 12
...
...

Sheets("DONNEES SOURCE").Select

Range("G" & 7 + i).Select
ActiveCell.Formula = "='" & nomFeuil & i & "'!D40"
Range("H" & 7 + i).Select
ActiveCell.Formula = "='" & nomFeuil & i & "'!D41"
Range("I" & 7 + i).Select
ActiveCell.Formula = "='" & nomFeuil & i & "'!D42"
...
...
Range("N" & 7 + i).Select
ActiveCell.Formula = "='" & nomFeuil & i & "'!D47"
Range("O" & 7 + i).Select
ActiveCell.Formula = "='" & nomFeuil & i & "'!D48"
Range("P" & 7 + i).Select
ActiveCell.Formula = "='" & nomFeuil & i & "'!D49"
...
...
Next i
End Sub

Et je me demandais si je pouvais plutot faire appel a un moment dans
cette


macro a une sous-procedure, ou je ne sais comment on appelle ca, en
lui



passant un parametre, maniere d'alleger un peu le tout, et le separer
en



sous programmes? Mais je ne sais ou definir cette sous procedure... Ni
comment lui preciser qu'elle doit attendre un parametre...
Ca donnerait un truc un peu comme ca:

Sub boucle()
For i = 1 To 12
...
...
Sheets("DONNEES SOURCE").Select

SOUS-FONCTION(parametre i)
...
...
Next i
End Sub

Merci de votre aide precieuse a vous tous ;)

AD












Avatar
alain deloin
okay bon pour une procedure qui prend un seul parametre, ca marche, c pas
trop dur....
Par contre, j'ai voulu corser un peu la chose et faire un truc dans le
genre:

Private Sub cumuls2(passei As Integer, passej As Integer)

Sheets("test").Select
Range("E" & 40 + passei).Select
patati patata
Range("E" & 40 + passej).Select
patati patata

End Sub

la declaration de la sub ne me fait pas d'erreur, mais si apres dans une
autre sub je tape

cumuls2(i,j)

Bin il me detecte tout de suite une erreur : compile error: Expected:
Et la je pige pas..

Serais-je une quiche?

AD





"Jacky" a écrit dans le message de
news:
Bonjour Alain

----------
Nom de la procédure+ (paramètre)
Exemple:
masousprocedure(i)
Dans ce cas le nom de la procédure appelée est 'masouprocedure' et le
paramètre transmis est la valeur de i
Il peut y avoir plusieurs paramètres (i,x,y)
-----------
Dans la procédure masousprocedure
Exemple:
Sub masousprocedure(mavariable as string)
Dans ce cas mavariable aura la valeur de i
----
----
End sub

Bon courage
JJ

"alain deloin" a écrit dans le
message

de news:40c18bef$0$9583$
Bonjour,

Voila j'ai une macro de ce genre:

Sub boucle()
For i = 1 To 12
...
...

Sheets("DONNEES SOURCE").Select

Range("G" & 7 + i).Select
ActiveCell.Formula = "='" & nomFeuil & i & "'!D40"
Range("H" & 7 + i).Select
ActiveCell.Formula = "='" & nomFeuil & i & "'!D41"
Range("I" & 7 + i).Select
ActiveCell.Formula = "='" & nomFeuil & i & "'!D42"
...
...
Range("N" & 7 + i).Select
ActiveCell.Formula = "='" & nomFeuil & i & "'!D47"
Range("O" & 7 + i).Select
ActiveCell.Formula = "='" & nomFeuil & i & "'!D48"
Range("P" & 7 + i).Select
ActiveCell.Formula = "='" & nomFeuil & i & "'!D49"
...
...
Next i
End Sub

Et je me demandais si je pouvais plutot faire appel a un moment dans
cette


macro a une sous-procedure, ou je ne sais comment on appelle ca, en lui
passant un parametre, maniere d'alleger un peu le tout, et le separer en
sous programmes? Mais je ne sais ou definir cette sous procedure... Ni
comment lui preciser qu'elle doit attendre un parametre...
Ca donnerait un truc un peu comme ca:

Sub boucle()
For i = 1 To 12
...
...
Sheets("DONNEES SOURCE").Select

SOUS-FONCTION(parametre i)
...
...
Next i
End Sub

Merci de votre aide precieuse a vous tous ;)

AD








Avatar
sabatier
meuh non, alain ; tu ne veux quand même pas voler le siège (pour ne pas
dire l'écharpe) de christian herbé le lorrain...et même les anglais
n'ont jamais traité jeanne d'arc de quiche, même lorsqu'elle fut grillée
à point...
jps

alain deloin a écrit:

Serais-je une quiche?



Avatar
Jacky
re....
cumuls2(i,j)
Quesaco
Donne le code qui provoque l'erreur et celui qui envoie les paramètres
Salutations
JJ

"alain deloin" a écrit dans le message
de news:40c1cebe$0$15787$
okay bon pour une procedure qui prend un seul parametre, ca marche, c pas
trop dur....
Par contre, j'ai voulu corser un peu la chose et faire un truc dans le
genre:

Private Sub cumuls2(passei As Integer, passej As Integer)

Sheets("test").Select
Range("E" & 40 + passei).Select
patati patata
Range("E" & 40 + passej).Select
patati patata

End Sub

la declaration de la sub ne me fait pas d'erreur, mais si apres dans une
autre sub je tape

cumuls2(i,j)

Bin il me detecte tout de suite une erreur : compile error: Expected: >
Et la je pige pas..

Serais-je une quiche?

AD





"Jacky" a écrit dans le message de
news:
Bonjour Alain

----------
Nom de la procédure+ (paramètre)
Exemple:
masousprocedure(i)
Dans ce cas le nom de la procédure appelée est 'masouprocedure' et le
paramètre transmis est la valeur de i
Il peut y avoir plusieurs paramètres (i,x,y)
-----------
Dans la procédure masousprocedure
Exemple:
Sub masousprocedure(mavariable as string)
Dans ce cas mavariable aura la valeur de i
----
----
End sub

Bon courage
JJ

"alain deloin" a écrit dans le
message

de news:40c18bef$0$9583$
Bonjour,

Voila j'ai une macro de ce genre:

Sub boucle()
For i = 1 To 12
...
...

Sheets("DONNEES SOURCE").Select

Range("G" & 7 + i).Select
ActiveCell.Formula = "='" & nomFeuil & i & "'!D40"
Range("H" & 7 + i).Select
ActiveCell.Formula = "='" & nomFeuil & i & "'!D41"
Range("I" & 7 + i).Select
ActiveCell.Formula = "='" & nomFeuil & i & "'!D42"
...
...
Range("N" & 7 + i).Select
ActiveCell.Formula = "='" & nomFeuil & i & "'!D47"
Range("O" & 7 + i).Select
ActiveCell.Formula = "='" & nomFeuil & i & "'!D48"
Range("P" & 7 + i).Select
ActiveCell.Formula = "='" & nomFeuil & i & "'!D49"
...
...
Next i
End Sub

Et je me demandais si je pouvais plutot faire appel a un moment dans
cette


macro a une sous-procedure, ou je ne sais comment on appelle ca, en
lui



passant un parametre, maniere d'alleger un peu le tout, et le separer
en



sous programmes? Mais je ne sais ou definir cette sous procedure... Ni
comment lui preciser qu'elle doit attendre un parametre...
Ca donnerait un truc un peu comme ca:

Sub boucle()
For i = 1 To 12
...
...
Sheets("DONNEES SOURCE").Select

SOUS-FONCTION(parametre i)
...
...
Next i
End Sub

Merci de votre aide precieuse a vous tous ;)

AD












Avatar
michdenis
Bonjour Alain,

essaie ceci : Tu passes 3 paramètres dont le nom de la feuille...

'----------------------------
Sub test()

cumuls2 "Feuil1", 10, 15

End Sub
'----------------------------

Sub cumuls2(NomFeuille As String, passei As Long, passej As Long)

With Worksheets(NomFeuille)
With .Range("E" & 40 + passei)
'patati patata
End With
With .Range("E" & 40 + passej)
'patati patata
End With
End With

End Sub
'----------------------------


Salutations!






"alain deloin" a écrit dans le message de
news:40c1cebe$0$15787$
okay bon pour une procedure qui prend un seul parametre, ca marche, c pas
trop dur....
Par contre, j'ai voulu corser un peu la chose et faire un truc dans le
genre:

Private Sub cumuls2(passei As Integer, passej As Integer)

Sheets("test").Select
Range("E" & 40 + passei).Select
patati patata
Range("E" & 40 + passej).Select
patati patata

End Sub

la declaration de la sub ne me fait pas d'erreur, mais si apres dans une
autre sub je tape

cumuls2(i,j)

Bin il me detecte tout de suite une erreur : compile error: Expected:
Et la je pige pas..

Serais-je une quiche?

AD





"Jacky" a écrit dans le message de
news:
Bonjour Alain

----------
Nom de la procédure+ (paramètre)
Exemple:
masousprocedure(i)
Dans ce cas le nom de la procédure appelée est 'masouprocedure' et le
paramètre transmis est la valeur de i
Il peut y avoir plusieurs paramètres (i,x,y)
-----------
Dans la procédure masousprocedure
Exemple:
Sub masousprocedure(mavariable as string)
Dans ce cas mavariable aura la valeur de i
----
----
End sub

Bon courage
JJ

"alain deloin" a écrit dans le
message

de news:40c18bef$0$9583$
Bonjour,

Voila j'ai une macro de ce genre:

Sub boucle()
For i = 1 To 12
...
...

Sheets("DONNEES SOURCE").Select

Range("G" & 7 + i).Select
ActiveCell.Formula = "='" & nomFeuil & i & "'!D40"
Range("H" & 7 + i).Select
ActiveCell.Formula = "='" & nomFeuil & i & "'!D41"
Range("I" & 7 + i).Select
ActiveCell.Formula = "='" & nomFeuil & i & "'!D42"
...
...
Range("N" & 7 + i).Select
ActiveCell.Formula = "='" & nomFeuil & i & "'!D47"
Range("O" & 7 + i).Select
ActiveCell.Formula = "='" & nomFeuil & i & "'!D48"
Range("P" & 7 + i).Select
ActiveCell.Formula = "='" & nomFeuil & i & "'!D49"
...
...
Next i
End Sub

Et je me demandais si je pouvais plutot faire appel a un moment dans
cette


macro a une sous-procedure, ou je ne sais comment on appelle ca, en lui
passant un parametre, maniere d'alleger un peu le tout, et le separer en
sous programmes? Mais je ne sais ou definir cette sous procedure... Ni
comment lui preciser qu'elle doit attendre un parametre...
Ca donnerait un truc un peu comme ca:

Sub boucle()
For i = 1 To 12
...
...
Sheets("DONNEES SOURCE").Select

SOUS-FONCTION(parametre i)
...
...
Next i
End Sub

Merci de votre aide precieuse a vous tous ;)

AD








Avatar
alain deloin
pour etre plus precis, ca se presente comme ceci:


Private Sub cumuls2(passei As Integer, passej As Integer)

Sheets("test").Select
Range("E" & 40 + passei).Select
patati patata
Range("E" & 40 + passej).Select
patati patata

End Sub


Sub machinchose ()

For i = 1 To 12
For j = 0 To 9
cumuls2 (i, j)
Next j
Next i

End Sub


Alors je me demande si y a pas un souci de visibilité de la variable i dans
la boucle for j...


"alain deloin" a écrit dans le message
de news:40c1cebe$0$15787$
okay bon pour une procedure qui prend un seul parametre, ca marche, c pas
trop dur....
Par contre, j'ai voulu corser un peu la chose et faire un truc dans le
genre:

Private Sub cumuls2(passei As Integer, passej As Integer)

Sheets("test").Select
Range("E" & 40 + passei).Select
patati patata
Range("E" & 40 + passej).Select
patati patata

End Sub

la declaration de la sub ne me fait pas d'erreur, mais si apres dans une
autre sub je tape

cumuls2(i,j)

Bin il me detecte tout de suite une erreur : compile error: Expected: >
Et la je pige pas..

Serais-je une quiche?

AD





"Jacky" a écrit dans le message de
news:
Bonjour Alain

----------
Nom de la procédure+ (paramètre)
Exemple:
masousprocedure(i)
Dans ce cas le nom de la procédure appelée est 'masouprocedure' et le
paramètre transmis est la valeur de i
Il peut y avoir plusieurs paramètres (i,x,y)
-----------
Dans la procédure masousprocedure
Exemple:
Sub masousprocedure(mavariable as string)
Dans ce cas mavariable aura la valeur de i
----
----
End sub

Bon courage
JJ

"alain deloin" a écrit dans le
message

de news:40c18bef$0$9583$
Bonjour,

Voila j'ai une macro de ce genre:

Sub boucle()
For i = 1 To 12
...
...

Sheets("DONNEES SOURCE").Select

Range("G" & 7 + i).Select
ActiveCell.Formula = "='" & nomFeuil & i & "'!D40"
Range("H" & 7 + i).Select
ActiveCell.Formula = "='" & nomFeuil & i & "'!D41"
Range("I" & 7 + i).Select
ActiveCell.Formula = "='" & nomFeuil & i & "'!D42"
...
...
Range("N" & 7 + i).Select
ActiveCell.Formula = "='" & nomFeuil & i & "'!D47"
Range("O" & 7 + i).Select
ActiveCell.Formula = "='" & nomFeuil & i & "'!D48"
Range("P" & 7 + i).Select
ActiveCell.Formula = "='" & nomFeuil & i & "'!D49"
...
...
Next i
End Sub

Et je me demandais si je pouvais plutot faire appel a un moment dans
cette


macro a une sous-procedure, ou je ne sais comment on appelle ca, en
lui



passant un parametre, maniere d'alleger un peu le tout, et le separer
en



sous programmes? Mais je ne sais ou definir cette sous procedure... Ni
comment lui preciser qu'elle doit attendre un parametre...
Ca donnerait un truc un peu comme ca:

Sub boucle()
For i = 1 To 12
...
...
Sheets("DONNEES SOURCE").Select

SOUS-FONCTION(parametre i)
...
...
Next i
End Sub

Merci de votre aide precieuse a vous tous ;)

AD












Avatar
alain deloin
ahah j'iame la flatterie...
Mais j'aime mieux pas m'etriper sur une macro excel, quand il fait ce beau
temps!!
T'aurais pas un tuyau?

"sabatier" a écrit dans le
message de news:
meuh non, alain ; tu ne veux quand même pas voler le siège (pour ne pas
dire l'écharpe) de christian herbé le lorrain...et même les anglais
n'ont jamais traité jeanne d'arc de quiche, même lorsqu'elle fut grillée
à point...
jps

alain deloin a écrit:

Serais-je une quiche?






Avatar
alain deloin
Bon je colle tout le code ;)

Sub boucle()

Application.ScreenUpdating = False
Const nomFeuil As String = "Mois_"

For i = 1 To 2

Sheets("TEMPLATE").Select
Sheets("TEMPLATE").Copy After:=Sheets(i + 1)
ActiveSheet.Name = nomFeuil & i
Range("A5").Select
ActiveCell.Formula = "='DONNEES SOURCE'!B" & 7 + i
Range("F5").Select
ActiveCell.Formula = "='DONNEES SOURCE'!C" & 7 + i

Sheets(nomFeuil & i).Select
For j = 0 To 9
cumuls2 (i, j) <<<< c la que ca coince... Je connais pas trop la
syntaxe pour passer plusieurs params...
Next j
Next i
Application.ScreenUpdating = True

End Sub

Private Sub cumuls2(passei As Integer, passej As Integer)
Range("E" & 40 + passej).Select
ActiveCell.Formula = "=SUM('DONNEES SOURCE'!" & Chr(Asc("G") +
passej) & "7:" & Chr(Asc("G") + passej) & (8 + passei) & ")"
End Sub




"Jacky" a écrit dans le message de
news:
re....
cumuls2(i,j)
Quesaco
Donne le code qui provoque l'erreur et celui qui envoie les paramètres
Salutations
JJ

"alain deloin" a écrit dans le
message

de news:40c1cebe$0$15787$
okay bon pour une procedure qui prend un seul parametre, ca marche, c
pas


trop dur....
Par contre, j'ai voulu corser un peu la chose et faire un truc dans le
genre:

Private Sub cumuls2(passei As Integer, passej As Integer)

Sheets("test").Select
Range("E" & 40 + passei).Select
patati patata
Range("E" & 40 + passej).Select
patati patata

End Sub

la declaration de la sub ne me fait pas d'erreur, mais si apres dans une
autre sub je tape

cumuls2(i,j)

Bin il me detecte tout de suite une erreur : compile error: Expected: > >
Et la je pige pas..

Serais-je une quiche?

AD





"Jacky" a écrit dans le message de
news:
Bonjour Alain

----------
Nom de la procédure+ (paramètre)
Exemple:
masousprocedure(i)
Dans ce cas le nom de la procédure appelée est 'masouprocedure' et le
paramètre transmis est la valeur de i
Il peut y avoir plusieurs paramètres (i,x,y)
-----------
Dans la procédure masousprocedure
Exemple:
Sub masousprocedure(mavariable as string)
Dans ce cas mavariable aura la valeur de i
----
----
End sub

Bon courage
JJ

"alain deloin" a écrit dans le
message

de news:40c18bef$0$9583$
Bonjour,

Voila j'ai une macro de ce genre:

Sub boucle()
For i = 1 To 12
...
...

Sheets("DONNEES SOURCE").Select

Range("G" & 7 + i).Select
ActiveCell.Formula = "='" & nomFeuil & i & "'!D40"
Range("H" & 7 + i).Select
ActiveCell.Formula = "='" & nomFeuil & i & "'!D41"
Range("I" & 7 + i).Select
ActiveCell.Formula = "='" & nomFeuil & i & "'!D42"
...
...
Range("N" & 7 + i).Select
ActiveCell.Formula = "='" & nomFeuil & i & "'!D47"
Range("O" & 7 + i).Select
ActiveCell.Formula = "='" & nomFeuil & i & "'!D48"
Range("P" & 7 + i).Select
ActiveCell.Formula = "='" & nomFeuil & i & "'!D49"
...
...
Next i
End Sub

Et je me demandais si je pouvais plutot faire appel a un moment dans
cette


macro a une sous-procedure, ou je ne sais comment on appelle ca, en
lui



passant un parametre, maniere d'alleger un peu le tout, et le
separer




en
sous programmes? Mais je ne sais ou definir cette sous procedure...
Ni




comment lui preciser qu'elle doit attendre un parametre...
Ca donnerait un truc un peu comme ca:

Sub boucle()
For i = 1 To 12
...
...
Sheets("DONNEES SOURCE").Select

SOUS-FONCTION(parametre i)
...
...
Next i
End Sub

Merci de votre aide precieuse a vous tous ;)

AD
















1 2