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

laurent3372 à dit:

VB:

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

Cliquez pour agrandir...

mapomme à dit:

Bonjour @MagaliCLC,

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

VB:

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

Cliquez pour agrandir...

Staple1600 à dit:

Bonsoir le fil

Test OK sur mon Excel 2013

VB:

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

Cliquez pour agrandir...

Staple1600 à dit:

Re

Essaies avec cette modif

VB:

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

Cliquez pour agrandir...