Discussion :

[miopie]

bonjour,

voila mon probleme et que je souhaite en debut de macro supprimer toutes les feuille si presente qui ont un nom commencant par test.
j'ai fait un code mais il ne fonctionne pas

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
i = 0
For Each sh In Sheets
Select Case sh.Name
Case nom
Application.DisplayAlerts = False
sh.Delete
Application.DisplayAlerts = True
End Select
i = i + 1
nom = "test N° " & i
Next

merci d'avance pour votre aide

[tototiti2008]

Bonjour miopie,

peut-être :

Code :

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

1
2
3
4
5
6
7
For Each sh In Sheets
if sh.name like "test N° *" then
Application.DisplayAlerts = False
sh.Delete
Application.DisplayAlerts = True
End if
Next

[miopie]

trop fort ca marche impec.
je ne connaissqait pas cette syntaxe
merci pour la rapidité