Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Aller sur la feuille

Aller sur la feuille

12 réponses
Avatar
Didier Novarin
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
Signaler un problème avec ce contenu

10 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
1 2
Avatar
LSteph
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" a écrit dans le message de news:
%
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



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

"LSteph" a écrit dans le message de news:
Oa$
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" a écrit dans le message de
news: %
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







Avatar
LSteph
Si ton code fonctionne s'il y a 16 da n s la colonne A comme le sous-entend
ton code!
Peux tu préciser ?

"Didier Novarin" a écrit dans le message de
news:

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

"LSteph" a écrit dans le message de news:
Oa$
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" a écrit dans le message de
news: %
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











Avatar
Didier Novarin
Re, Steph
En fait dans la colonne A, de A2:AX j'ai des numéros de 1 à X,
le fait de cliquer sur une ligne, puis sur le bouton macro, je désire aller
sur la feuille correspondant au numéro
Merci
Didier

"LSteph" a écrit dans le message de news:
e$
Si ton code fonctionne s'il y a 16 da n s la colonne A comme le
sous-entend ton code!
Peux tu préciser ?

"Didier Novarin" a écrit dans le message de
news:

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

"LSteph" a écrit dans le message de news:
Oa$
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" a écrit dans le message de
news: %
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















Avatar
LSteph
..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" a écrit dans le message de
news:

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

"LSteph" a écrit dans le message de news:
Oa$
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" a écrit dans le message de
news: %
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











Avatar
LSteph
re,
Et bien chez moi ton code le fait!
Si tu es en Excel 97 et que ce bouton est collé dans la feuille
essaie ceci

sub vazi()
Activecell.select
Sheets(Range("A" & ActiveCell.Row)).activate
end sub

"Didier Novarin" a écrit dans le message de
news:

Re, Steph
En fait dans la colonne A, de A2:AX j'ai des numéros de 1 à X,
le fait de cliquer sur une ligne, puis sur le bouton macro, je désire
aller sur la feuille correspondant au numéro
Merci
Didier

"LSteph" a écrit dans le message de news:
e$
Si ton code fonctionne s'il y a 16 da n s la colonne A comme le
sous-entend ton code!
Peux tu préciser ?

"Didier Novarin" a écrit dans le message de
news:

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

"LSteph" a écrit dans le message de news:
Oa$
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" a écrit dans le message de
news: %
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



















Avatar
Didier Novarin
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" a écrit dans le message de news:

..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" a écrit dans le message de
news:

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

"LSteph" a écrit dans le message de news:
Oa$
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" a écrit dans le message de
news: %
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















Avatar
Didier Novarin
Désolé, Je suis en excel 2000
cela ne fonctionne toujours pas
Je te remercie
Didier

"Didier Novarin" a écrit dans le message de
news: %
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" a écrit dans le message de news:

..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" a écrit dans le message de
news:

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

"LSteph" a écrit dans le message de news:
Oa$
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" a écrit dans le message de
news: %
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



















Avatar
LSteph
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" a écrit dans le message de
news: %
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" a écrit dans le message de news:

..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" a écrit dans le message de
news:

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

"LSteph" a écrit dans le message de news:
Oa$
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" a écrit dans le message de
news: %
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



















Avatar
michdenis
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" a écrit dans le message de news: %
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
1 2