macro pour passer à la feuille suivante ou précédente

[kinel]

bonjour à tous

je recherche le moyen de passer à la feuille suivante ou précédente par le biais d'une macro

merci de votre aide

Michel

 

[natorp]

Re : macro pour passer à la feuille suivante ou précédente

Bjr Kinel

As-tu essayé l'enregistreur de macro ? ensuite tu vas voir le code dans l'éditeur VBA...

Cordialement, Gérard

 

[kinel]

Re : macro pour passer à la feuille suivante ou précédente

bjr natorp

oui j'avais bien pensé à ça mais la macro me donnera l'identification de la feuille en question et pas généralement la suivante. ce qui m'obligerait à écrire autant de macros que de feuilles
comme j'ai une centaine de feuilles ça risque de faire lourd (en écriture et en fichier)
un utilisateur du forum a peut être une commande miracle qui va juste dire "ouverture de la feuille suivante" ou "ouverture de la feuille précédente"

 

[pierrejean]

Re : macro pour passer à la feuille suivante ou précédente

Bonjour kinel

Il y aprobablemnt plus simple mais ceci devrait fonctionner

Sub f_suivante()
For n = 1 To Sheets.Count
 If Sheets(n).Name = ActiveSheet.Name Then
  If n + 1 > Sheets.Count Then
    Sheets(1).Select
    Exit Sub
  Else
    Sheets(n + 1).Select
    Exit Sub
  End If
 End If
Next
End Sub
Sub f_precedente()
For n = 1 To Sheets.Count
 If Sheets(n).Name = ActiveSheet.Name Then
  If n = 1 Then
    Sheets(Sheets.Count).Select
    Exit Sub
  Else
    Sheets(n - 1).Select
    Exit Sub
  End If
 End If
Next
End Sub

 

[kinel]

Re : macro pour passer à la feuille suivante ou précédente

Bonjour Pierrejean

le mieux est l'ennemi du bien ! ça fonctionne à merveille merci beaucoup

Michel

 

[Robert]

Re : macro pour passer à la feuille suivante ou précédente

Bonjour le fil, bonjour le forum,

plus simplement pour l'onglet suivant :

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

pour l'onglet précédent :

If ActiveSheet.Index > 1 Then ActiveSheet.Previous.Select

 

[BOISGONTIER]

Re : macro pour passer à la feuille suivante ou précédente

Bonjour,

Avec liens hypertexte

=SI(EQUIV(STXT(CELLULE("filename";B1);TROUVE("]";CELLULE("filename";B1))+1;99);Nf;0)<NBVAL(Nf);LIEN_HYPERTEXTE("#"&INDEX(Nf;EQUIV(STXT(CELLULE("filename";B1);TROUVE("]";CELLULE("filename";B1))+1;99);Nf;0)+1)&"!a1";"Suivant");"")

JB

 

[ROGER2327]

Re : macro pour passer à la feuille suivante ou précédente

Bonsoir à tous

Autre code possible :

Sub suivante()
    Sheets(1 + ActiveSheet.Index Mod Sheets.Count).Activate
End Sub

Sub précédente()
    Sheets(1 + (ActiveSheet.Index + Sheets.Count - 2) Mod Sheets.Count).Activate
End Sub

ROGER2327
#5732

Mercredi 11 Clinamen 139 (Saint Maquereau, Intercesseur - fête Suprême Quarte)
13 Germinal An CCXX, 9,3032h - morille
2012-W14-1T22:19:40Z

 

[kinel]

Re : macro pour passer à la feuille suivante ou précédente

bonjour amis du forum

merci à tous de votre aide précieuse

Michel