Sélectionner plusieurs feuilles Excel

Bonjour à tous,

Pouvez-vous m'aider afin d'avoir sous vba, la sélection de l'ensemble des feuilles d'un classeur sauf 5 ?

Les 5 feuilles à ne pas sélectionner se nomment : "AA", "BB", "CC", "DD", "EE".

Si cela peut aider les autres feuilles commencent toutes par la lettre "H"

Je vous remercie d'avance,

Jéjé

Bonjour

Un exemple de code

Sub ActiverFeuillesH()
    Dim ws As Worksheet

    ' Boucle à travers chaque feuille du classeur
    For Each ws In ThisWorkbook.Worksheets
        ' Vérifie si le nom de la feuille commence par "H"
        If Left(ws.Name, 1) = "H" Then
            ' Active la feuille
            ws.Activate
            ' Vous pouvez également ajouter une pause pour voir le changement
            ' Application.Wait Now + TimeValue("00:00:01") ' Pause de 1 seconde
        End If
    Next ws
End Sub

Si cela te convient passe le sujet en résolu

Crdlt

Bonjour Joco7915,

Merci pour ta réponse mais le code ne sélectionne pas l'ensemble des feuilles qui commencent par "H".

Cela sélectionne uniquement ma dernière feuille commençant par "H".

Bonjour,

Si j'ai bien compris la question est un peu différente, pour sélectionner l'ensemble des feuilles essayez ceci :

Public Sub SelectSheets()
  ' feuilles a ne pas selectionner
  Dim blackList As Variant: blackList = Array("AA", "BB", "CC", "DD")

  ' recherche
  Dim whiteList As Object: Set whiteList = CreateObject("system.collections.arraylist")
  Dim ws As Worksheet, bl As Variant, canAdd As Boolean
  For Each ws In ThisWorkbook.Worksheets
    canAdd = True
    For Each bl In blackList
      canAdd = canAdd And CStr(bl) <> ws.Name
    Next bl
    If canAdd Then whiteList.Add ws.Name
  Next ws

  ' selection
  ThisWorkbook.Worksheets(whiteList.ToArray).Select
End Sub

NB: si vous avez une erreur sur la ligne Dim whiteList As Object: Set whiteList = CreateObject("system.collections.arraylist") je pourrais vous proposer une alternative.

Impeccable merci beaucoup

Je vous en prie, bonne journée