Discussion :

[Wyrgle]

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 :

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

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 :

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

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 :

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

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