Code vba pour masquer feuilles suivant le nom Résolu/Fermé

Question

Bonjour à tous, 

Je cherche à créer une macro pour masquer des feuilles Excel si le nom de la feuille contient le mot 'add'. J'ai commencé à faire cette macro, mais je suis débutant et malheureusement elle ne passe pas....

Sub Masquer()

Application.ScreenUpdating = False

Dim i As Integer

 For i = 1 To Worksheets.Count
 
 Worksheet(i).Activate
 
    If SheetName(i) = "*" & "add" & "*" Then
    
        Sheet(i).Select
        ActiveWindow.SelectedSheet.Visible = False
        
  Next
    
 End Sub

Pour exemple le nom des feuilles à masquer: 
- "CC add1"  ou "CC add2"
- "Master aad1" ou "Maqter add2"

Toutes les feuilles contenant "add" ne servent pas et doivent être masquer pour ne pas être exporter en pdf en fait.

En vous remerciant d'avance!!

Configuration: Windows XP / Internet Explorer 6.0

eriiic · Accepted Answer

Bonjour, 

Ou bien comme ça : 
    Dim sh As Worksheet 
    For Each sh In Worksheets 
        sh.Visible = InStr(sh.Name, "add") = 0 
    Next sh 
Attention *Add* ne sera pas masqué, mettre lcase(sh.Name) si besoin 

eric

chossette9 · Answer

Bonjour, 

as-tu essayé en enlevant les guillemets autour des * dans la ligne : If SheetName(i) = "*" & "add" & "*" Then  ?

Cordialement.

Code vba pour masquer feuilles suivant le nom

2 réponses

Discussions similaires