Discussion :

[GUNNM45]

Bonjour à tous.
Je dois asurer la maintenance d'un script VBA sous excel contenant plus de 20 feuilles.
Sur la premiere page, il y a des boutons pour acceder rapidement aux autres feuilles.
Le code d'un des bouton est le suivant:

Code :

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

1
2
3
4
5
6
Sub Feuille_2()
    Call build
    Workbooks(page).Activate
    Sheets(2).Activate
    Range("A1").Select
End Sub

Et pour la fonction build :

Code :

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

1
2
3
Sub build()
    page= ActiveWorkbook.Name
End Sub

Voila ma question:
Dans la fonction build(), la page courante (donc la page d'accueil) est activée, puis dans le code du bouton feuille_2, la feuille n°2 est activée.
Je me demande si cela peux être utile? Et dans quels cas?
Cela a un sens d'activer 2 feuilles, ou est-ce que seule la dernière feuille activée sera active?
"Active" veut-il dire "visible" ou cela permet-il d'autres fonctions? Comme autoriser des calculs entre ces feuilles, par exemple?

Pour infos, la variable 'page' est utilisée dans du code appelée par d'autres boutons toujours sur la page d'accueil, de cette façon:

Code :

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

1
2
    Workbooks(page).Activate
    Sheets(14).Activate

C'est la raison de ma question, qu'est ce que cela signifie, est-ce que je peux enlever cette ligne ( Workbooks(page).Activate ) ?

[zazaraignée]

si tu veux une fonction qui retourne une valeur - une vraie fonction, quoi - il faut que tu déclares Function et non Sub... et que tu déclares une valeur de retour

Code :

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

1
2
3
Function NomPage() As String
    NomPage = ActiveWorkbook.Name
End Function

Mais ça ne fait aucun sens (de l'anglicisme it doesn't make any sence) puisque ton code demande d'activer le 'ActiveWorkbook' ! Je me demande si tu réalises que ActiveWorkbook fait référence au classeur actif.

De plus, si tu veux activer un onglet (feuille de calcul) en particulier, tu dois utiliser la collection Worksheets (ou la collection Sheet)s.

Code :

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

Workheet(1).Select

Tu aurais intérêt à consulter les tutoriels VBA

[GUNNM45]

Merci du conseil,
En fait, ce code a été codé par d'autres, des scientifiques, et il est suivit de 9 mo (!!) de code VBA.
Donc avant de le modifier, je verifie si ces choses n'ont pas un sens caché que je n'ai pas vus.

Workheet(1).Select
Ca fait quoi? La même chose que : Sheets(1).Activate ?

Pour ce qui est de l'utilisation des fonctions, je connais, mais j'ai copié le code tel que je l'ai trouvé. J'optimiserais (façon de parler) plus tard, je cherche juste à comprendre pour le moment.

Donc à ma question : cela peux-il être utile? Et dans quels cas? Pour toi la réponse est non?

De plus, si tu veux activer un onglet (feuille de calcul) en particulier, tu dois utiliser la collection Worksheets (ou la collection Sheet)s.

Ce n'est pas ce qui est fait dans :
Sheets(2).Activate ?
Par "collection", tu veux parler des méthodes employées par Sheet ?
Donc 'Activate' n'en ai pas une, mais 'select' oui?
Escuses moi de reposer les mêmes questions, mais il me semble que tu n'y as pas vraiment répondu, ou je n'ai pas vraiment compris, ce qui est très possible.
Merci beaucoup de ton aide.

[GUNNM45]

Petit up, car même si les remarques de zazaraignée m'ont confirmées ce que je pensais, je n'ai pas vraiment eu de réponse à mes questions,

zazaraignée si tu passes par là... Ou quelqu'un d'autre, svp.