Appel d'une feuille par un numéro

E

Eric C

Guest

• 14 Octobre 2004

• #2

Bonjour le forum
Bonjour Michel

Un début de piste à développer

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Range("A1") = 1 Then
Sheets("Feuil2").Select
End If
End Sub

@ ++ Eric C

 

Vote positif 0 Vote négatif

M

Michel

Guest

• 14 Octobre 2004

• #3

Bonjour Eric C,
Ok pour la formule, mais dans mon classeur j'ai 40 feuilles, si je fais 1 ça m'envoie à la feuille 01, si je fais 2 la feuille 02 etc
Merci pour ta réponse rapide
@ plus
Michel

 

Vote positif 0 Vote négatif

E

EricS

Guest

• 14 Octobre 2004

• #4

Bonjour

essaie

Dim num As String

num = Str(Range("a1"))
num = Right(num, Len(num) - 1)
If Len(num) < 2 Then num = "0" & num

Sheets("feuil" & num).Select

A+
Eric

 

Vote positif 0 Vote négatif

H

Hervé

Guest

• 14 Octobre 2004

• #5

Bonjour

Une autre proposition si les feuilles sont ordonnées et non déplacées:

Sheets(Range("a1")).Select

salut
Hervé

 

Vote positif 0 Vote négatif

M

Michel

Guest

• 14 Octobre 2004

• #6

Bonsoir à tous,
Je vous remercie tous les trois de vos réponses rapides, les trois solutions marche impeccable.
Encore merci et @ plus
Michel

 

Vote positif 0 Vote négatif