Microsoft 365 Sélectionner les feuilles dont le nom contient "AAA"

[MagaliCLC]

Bonsoir,

Je recherche une formule VBA me permettant de sélectionner toutes les feuilles dont l'intitulé contient "AAA".

Merci beaucoup

 

[laurent3372]

dim sh as sheet
for each sh in worksheets
    if sh.name like "*AAA*" then
        sh.select false
    end if
next sh

 

[mapomme]

Bonjour @MagaliCLC,

Je ne vois pas de formule pouvant sélectionner des feuilles, mais une macro peut le faire:

Public Sub SelFeuillle()
Dim texte, t(), x, n&
   For Each x In ThisWorkbook.Sheets
      If LCase(x.Name) Like "*" & LCase("aaa") & "*" Then n = n + 1: ReDim Preserve t(1 To n): t(n) = x.Name
   Next
   Sheets(t).Select
End Sub

 

[MagaliCLC]

dim sh as sheet
for each sh in worksheets
    if sh.name like "*AAA*" then
        sh.select false
    end if
next sh

Bonsoir @laurent3372, merci beaucoup mais la macro ne produit aucun effet :/

 

[MagaliCLC]

Bonjour @MagaliCLC,

Je ne vois pas de formule pouvant sélectionner des feuilles, mais une macro peut le faire:

Public Sub SelFeuillle()
Dim texte, t(), x, n&
   For Each x In ThisWorkbook.Sheets
      If LCase(x.Name) Like "*" & LCase("aaa") & "*" Then n = n + 1: ReDim Preserve t(1 To n): t(n) = x.Name
   Next
   Sheets(t).Select
End Sub

Bonsoir @mapomme, merci de venir une nouvelle fois à ma rescousse
J'ai un bug sur la ligne "Sheets(t).Select" sans que je parvienne à l'expliquer.

 

[Staple1600]

Bonsoir le fil

Test OK sur mon Excel 2013

Sub SelectionFeuilles()
Dim ws As Worksheet, flag As Boolean
For Each ws In Worksheets
If ws.Name Like "*AAA*" Then
ws.Select Not flag: flag = -1
End If
Next
End Sub

 

[MagaliCLC]

Bonsoir le fil

Test OK sur mon Excel 2013

Sub SelectionFeuilles()
Dim ws As Worksheet, flag As Boolean
For Each ws In Worksheets
If ws.Name Like "*AAA*" Then
ws.Select Not flag: flag = -1
End If
Next
End Sub

Ca marche ! Merci beaucoup @Staple1600
Est-ce possible de laisser "hors-jeu" les onglets cachets ?
La macro ne fonctionne plus si j'ai des onglets"AAA" cachés.
Merci encore

 

[Staple1600]

Re

Essaies avec cette modif

Sub SelectionFeuilles_Bis()
Dim ws As Worksheet, flag As Boolean
For Each ws In Worksheets
If ws.Visible Then
If ws.Name Like "*AAA*" Then
ws.Select Not flag: flag = -1
End If
End If
Next
End Sub

 

[MagaliCLC]

Re

Essaies avec cette modif

Sub SelectionFeuilles_Bis()
Dim ws As Worksheet, flag As Boolean
For Each ws In Worksheets
If ws.Visible Then
If ws.Name Like "*AAA*" Then
ws.Select Not flag: flag = -1
End If
End If
Next
End Sub

Vous êtes un magicien !
merci beaucoup

 

[Staple1600]

Re

Je ne suis pourtant pas le fils caché de Gérard MAJAX

Juste pour ma gouverne:
Pourquoi ces triple A dans le nom de tes feuilles?
Qu'est-ce qui les motive ?