Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Microsoft 365 fonction SI ALORS avec des feuilles active ou non

Med_007

XLDnaute Nouveau
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
 
Solution

Jacky67

XLDnaute Barbatruc
Bonjour,
Pas certain d'avoir compris le but de la manœuvre et sans classeur exemple...
Voir si c'est cela
VB:
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

XLDnaute Nouveau
Salut Jacky 67

Ta solution est bien plus simple que ce que je m'imaginai dans la tête.
Merci pour la solution
 
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…