meme cell em changeant feuille

[XC]

Bonsoir tout le monde.

Bien sur,j`ai un probleme.
Voila je voudrais en faisant un click droit souris avoir la possibilite de cliquer 'previous sheet' (feuille precedente donc) et 'next sheet' et en selectionant un des 2 choix aller sur la feuille precedente/suivante mais surtout me retrouver sur la meme cellule.

Donc si j`ai fait ce click droit en cellule J5 et que j`ai choisi'previous sheet'/'next sheet', je me retrouve en J5 de la feuille Precedente/suivante.

Cela m`aiderai bcp de pouvoir faire cela.

Merci pour votre aide

XC

 

[marco57]

Bonsoir XC et toi le Forum

Le code suivant devrait répondre à ta demande

Sub FeuilleSuivante()

Dim Adresse As String

  Adresse = ActiveCell.Address 'Enregistre les coordonnées de la cellule active
  
    ActiveSheet.Next.Select 'Sélectionne la feuille suivante
    Range(Adresse).Select 'Sélectionne la cellule suivant coordonnées en variable
    
End Sub


Sub FeuillePrécédente()

Dim Adresse As String

  Adresse = ActiveCell.Address 'Enregistre les coordonnées de la cellule active
  
    ActiveSheet.Previous.Select 'Sélectionne la feuille précédente
    Range(Adresse).Select 'Sélectionne la cellule suivant coordonnées en variable

End Sub

Bonne soirée et bonne programmation à toi

Marco

 

[XC]

Ah Marco quel bonheur tu me donnes!!! :woohoo:

Merci merci,

ca marche. Un petit point mais je vais me trouver la solution je pense ;

S`il n`y a pas de previous sheet, ca fait erreur.

Mais bon je vais chercher la solution, je vais y arriver.

Merci en tout cas pour ton aide et bon WE

XC

 

[marco57]

Bonjour XC et toi le Forum,
Je pense que le plus simple est d'ajouter une ligne avec le code
On Error Resume Next
juste avant les lignes
ActiveSheet.Next.Select
et
ActiveSheet.Previous.Select

De cette façon, tu n'auras plus d'erreur mais tu ne changeras pas de feuille.

Bonne programmation et bon WE

Marco