Microsoft 365 fonction SI ALORS avec des feuilles active ou non

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

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 =...
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
 
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
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

  • Question Question
Microsoft 365 worksheet_change
Réponses
29
Affichages
479
  • Question Question
Microsoft 365 colorer une plage
Réponses
2
Affichages
872
Réponses
22
Affichages
3 K
Réponses
19
Affichages
2 K
Retour