Macro Masquer l'onglet Suivant

[zuzul2]

Bonjour,
je suis a la recherche d'une macro permettant de masquer la feuille suivant la feuille source quelque soit son nom merci

 

[Pierrot93]

Re : Macro Masquer l'onglet Suivant

Bonjour,

pas tout compris moi.... un peu plus de détails ne serait pas superflu...

bon après midi
@+

 

[Softmama]

Bonjour à vous :

Je me lance:

If ActiveSheet.Index < ThisWorkbook.Sheets.Count Then Sheets(ActiveSheet.Index + 1).Select

si tu veux retourner à la feuille1 après la dernière c'est comme ceci :

If ActiveSheet.Index < ThisWorkbook.Sheets.Count Then Sheets(ActiveSheet.Index + 1).Select else Sheets(1).select

 

[zuzul2]

Re : Re: Macro Masquer l'onglet Suivant

Merci pour la réponse rapide
pour les details je réalise un facturier et j'aimerais masquer les factures qui s'enregistrent sous forme d'onglets (de feuilles) les un à la suite des autres.
donc l'objectif de la macro et de masquer la feuille créer du document source.

ps: je vais tester la ligne proposé

 

[Softmama]

Re Zuzul2,

Ha pardon, je l'ai juste sélectionnée la feuille dans la macro, moi. En fait tu voulais la masquer : il faut faire plutôt ainsi en ce cas :

Sub test()
t = ActiveSheet.Index + 1
Do While Sheets(t).Visible = False
    t = t + 1
    If t > ThisWorkbook.Sheets.Count Then Exit Sub
Loop
Sheets(t).Visible = False
End Sub

 

[zuzul2]

Re : Re: Macro Masquer l'onglet Suivant

merci ça fonctionne