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
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 =...

Jacky67

XLDnaute Barbatruc
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
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
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
Salut Jacky 67

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

Discussions similaires

Statistiques des forums

Discussions
294 144
Messages
1 936 482
Membres
187 831
dernier inscrit
Stazus