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