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

natorp

XLDnaute Barbatruc

• 2 Avril 2012

• #2

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

 

Vote positif 0 Vote négatif

K

kinel

XLDnaute Occasionnel

• 2 Avril 2012

• #3

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"

 

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 2 Avril 2012

• #4

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

Bonjour kinel

Il y aprobablemnt plus simple mais ceci devrait fonctionner

Code:

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

 

Vote positif 0 Vote négatif

K

kinel

XLDnaute Occasionnel

• 2 Avril 2012

• #5

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

 

Vote positif 0 Vote négatif

Robert

XLDnaute Barbatruc

Repose en paix

• 2 Avril 2012

• #6

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

Bonjour le fil, bonjour le forum,

plus simplement pour l'onglet suivant :

Code:

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

pour l'onglet précédent :

Code:

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

 

Vote positif 0 Vote négatif

BOISGONTIER

XLDnaute Barbatruc

Repose en paix

• 2 Avril 2012

• #7

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

Bonjour,

Avec liens hypertexte

Code:

=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

 

Pièces jointes

• LiensFeuilleSuivantePrecedente.xls

  23 KB · Affichages: 125

Dernière édition: 3 Avril 2012

Vote positif 0 Vote négatif

ROGER2327

XLDnaute Barbatruc

• 3 Avril 2012

• #8

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

Bonsoir à tous

Autre code possible :

VB:

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

 

Dernière édition: 3 Avril 2012

Vote positif 0 Vote négatif

K

kinel

XLDnaute Occasionnel

• 3 Avril 2012

• #9

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

bonjour amis du forum

merci à tous de votre aide précieuse

Michel

 

Vote positif 0 Vote négatif