appeler plusieurs feuilles par leur numéro

[pascal21]

bonsoir
question toute bête; comment appeler (selectionner)plusieurs feuilles en vba mais avec le numéro de la feuille, pas avec le nom de l'onglet
j'ai essayé worksheets( array mais j'ai une erreur de syntaxe
comment faire merci

 

[Victor21]

Re : appeler plusieurs feuilles par leur numéro

Bonsoir, Pascal21.

Ce code, issu tout brut de l'enregistreur, sélectionne les 3 feuilles concernées.

 Sheets(Array("Feuil1", "Feuil2", "Feuil3")).Select

Reste à savoir ce que tu veux faire ensuite...
🙂

 

[pascal21]

Re : appeler plusieurs feuilles par leur numéro

bonsoir
le soucis est que les onglets sont ammenés à changer de nom du coup on ne peut pas appeler avec les "" ""

 

[Victor21]

Re : appeler plusieurs feuilles par leur numéro

Re,

Le problème avec les numéros d'index Sheets(1).select est qu'il est dépendant de la position de la feuille dans ton classeur, et donc que le déplacement d'un onglet modifiera les numéros d'index.

 

[flyonets44]

Re : appeler plusieurs feuilles par leur numéro

Bonjour
Il suffit de les appeler par leur codename qui est indépendant du nom que tu donnes à chaques feuille
Sub Nomfeuille() 'identifier les feuilles d'un classeur par leur nom '
Dim Z&, Nbf As Integer,
Nbf = Worksheets.Count 'Comptage des feuilles
'IDENTIFICATION PAR LE NOM DE CODE
For Z = 1 To Nbf
Range("B" & Z + 1).Formula = Worksheets(Z).CodeName

Next
End Sub
Cordialement
Flyonets

 

[Pierrot93]

Re : appeler plusieurs feuilles par leur numéro

Bonjour à tous,

regarde ceci, ou Feuil1, Feuil2 et Feuil3 est le "codename" des feuilles en question :

Sheets(Array(Feuil1.Name, Feuil2.Name, Feuil3.Name)).Select

bonne journée
@+

 

[tototiti2008]

Re : appeler plusieurs feuilles par leur numéro

Bonjour à tous,

Ou bien simplement par leurs numéros (attention, change si on déplace les feuilles)

au passage, on efface la même plage sur toutes ces feuilles (intuition, comme ça 🙄)

    Sheets(Array(1, 3)).Select
    Range("B7:B41,F7:F41,I7:K41").Select
    Selection.ClearContents
    Sheets(1).Select

 

[Pierrot93]

Re : appeler plusieurs feuilles par leur numéro

Re,
bonjour toto🙂

il me semble bien, que même dans ce cas, le "clearcontents" ne fonctionnera que sur la feuille active...

bon après midi
@+

 

[Pierrot93]

Re : appeler plusieurs feuilles par leur numéro

Re,

Aarf, oui tu as raison toto.. c'est le "range select" qui fait tout... généralement je l'évite....

 

[Victor21]

Re : appeler plusieurs feuilles par leur numéro

Bonjour à tous🙂🙂

Il est dommage que mon voisin 🙂 n'ait pas répondu à cette question :

Reste à savoir ce que tu veux faire ensuite...

Edit : Merci, Pierrot93 🙂
Je viens d'en prendre connaissance 😡

 

[tototiti2008]

Re : appeler plusieurs feuilles par leur numéro

Re,

généralement je l'évite

Oui, moi aussi, mais comme la macro enregistrée marchait alors que ma version abrégée ne le faisait pas, bien obligé de me rapprocher de ce que l'enregistreur proposait 😉
Comme quoi les Select ne sont pas toujours à proscrire, je viens de l'apprendre également

 

[Pierrot93]

Re : appeler plusieurs feuilles par leur numéro

Re,
bonjour Victor

Il est dommage que mon voisin n'ait pas répondu à cette question :

un autre fil a été ouvert...
https://www.excel-downloads.com/thr...es-dans-plusieurs-feuilles-identiques.168592/

 

[Pierrot93]

Re : appeler plusieurs feuilles par leur numéro

Re,

Re,

Oui, moi aussi, mais comme la macro enregistrée marchait alors que ma version abrégée ne le faisait pas, bien obligé de me rapprocher de ce que l'enregistreur proposait 😉
Comme quoi les Select ne sont pas toujours à proscrire, je viens de l'apprendre également

Perso, je crois que j'opterais tout de même pour une boucle.. histoire d'éviter les "select"... tant pis si c'est plus long.. même pas sûr d'ailleurs... ..🙂