Selectionner plusieurs feuilles avec VBA

Fermé

Vba
Feuille

Tessel75 - Modifié par Tessel75 le 29/05/2013 à 22:05
Tessel75 - 30 mai 2013 à 01:01

Bonjour,
Quelle est l'expression dans VBA pour sélectionner plusieurs feuilles sans les nommer toutes mais par une expression du type "Select (Feuille_n à feuille_m)", "n" et "m" étant les index.
De même pour le copier/coller, comment exprimer le "Array (Feuille_n à feuille_m)" par le même moyen.
En utilisant l'assistant de rédaction des macros de MS, il me nomme toutes les feuilles, ce qui empêche la mise en forme paramétrée de la fonction que je cherche à écrire.
Avec tous mes remerciements pour vos réponses.

A voir également:

Sélectionner plusieurs feuilles excel vba
Liste déroulante excel - Guide
Formule excel - Guide
Fusionner plusieurs feuilles excel en une seule - Guide
Formule excel pour additionner plusieurs cellules - Guide
Si et excel - Guide

4 réponses

Réponse 1 / 4

Patrice33740 Messages postés 8556 Date d'inscription dimanche 13 juin 2010 Statut Membre Dernière intervention 2 mars 2023 1 775
29 mai 2013 à 23:00

Bonjour,

Pour sélectionner plusieurs feuilles d'après leur index, il faut utiliser un tableau, par exemple :

Sub Test()
Dim tblIndex() As Integer

'Tableau de 2 valeurs
ReDim tblIndex(1)

'Définition des 2 feuilles
tblIndex(0) = 2
tblIndex(1) = 4

'Ajouter une feuille
ReDim Preserve tblIndex(2)
tblIndex(2) = 5

Worksheets(tblIndex).Select

End Sub

Réponse 2 / 4

gbinforme Messages postés 14946 Date d'inscription lundi 18 octobre 2004 Statut Contributeur Dernière intervention 24 juin 2020 4 684
29 mai 2013 à 23:00

Bonjour,

Si tu emploies cette ligne de code :

Workbooks("classeur1").Sheets(Array("tata", "titi", "toto")).Copy

tu copies tes 3 feuilles nommées dans un nouveau classeur : est-ce ce que tu souhaites ?

Patrice33740 Messages postés 8556 Date d'inscription dimanche 13 juin 2010 Statut Membre Dernière intervention 2 mars 2023 1 775
Modifié par Patrice33740 le 29/05/2013 à 23:14

Bonjour gb

Tu as du mal lire :
« Quelle est l'expression dans VBA pour sélectionner plusieurs feuilles sans les nommer toutes mais par une expression du type "Select (Feuille_n à feuille_m)", "n" et "m" étant les index.»

Ce serait plutôt

Worksheets(Array(2, 4, 5)).Select

Cordialement
Patrice

Tessel75
29 mai 2013 à 23:29

Merci de ta suggestion, mais Patrice a raison.

Réponse 3 / 4

Tessel75
Modifié par Tessel75 le 29/05/2013 à 23:42

Merci à tous trois pour vous être pencher sur ma question!

Patrice a bien compris ma question, je veux sélectionner avec les index et non par les noms.

Pour dire très exactement les choses, j'ai un planning (plusieurs) en 53 semaines, avec la place qu'occupe chaque participant chaque demi-journée. Chaque feuille se nomme "Sem01, Sem02, Sem03, ...etc..., Sem53". Environ chaque trimestre, je veux sauvegarder la période passée pour pouvoir préparer la période correspondante de l'année suivante en basculant les semaines en question à la suite des semaines encore à venir de l'année en cours.
J'ai une procédure VBA pour exécuter cette dernière manip, et je voudrais compléter par la manip de sauvegarde que je fais aujourd'hui à la main. Mais pour cela, il faut que je puisse appeler mes feuilles par leur index et non pas par leur nom puisqu'il est changeant selon que nous sommes à la fin du printemps ou de l'automne, ou autre.
En fait l'idéal pour moi serait un appel de feuille comparable à celui des cellules ou des pavés sur le mode "Cells(l,c)" ou encore "range(cells(L1,C1),cells(L2,C2))"

Je reprends la proposition de Patrice:

'Tableau de 2 valeurs
ReDim tblIndex(1)
'Définition des 2 feuilles
tblIndex(0) = 2
tblIndex(1) = 4

Peux-tu m'expliquer un peu cette écriture?
Que signifie : "tblIndex(0) = 2" et "tblIndex(1) = 4", et comment l'intégrer dans mon code? Puis-je à l'arrivée sélectionner (appeler) mes feuilles par leur position dans le cahier (WorkBook)?
Encore merci!

Patrice33740 Messages postés 8556 Date d'inscription dimanche 13 juin 2010 Statut Membre Dernière intervention 2 mars 2023 1 775
30 mai 2013 à 00:45

Explications :

Dim tblIndex() As Integer
Permet de déclarer un tableau qui contiendra des nombres entiers

ReDim tblIndex(n)
Permet de définir la taille du tableau tblIndex de 0 à n valeurs c'est à dire qu'il peut contenir n+1 valeurs. Dans notre cas ReDim tblIndex(1) pour 2 valeurs

tblIndex(0) = 2
Permet d'affecter le nombre 2 à la première valeur du tableau tblIndex (dont l'index est 0).
Le nombre 2 correspond à l'index de la première feuille à sélectionner

tblIndex(1) = 4
Permet d'affecter le nombre 4 à la seconde valeur du tableau tblIndex (dont l'index est 1).
Le nombre 4 correspond à l'index de la seconde feuille à sélectionner

ReDim Preserve tblIndex(2)
Permet de redéfinir la taille du tableau tblIndex de 0 à 2 valeurs sans effacer les valeurs déjà contenues, c'est à dire qu'il peut contenir en plus une troisième valeur

J'espère avoir été assez clair. De toutes façons l'aide du VBA est très détaillé, il suffit de sélectionner un mot et de taper F1.

Cordialement
Patrice

Patrice33740 Messages postés 8556 Date d'inscription dimanche 13 juin 2010 Statut Membre Dernière intervention 2 mars 2023 1 775
30 mai 2013 à 00:50

PS
Worksheets(tblIndex).Select
Permet de sélectionner simultanément toutes les feuilles désignées dans le tableau tblIndex

Tessel75
30 mai 2013 à 00:56

Avant même de te lire, je veux dire t'étudier,
MERCI!
Et... Chapeau bas!

Discussions similaires

VBA : copier-coller une feuille dans un autre classeur

Import .csv dans .xls (1 .csv par feuille)

Aller chercher une valeur dans une autre feuille

Reporter valeurs checkbox cochés sur feuille VBA

vba recherchev : syntaxe pas bonne?

VBA : Copier valeur de cellules dans une autre feuilles

Discussions similaires

Newsletters