Microsoft 365 fonction SI ALORS avec des feuilles active ou non

[Med_007]

Bonjour
Je souhaite masquer des feuilles si elle sont visibles en appuyant sur un bouton (macro).
Mais si elle ne sont pas visibles , une message box apparait .
Voici la macro que j'ai faite mais je n'arrive pas a la débugger :
Une erreur est à la ligne If ...

Sub U15_H_J8_undo()
'
' U15_H_J8_undo Macro
'

'
If Sheets(Array("U15H séries J8", "U15H Joker 8", "U15H résultats J8")).Visible = True Then

Sheets(Array("U15H séries J8", "U15H Joker 8", "U15H résultats J8")).Select
Sheets("U15H séries J8").Activate
ActiveWindow.SelectedSheets.Visible = False
Sheets("Choix des tableaux").Select
Range("B4").Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 10498160
.TintAndShade = 0
.PatternTintAndShade = 0
End With
Else
MsgBox "Les onglets n'existent pas"
End If
End Sub

merci de votre aide.
Je débute en VBA

 

[Jacky67]

Bonjour
Je souhaite masquer des feuilles si elle sont visibles en appuyant sur un bouton (macro).
Mais si elle ne sont pas visibles , une message box apparait .
Voici la macro que j'ai faite mais je n'arrive pas a la débugger :
Une erreur est à la ligne If ...

Sub U15_H_J8_undo()
'
' U15_H_J8_undo Macro
'

'
If Sheets(Array("U15H séries J8", "U15H Joker 8", "U15H résultats J8")).Visible = True Then

Sheets(Array("U15H séries J8", "U15H Joker 8", "U15H résultats J8")).Select
Sheets("U15H séries J8").Activate
ActiveWindow.SelectedSheets.Visible = False
Sheets("Choix des tableaux").Select
Range("B4").Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 10498160
.TintAndShade = 0
.PatternTintAndShade = 0
End With
Else
MsgBox "Les onglets n'existent pas"
End If
End Sub

merci de votre aide.
Je débute en VBA

Bonjour,
Pas certain d'avoir compris le but de la manœuvre et sans classeur exemple...
Voir si c'est cela

Sub U15_H_J8_undo()
'
' U15_H_J8_undo Macro
'
    Sheets("U15H séries J8").Visible = True
    Sheets("U15H Joker 8").Visible = False
    Sheets("U15H résultats J8").Visible = False
    With Sheets("Choix des tableaux").Range("B4").Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .Color = 10498160
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
    Sheets("U15H séries J8").Activate
End Sub

 

[Med_007]

Bonjour,
Pas certain d'avoir compris le but de la manœuvre et sans classeur exemple...
Voir si c'est cela

Sub U15_H_J8_undo()
'
' U15_H_J8_undo Macro
'
    Sheets("U15H séries J8").Visible = True
    Sheets("U15H Joker 8").Visible = False
    Sheets("U15H résultats J8").Visible = False
    With Sheets("Choix des tableaux").Range("B4").Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .Color = 10498160
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
    Sheets("U15H séries J8").Activate
End Sub

Salut Jacky 67

Ta solution est bien plus simple que ce que je m'imaginai dans la tête.
Merci pour la solution