Bonsoir a tous !

Je viens vers vous (pour la énième fois...) car j'ai besoin de vos connaissances.

J'ai créer des boutons (1 pour chaque action) sur ma feuille qui me permettent:

Soit de descendre:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
ActiveWindow.SmallScroll:=2
Soit de monter:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
ActiveWindow.SmallScroll:=-2
Soit de passer au feuillet suivant:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
ActiveSheet.Next.select
Soit de passer au feuillet précedent:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
ActiveSheet.Previous.select
Cependant, sans condition cela plante (exemple: cliquer sur le bouton précédent si pas de feuillet avant et réciproquement pour le next si pas de feuillet après.

1ere question:
Par conséquent, quelqu'un pourrait-il m'aider afin que je puisse generer ce code afin de ne pas avoir ces plantages?

exemple en francais (pour le precedent):
Sub Precedent()
If "il existe un feuillet avant " Then
ActiveSheet.Previous.select
sinon rien
End Sub

exemple en francais (pour le suivant):
Sub Suivant()
If "il existe un feuillet suivant " Then
ActiveSheet.Previous.select
sinon rien
End Sub

Sinon evidement, l'idéale serait de copier la feuille active dans la feuille suivante (mais ça je pense pouvoir le faire avec la fonction creation de macro en etudiant le code generer...je vais voir ça plus tard...).

J'ai le même probleme dans le cas de ma fonction pour descendre car il faudrait que je puisse "bloquer" la descente a la ligne 70 dans mon cas...
Je pense qu'un If..Then devrait convenir ou alors un ActiveWindow.SmallScroll:=2 "jusqu'à ligne70.
Mais bon là je sors de mes competences...

Voila.

J'espere ne pas trop en demander...Si c'est le cas n'ésitez pas à me le dire !!(je comprendrais..)

Merci d'avance.

Cordialement

Manu