selectionner toutes les feuilles sauf deux

Robert

XLDnaute Barbatruc

Repose en paix

• 11 Juillet 2005

• #2

Bonjour Pierre, bonjour le forum,

Cette macro devrait te satisfaire :

Public Sub feuils()
Dim Ws() As String 'déclare le tableau de variables Ws()
'boucle sur tous les onglets du classeur
For x = 1 To Sheets.Count
'condition : si le nom de l'onglet n'est ni 'Historic' ni 'Récap'
If Sheets(x).Name <> 'Historic' And Sheets(x).Name <> 'Récap' Then
ReDim Preserve Ws(x - 1) 'redimensionne le tableau de variable Ws()
Ws(x - 1) = Sheets(x).Name 'ajoute le nom de l'onglet au tableau Ws()
End If 'fin de la condition
Next x 'prochain onglet du classeur
Sheets(Ws()).Select 'sélectionne les onglets du tableau Ws()
End Sub

Cliquez pour agrandir...

 

Vote positif 0 Vote négatif

C

Creepy

XLDnaute Accro

• 11 Juillet 2005

• #3

Hello,

Bien joué Robert je cherchais la solution mais je tournais en rond !!

++

Creepy

 

Vote positif 0 Vote négatif

Robert

XLDnaute Barbatruc

Repose en paix

• 11 Juillet 2005

• #4

Bonjour Pierre, Creepy, bonjour le forum,

Creepy je t'avoue que je n'y croyais pas : Sheets(Ws()).Select.
Quand j'ai vu que ça passait j'en revenais pas...

 

Vote positif 0 Vote négatif

Hervé

XLDnaute Barbatruc

• 11 Juillet 2005

• #5

Bonsoir pierre, robert, creepy, le forum

AH OUAIS , pas mal 😱

Je stock ta combine, robert.

Merci

salut

 

Vote positif 0 Vote négatif

P

pierre

Guest

• 12 Juillet 2005

• #6

Rebonjour,

Je tenais à te remercier Robert, je n'ai pas encore testé mais je te fais confiance.

Par contre j'aimerais bien comprendre la ligne :
ReDim Preserve Ws(x - 1)

Je ne la comprends pas.

encore merci les gars.

Pierre.

 

Vote positif 0 Vote négatif

Robert

XLDnaute Barbatruc

Repose en paix

• 15 Juillet 2005

• #7

Bonjour le fil, bonjour le forum,

Désolé Pierre je n'avais pas vu ta question.
Bon voilà, quand tu déclares un tableau tu peux en fixer les limites si tu les connais. Par exemple : Dim Jour_sem(6) As String déclare le tableau Jour_sem contenant 7 valeurs (de 0 à 6) que je remplirai avec Jour_sem(0) = Lundi, Jour_sem(1) = Mardi... jusqu'à Jour_sem(6) = Dimanche.
Dans ton cas je ne savais pas à l'avance combien il y avait d'onglets. Donc, chaque fois qu'un onglet remplissait la condition, je redimensionnais le tableau avec la commande ReDim et comme la plus petite valeur d'un tableau est par défaut 0 et que ma boucle commence par 1 c'est pour ça que je faisait ReDim Ws(x-1).
Puis j'ajoutais le nom de l'onglet au tableau Ws(x - 1) = Sheets(x).Name. Preseve indique qu'il faut garder les valeurs déjà inscrites. Sans ce mot, le tableau etait redimensionné mais les anciennes valeurs étaient effacées. D'où: ReDim Preserve Ws(x-1).
J'espère que c'est suffisamment clair.
Je te conseille vivement d'utiliser l'Aide VBA qui te permet de sélectionner un mot et par la touche [F1] d'avoir souvent de bonnes explications avec parfois des exemples.

 

Vote positif 0 Vote négatif

A

Antoine

Guest

• 24 Août 2005

• #8

Ce code ne marche pas sous Excel 97.
Y a t-il une autre façon de faire ?
Merci

 

Vote positif 0 Vote négatif