Selectionner plusieurs feuilles avec VBA

Vba
Feuille

Tessel75 -
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.

Afficher la suite

A voir également:

Sélectionner plusieurs feuilles excel vba
Liste déroulante excel - Guide
Formule moyenne excel plusieurs colonnes - Guide
Word et excel gratuit - Guide
Regrouper plusieurs feuilles excel en une seule - Guide
Classer par ordre alphabétique excel plusieurs colonnes - Guide

4 réponses

Réponse 1 / 4

Patrice33740 Messages postés 8561 Date d'inscription Statut Membre Dernière intervention 1 780

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 Statut Contributeur Dernière intervention 4 725

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 8561 Date d'inscription Statut Membre Dernière intervention 1 780

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

Merci de ta suggestion, mais Patrice a raison.

Réponse 3 / 4

Tessel75

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 8561 Date d'inscription Statut Membre Dernière intervention 1 780

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 8561 Date d'inscription Statut Membre Dernière intervention 1 780

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

Tessel75

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

Votre réponse

Discussions similaires