Saut de feuille

[Top Gun]

Bonjour,

Je voudrais savoir comment faire passer automatiquement à la feuille suivante à partir du moment où je valide une donnée dans une cellule définie.
Exemple: j'utilise un tableau A1:Z30, quand je valide une donnée que je rentre en Z30 par la touche 'Enter', je veux passer à la feuille suivante, dans le même tableau et en A1.

Merci beaucoup.

 

[Bernard_XLD]

Bonjour Top Gun, le forum

un petit code événementiel fera l'affaire
à placer dans thisworkbook

A+

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
If Target.Address = Sh.Range('Z30').Address Then
If Sh.Index < ThisWorkbook.Sheets.Count Then
ThisWorkbook.Sheets(Sh.Index + 1).Select
Range('A1').Select
End If
End If
End Sub

Message édité par: yeahou, à: 19/01/2006 17:18

 

[Top Gun]

J'ai essayé ton instruction, mais, apparemment, rien ne se passe...Peut-être que je n'ai pas bien compris.

 

[Bernard_XLD]

Re

c'est un code à placer dans le module de classeur thisworkbook

voir fichier

A+

Message édité par: yeahou, à: 19/01/2006 17:21

 

[Bernard_XLD]

avec le fichier
[file name=exemple_20060119172329.zip size=6936]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/exemple_20060119172329.zip[/file]

 

[Top Gun]

Merci beaucoup pour ta réponse, le fichier fonctionne très bien.

J'avais oublié de demander le détail suivant:

J'ai 6 feuilles numérotées: 'a', 'b', 'c', 'd', 'e' et 'f'. Comment signifier au système de ne pas aller au-delà de 'f' ?

Merci beaucoup si tu peux m'éclairer. (Je commence à découvrir ce que peut être la programmation...)

 

[Bernard_XLD]

Bonjour

si f est la dernière feuille, c'est déja intégré sinon il faut modifier la ligne

If Sh.Index < ThisWorkbook.Sheets.Count Then

par

If Sh.Index < ThisWorkbook.Sheets.Count And Sh.Index < 6 Then

A+