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

[CodeFacile]

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 :

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

1
2
 
public Dim MySheet as String

La syntaxe suivante est incorrecte , pour 2 raisons :

Code :

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

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 :

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

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 :

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

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 .