Procedure avec variables publiques

Bonjour a tous,

J’ai une question concernant la declaration de procedure et ses variables.(je debute)

Voila ma sous-procedure qui cherche la 1ere ligne vide apres la ligne 4 :

Code:

---

1 2 3 4 5 6

Sub FirstEmptyLine() Range("A4").Select While IsEmpty(ActiveCell) = False ActiveCell.Offset(1, 0).Activate Wend End Sub

---

Elle marche pour la feuille active seulement.
Mais comment la declarer pour n’importe quelle feuille de mon classeur ?

Dans la declaration de mes variables publiques, je pense mettre un truc du genre :

Code:

---

1 2 3 4 5 6

Dim MySheet as String   Puis je lance FirstEmptyLine avec : MySheet = Feuille1 Call FirstEmptyLine(Feuille1) ‘ mon classeur comporte Feuille1, Feuille2, etc

---

Donc je ré-écris ma procedure :

Code:

---

1 2 3 4 5 6 7

Sub FirstEmptyLine(MySheet) Sheets(MySheet).Select Range("A4").Select While IsEmpty(ActiveCell) = False ActiveCell.Offset(1, 0).Activate Wend End Sub

---

Est-ce que c’est la bonne methode ?
C’est un peu lourd non ?
Je m’y perds un peu dans la déclaration de variables…

Merci pour votre aide !

Wyrgle

Ta démarche est bonne, il reste juste à poursuivre le raisonnement.
La procédure FirstEmptyLine, est utilisable en l'état dans tous les feuillets.
Une variable publique est une variables globale utilisable dans tous les modules du projet. Une variable publique (utile si tu as plusieurs modules ) ,se déclare de la façon suivante :

Code:

---

1 2	public Dim MySheet as String

---

La syntaxe suivante est incorrecte , pour 2 raisons :

Code:

---

1 2 3 4

Dim MySheet as String MySheet = Feuille1 Call FirstEmptyLine(Feuille1) ' 1 )A quoi sert la déclaration Mysheet , 2) FirstEmptyLine n'admet pas de paramétre.

---

Il faut remplacer par :

Code:

---

1 2 3 4

MySheet = "Feuille1" Call FirstEmptyLine MySheet

---

Et la procédure est une procédure avec un paramétre qu'il faut déclarer de cette façon :

Code:

---

1 2 3 4 5 6

Sub FirstEmptyLine( nom_feuillet as string ) worksheets (nom_feuillet ).Range("A4").Select While IsEmpty(ActiveCell) = False ActiveCell.Offset(1, 0).Activate Wend End Sub

---

Dans ce code , il n'y a pas besoin de variable publique ou globale , c'est ce que l'on appelle du passage de paramétre.
Codialement .