Erreur dans sélection de feuille

[Temjeh]

Bonjour à tous et bonne journée de paie

Faute de réponse il y a quelques jours j'ai simplifié ma question. Quelle est mon erreur:

If ActiveSheet = Sheets(1) Then
Sheets(Sheets.Count).Activate
Else
If ActiveSheet = Sheets(Sheets.Count) Then
Sheets(1).Activate
End If
End If

Merci beaucoup

Temjeh

 

[Law]

Bonsoir Temjeh, le forum,

Essaie de remplacer ton

'If ActiveSheet = Sheets(1) Then'

Par :

'If ActiveSheet.Name = 'Feuil1' Then'

(bien sûr si le nom de ta feuille n'est pas 'Feuil1', modifie le code en conséquence).

Ciao ciao !!

 

[Hervé]

salut temjeh

peut etre come ceci :

If ActiveSheet.Index = 1 Then
Sheets(Sheets.Count).Activate
Else
If ActiveSheet.Index = Sheets.Count Then
Sheets(1).Activate
End If
End If

Mais je préfère ce type de syntaxe :

Select Case ActiveSheet.Index
Case 1: Sheets(Sheets.Count).Activate
Case Sheets.Count: Sheets(1).Activate
End Select

salut

edition : bonjour law

Message édité par: hervé, à: 19/01/2006 12:07

 

[Temjeh]

Rebonjour

Mon ex est pas bon je me suis gourré. De l'aide pour celle-ci

Sous un bouton
If ActiveSheet = Sheets(1) Then
Sheets(Sheets.Count).Activate
End if

Sous un autre
If ActiveSheet = Sheets(1) Then
Sheets(Sheets.Count).Activate
End if

Temjeh

 

[Temjeh]

Merci beaucoup Law et Hervé

Je prend celui-ci pour nombre de feuille variable

Private Sub SpinButton1_SpinDown()
If ActiveSheet.Index = 1 Then
Sheets(Sheets.Count).Activate
Label1 = ActiveSheet.Name
Else
ActiveSheet.Previous.Select
Label1 = ActiveSheet.Name
End If
End Sub

Private Sub SpinButton1_SpinUp()
If ActiveSheet.Index = Sheets.Count Then
Sheets(1).Activate
Label1 = ActiveSheet.Name
Else
ActiveSheet.Next.Select
Label1 = ActiveSheet.Name
End If
End Sub

A+

Temjeh

Temjeh