Aller sur la feuille

Re,
alors si tu relis mon premier message:
Non! comme tu l'écris elle peut bien se nommer comme elle veut ce sera

le seizième onglet ,

'essaie ceci:

Sub vazi()
ActiveCell.Select
On Error Resume Next
Sheets(CStr(Range("A" & ActiveCell.Row))).Activate
End Sub


lSteph

"Didier Novarin" <didier.n@club-internet.fr> a écrit dans le message de
news: %2392FfO8uFHA.1032@TK2MSFTNGP12.phx.gbl...

Le code ne plante pas, il envoie la feuille sur la position de la feuille
ex : si il y a le numéro 2 dans la cellule, cela va sur la feuille qui
est en 2ème position, alors que je souhaite qu'elle sélectionne la
feuille qui s'appelle "2"

Merci
Didier


"LSteph" <lecocosteph@frite.fr> a écrit dans le message de news:
eL3tzI8uFHA.1516@TK2MSFTNGP10.phx.gbl...

..je reprécise: chez moi ton code fontionne,
sous réserve qu'un nombre entier n positif inférieur ou égal au nombre
de feuilles du classeur
sois contenu dans la colonne A sur la même ligne que la cellule active
la nème feuille du classeur est sélectionnée.
Aussi qd je dis "peux tu préciser" il y a plus d'une question:
Est-ce bien ton but? Sinon quel est-il?
Où s'arrête ton code qd il plante ? (ce qui n'est pas le cas chez moi)
Quel est le message erreur?

A+



"Didier Novarin" <didier.n@club-internet.fr> a écrit dans le message de
news: OomeBt7uFHA.3792@TK2MSFTNGP10.phx.gbl...

Bonsoir Lsteph
cela ne fonctionne pas c'est exactement comme tout à l'heure ?
Je te remercie
Didier

"LSteph" <lecocosteph@frite.fr> a écrit dans le message de news:
Oa$ntY7uFHA.3548@tk2msftngp13.phx.gbl...

Bonsoir Didier,

C'est une question?!

J'ai créé cette petite macro qui devrait me permettre de récupérer le
numéro
de la cellule active Num = ActiveCell.Value
....ici plutôt le nombre contenu dans la cellule .."

Ex : si "Num" = 16 cela devrait m'envoyer sur la feuille qui se
nomme "16"
Non! comme tu l'écris elle peut bien se nommer comme elle veut ce sera

le seizième onglet ,
soit la feuille(16)
Attention sheets peut aussi bien concerner chart que worksheet

Alors si c'est que tu veux plus court :
Sheets(Range("A" & ActiveCell.Row)).activate


lSteph


Didier Novarin" <didier.n@club-internet.fr> a écrit dans le message de
news: %23HWKCt6uFHA.464@TK2MSFTNGP15.phx.gbl...

Bonsoir
J'ai créé cette petite macro qui devrait me permettre de récupérer le
numéro de la cellule active et qui devrait m'envoyer sur la feuille
qui a ce numéro
Ex : si "Num" = 16 cela devrait m'envoyer sur la feuille qui se
nomme "16"
Je vous remercie d'avance
Didier

Sub La_fiche()
Range("A" & ActiveCell.Row).Select
Num = ActiveCell.Value
Sheets(Num).Select
End Sub

Bonjour Didier,

Adapte le nom de la feuille d'où origine tes noms de feuilles

'--------------------------------
Sub La_fiche()

With Worksheets("Feuil1") 'à déterminer
.Activate
If IsNumeric(ActiveCell) Then
If ActiveCell <> "" Then
For Each sh In Worksheets
If sh.Name = ActiveCell.Text Then
Sheets(ActiveCell.Text).Select
Exit Sub
End If
Next
End If
End If
End With

End Sub
'----------------------------------


Salutations!



"Didier Novarin" <didier.n@club-internet.fr> a écrit dans le message de
news: %23HWKCt6uFHA.464@TK2MSFTNGP15.phx.gbl...
Bonsoir
J'ai créé cette petite macro qui devrait me permettre de récupérer le
numéro
de la cellule active et qui devrait m'envoyer sur la feuille qui a ce
numéro
Ex : si "Num" = 16 cela devrait m'envoyer sur la feuille qui se nomme
"16"
Je vous remercie d'avance
Didier

Sub La_fiche()
Range("A" & ActiveCell.Row).Select
Num = ActiveCell.Value
Sheets(Num).Select
End Sub