selectionner toutes les feuilles sauf deux

[pierre]

Bonjour à tous,

Voilà mon nouveau problème,

J'aimerais que la macro que je suis en train d'élaborer me sélectionne toutes les feuilles de mon classeur sauf deux feuilles qui ont pour nom 'Historic' et 'Récap'.

Merci à tous pour votre aide.

Amicalement.

Pierre.

 

[Robert]

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

 

[Creepy]

Hello,

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

++

Creepy

 

[Robert]

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

 

[Hervé]

Bonsoir pierre, robert, creepy, le forum

AH OUAIS , pas mal 😱

Je stock ta combine, robert.

Merci

salut

 

[pierre]

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.

 

[Robert]

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.

 

[Antoine]

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