Macro Masquer l'onglet Suivant

Pierrot93

XLDnaute Barbatruc

• 6 Janvier 2011

• #2

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
@+

 

Vote positif 0 Vote négatif

S

Softmama

XLDnaute Accro

• 6 Janvier 2011

• #3

Bonjour à vous :

Je me lance:

Code:

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 :

Code:

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

 

Vote positif 0 Vote négatif

Z

zuzul2

Guest

• 6 Janvier 2011

• #4

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é

 

Vote positif 0 Vote négatif

S

Softmama

XLDnaute Accro

• 6 Janvier 2011

• #5

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 :

Code:

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

 

Vote positif 0 Vote négatif

Z

zuzul2

Guest

• 6 Janvier 2011

• #6

Re : Re: Macro Masquer l'onglet Suivant

merci ça fonctionne

 

Vote positif 0 Vote négatif