Tester nom Onglets [RESOLU]

[cathodique]

Bonjour🙂,

Je voudrais exécuter une macro sur certaines feuilles d'un classeur à la condition que le nom de la feuille soit constitué de 2 lettres majuscules suivies de 3 chiffres. Une idée?

Sub Tst()
Dim Ws As Worksheet
    For Each Ws In Worksheets
        If Ws.Name Like "sc###" Then '**c'est ici que ça bloque
          'exécuter macro
else
'ne rien faire
        End If
    Next Ws
End Sub

Avec mes remerciements anticipés.

 

[pierrejean]

Bonjour cathodique

A tester:

Sub Tst()
Dim Ws As Worksheet
    For Each Ws In Worksheets
        If UCase(Mid(Ws.Name, 1, 2)) = Mid(Ws.Name, 1, 2) And IsNumeric(Mid(Ws.Name, 3, 3)) Then
          'exécuter macro
Else
'ne rien faire
        End If
    Next Ws
End Sub

 

[cathodique]

Bonjour cathodique

A tester:

Sub Tst()
Dim Ws As Worksheet
    For Each Ws In Worksheets
        If UCase(Mid(Ws.Name, 1, 2)) = Mid(Ws.Name, 1, 2) And IsNumeric(Mid(Ws.Name, 3, 3)) Then
          'exécuter macro
Else
'ne rien faire
        End If
    Next Ws
End Sub

Bonjour Pierrejean😉,

C'est PARFAIT.
J'essaie d'adapter sur mon fichier.

Merci beaucoup, ça me permet d'avancer😀😀😀

 

[mapomme]

Bonsoir @cathodique, @pierrejean, @BrunoM45,

Pour le fun, une autre piste (plus restrictive puisque qu'on ne considère que les majuscules de A à Z) :
L'option "Option Compare Binary" est obligatoire:

Option Compare Binary

Sub TEST()
Dim Ws As Worksheet
   For Each Ws In Worksheets
      If Ws.Name Like "[A-Z][A-Z]###" Then
          'exécuter macro
      Else
         'ne rien faire
        End If
    Next Ws
End Sub

 

[cathodique]

Bonsoir @cathodique, @pierrejean, @BrunoM45,

Pour le fun, une autre piste (plus restrictive puisque qu'on ne considère que les majuscules de A à Z) :
L'option "Option Compare Binary" est obligatoire:

Option Compare Binary

Sub TEST()
Dim Ws As Worksheet
   For Each Ws In Worksheets
      If Ws.Name Like "[A-Z][A-Z]###" Then
          'exécuter macro
      Else
         'ne rien faire
        End If
    Next Ws
End Sub

Bonjour Mapomme🙂,
Merci beaucoup. Je suis preneur de toutes solutions pour enrichir mes connaissances.
En espérant, que ma petite cervelle retienne tout😀.

Bonne journée.😉