Discussion :

[Fabien_Gadz]

Bonjour,

J'ai besoin dans le cadre du développement d'une macro de renommer un worksheet contenant "action" dans sa nomenclature.
Si ce n'est pas possible j'aimerais à défaut sélectionner cette feuille à l'aide du .select.
En revanche, lorsque je tente de le faire à l'aide des * cela me renvoie une erreur 9. Sauriez-vous m'aider à résoudre ce problème ou à le contourner ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
Worksheets("*action*").Name = Actions

[halaster08]

Bonjour,

Les "*" ne fonctionnent qu'avec l'opérateur like.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
for each sh in thisworkbook.worksheets
if sh.name like "*action*" then ' tes actions
next sh

[Fabien_Gadz]

Génial ! Merci infiniment pour la rapidité de ta réponse, tout fonctionne parfaitement.

[Fabien_Gadz]

Bonjour,

Les "*" ne fonctionnent qu'avec l'opérateur like.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
for each sh in thisworkbook.worksheets
if sh.name like "*action*" then ' tes actions
next sh

Au temps pour moi, en utilisant l'outil de débogage il ne rentre jamais dans la boucle peu importe la valeur que je mes entre guillemets dans le "IF". Pourtant mes feuilles existent belles et bien... Cela m'empêche donc toute action sur celle contenant "action".

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
If ws.Name Like "*-action" Then
        ws.Name = "Actions"
End If

[Philippe Tulliez]

Bonjour,
Attention que l'opérateur Like est sensible à la casse.
Deux solutions, soit vous placez en tête de module Option Compare Text soit vous pouvez convertir les deux chaînes comparées en minuscule (LCase) ou majuscule (UCase)

Exemple

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 Dim sh As Worksheet
 For Each sh In ThisWorkbook.Worksheets
   If LCase(sh.Name) Like LCase("*-action") Then
     sh.Name = "Action"
   End If
 Next sh

Pourtant mes, si vous avez plus d'une feuille feuilles existent belles et bien... Cela m'empêche donc toute action sur celle contenant "action"

Petite remarque, si vous avez plus d'une feuille se terminant par "-Action", vous aurez un problème lors du Rename de la deuxième feuille et les suivantes. Il faudra plutôt utiliser Replace

Exemple 2

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Sub t()
 Dim sh As Worksheet
 For Each sh In ThisWorkbook.Worksheets
   With sh
     If LCase(.Name) Like LCase("*-action") Then ' tes actions
         .Name = Replace(LCase(.Name), LCase("-Action"), "action")
     End If
   End With
 Next sh
End Sub

[Fabien_Gadz]

Génial ! Tout fonctionne cette fois-ci merci beaucoup pour l'explication qui va avec, c'est beaucoup plus clair désormais.