Problème de paramètre

Bonjour,
j'ai le code suivant et je voudrais savoir comme je peux passé le nom de ma feuille "Effectifs" en paramètre ?

Code:

---

1 2 3 4 5

For Each c In [Effectifs!A2:C100000] If c = "" Then Exit For c = UCase(c) Next c

---

Merci de votre retour.
MamaB

Bonjour MamaB, bonjour le forum,

Pas sûr d'avoir tout compris. Essaie comme ça :

Code:

---

1 2 3 4 5 6 7 8

Dim O As Worksheet Dim C As Range   Set O = Worksheets("Effectifs") For Each C In O.Range("A2:C100000") If C = "" Then Exit For C = UCase(C) Next c

---

Bonjour mama,

(Cela me rappelle mes origines. Je mange des pâtes, moi, pas des frites :D :D :salut:)

Sérieux.

Tu peux argumenter la procédure par la feuille de travail.
Exemple

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Sub essai_arg() Call activewks(Worksheets("toto") End Sub   Sub activewks(lafeuil as Worksheet)   With lafeuil .Range("A2").Value = .[A1] End With   End Sub

---

Pratiquement, tout type de variable ou objet, du moins les plus courants, peuvent servir d'argument (Objet Range, Caractères..)

Bonne continuation.