Tester nom Onglets [RESOLU]

cathodique

XLDnaute Accro
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?
VB:
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

XLDnaute Barbatruc
Bonjour cathodique

A tester:
Code:
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

XLDnaute Accro
Bonjour cathodique

A tester:
Code:
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:D:D:D
 

mapomme

XLDnaute Barbatruc
Supporter XLD
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:
VB:
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

XLDnaute Accro
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:
VB:
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:D.

Bonne journée.;)
 

Discussions similaires


Haut Bas