Changement d'onglet

[phi.rousseau]

Bonjour à tous

Je souhaite pouvoir passer d'un onglet au suivant sans avoir à définir dans la macro le nom de la feuille de destination.

J'ai essayé Sheets(Sheets.count +1).select

Mais ça ne marche pas

Pouvez-vous m'indiquer la synthaxe ?

Merci

 

[Tirou]

Re : Changement d'onglet

Sheets.count te donne le nombre total d'onglet. L'erreur ressortie quand tu cherches à taper plus loin est normale.

Est-ce que ceci te conviendrait?

    For i = i To Sheets.Count
        Sheets(i).Select
    Next i

 

[Efgé]

Re : Changement d'onglet

Bonjour phi.rousseau
Une proposition à metre dans le thisWorkBook
Activation de la feuille suivante au double clic de la cellule $A$1 de chaque feuille, retour à la feuille 1 si double clic dans la dernière feuille.

Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
If Target.Address = "$A$1" Then
    If Sh.Index < > Sheets.Count Then
        Sheets(Sh.Index + 1).Activate
    Else
        Sheets(1).Activate
    End If
End If
End Sub

Cordialement

EDIT Bonjour Tirou

 

[Robert]

Re : Changement d'onglet

Bonjour le fil, bonjour le forum,

Essaie comme ça :

ActiveSheet.Next.Select

ou

ActiveSheet.Next.Activate

 

[Robert]

Re : Changement d'onglet

Bonjour le fil, bonjour le forum,

Pour éviter le bug au dernier onglet, essaie plutôt comme ça :

If ActiveSheet.Index < Sheets.Count Then ActiveSheet.Next.Select

 

[Tirou]

Re : Changement d'onglet

Bonjour le fil 🙂

Efgé, j'allais proposer une solution semblable à la tienne. Je ne comprends pas ce que ta variable objet sh signifie, enfin plutôt à quel moment elle est définie... Du coup, je passais par ActiveSheet.Index

 

[Efgé]

Re : Changement d'onglet

Re , Bonjour Robert
Les macros evennementielles telle que Workbook_SheetBeforeDoubleClick ou Worksheet_BeforeDoubleClick possèdent des variables liées et prédéfinies.
Dans l'exemple tu retrouve dans les arguments : ByVal Sh As Object.
Cet objet prend en compte la feuille active car on se trouve dans un evennement dans le thisWorkBook

Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)

Cordialement

 

[phi.rousseau]

Re : Changement d'onglet

J'ai essayé la solution proposée par Robert (activesheet.next.activate)

et ça marche !!!

Merci beaucoup à tous pour vos réponses

 

[Abel]

Re : Changement d'onglet

Bonjour le fil,

La combinaison de touches "Ctrl + page down" le fait bien aussi.

Non ? C'est pas ça qu'est cherché ? Bon, je sors.


Abel.