Discussion :

[sincenono]

Bonsoir à tous,

Je voudrais utiliser une worksheets comme variable d'une procédure mais j'arrive pas à m'en resservir par la suite et surtout comment définir la feuille correspondante.

Pour illustrer voici ma procédure :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 Sub mfNomActifs(cellule As Range, feuil As Worksheets)
 
 'selectionne le bon format à copier coller
Worksheets("Sous jacents").Activate
Range("B2").Select
Selection.Copy
 
feuil.Activate
cellule.Select
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
    Application.CutCopyMode = False
 
End Sub

Et voici le code pour l'utiliser ensuite.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Sub essai()
 
Dim cellules As Range
Dim feuil As Worksheets
 
feuil = Worksheets("Performance")
Set cellules = Range("A2:A25")
 
mfNomActifs cellules, feuil
 
End Sub

Je ne sais pas où est l'erreur.
Si vous pouvez me donner un coup de main.

Merci,
Arnaud.

[drakkar_agfa]

Bonjour,

Pour contrer l'erreur, au lieu de passer en paramêtre la feuille, passe le nom:

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
19
20
21
22
23
 Sub mfNomActifs(cellule As Range, feuil As String)
 
 'selectionne le bon format à copier coller
Worksheets("Sous jacents").Activate
Range("B2").Select
Selection.Copy
 
Worksheets(feuil).Activate
cellule.Select
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
    Application.CutCopyMode = False
 
End Sub
Sub essai()
 
Dim cellules As Range
 
Set cellules = Range("A2:A25")
 
mfNomActifs cellules, "Performance"
 
End Sub

[ucfoutu]

Boinjour,

en règle générale, le "s" in fine stipule non un objet, mais une collection d'objets.
Ainsi, la collection Controls, dont chaque élément est un "Control", etc...
Worksheets est donc une collection dont chaque élément est une worksheet (sans s)
Le paramètre feuil de ta procédure se référant à une feuille et non à la collection des feuilles, il est donc à définir "as Worksheet"

[drakkar_agfa]

Merci pour ce petit résumé, en somme, Worksheets, ce sont les feuilles du classeur, et non UNE feuille?
D'où : For Each Worksheet in WorksheetS ?

Je l'utilise machinalement mais je n'ai pas vu dans le code la déclaration avec un S.

[sincenono]

Boinjour,

en règle générale, le "s" in fine stipule non un objet, mais une collection d'objets.
Ainsi, la collection Controls, dont chaque élément est un "Control", etc...
Worksheets est donc une collection dont chaque élément est une worksheet (sans s)
Le paramètre feuil de ta procédure se référant à une feuille et non à la collection des feuilles, il est donc à définir "as Worksheet"

Merci pour ce point mais ensuite comment je peux réutiliser la procédure ? notamment au niveau des déclarations de variables