Saut de feuille

Bernard_XLD

XLDnaute Barbatruc

Membre du Staff

Modérateur

• 19 Janvier 2006

• #2

Bonjour Top Gun, le forum

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

A+

Code:

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

 

Vote positif 0 Vote négatif

T

Top Gun

Guest

• 19 Janvier 2006

• #3

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

 

Vote positif 0 Vote négatif

Bernard_XLD

XLDnaute Barbatruc

Membre du Staff

Modérateur

• 19 Janvier 2006

• #4

Re

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

voir fichier

A+

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

 

Pièces jointes

• exemple_20060119171609.zip

  6.8 KB · Affichages: 14

Vote positif 0 Vote négatif

Bernard_XLD

XLDnaute Barbatruc

Membre du Staff

Modérateur

• 19 Janvier 2006

• #5

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

 

Pièces jointes

• exemple_20060119172329.zip

  6.8 KB · Affichages: 25

Vote positif 0 Vote négatif

T

Top Gun

Guest

• 20 Janvier 2006

• #6

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...)

 

Vote positif 0 Vote négatif

Bernard_XLD

XLDnaute Barbatruc

Membre du Staff

Modérateur

• 20 Janvier 2006

• #7

Bonjour

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

Code:

If Sh.Index < ThisWorkbook.Sheets.Count Then

par

Code:

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

A+

 

Vote positif 0 Vote négatif