macro pour trouver selectionner pagepar rapport a une cellule qui porte le meme nom

[pasquetp]

Bonjour à tous.

Je viens sur ce forum car j'aurai besoin de vos lumière.

J'ai un fichier avec 12 feuilles (les mois janvier- a -decembre) (le nombre de feuille va varier d'où l besoin de macro)

actuellement avec ma macro je fais sheets(10).select pour selectionner octobre

Y a t'il moyen de faire une macro qui puisse selectionner la feuille qui correspond a une cellule

ex: sheets("range("a3")).select

j'ai mis une pièce jointe avec mon code qui echoue

si vous avez des idees, je vous en serai super reconnaissant.

Merci d'avance

Pierre

 

[CHALET53]

Re : macro pour trouver selectionner pagepar rapport a une cellule qui porte le meme

Bonjour

Sub goo()

Sheets("Feuil1").Select
a = Cells(3, 1)
Sheets(a).Activate

End Sub

a+

 

[pasquetp]

Re : macro pour trouver selectionner pagepar rapport a une cellule qui porte le meme

chalet53, c'est genial. merci infiniment!!! tu m'as enlevé une sacré epine du pied. merci encore

 

[Robert]

Re : macro pour trouver selectionner pagepar rapport a une cellule qui porte le meme

Bonsoir le fil, bonsoir le forum,

Ou en simplifiant :

Sub goo()
Sheets(Sheets("Feuil1").Cells(3, 1).Value).Activate
End Sub

 

[Staple1600]

Re : macro pour trouver selectionner pagepar rapport a une cellule qui porte le meme

Bonsoir


Une autre façon

Sub a()
Application.Goto Sheets([A3].Text).[A1]
End Sub

PS: Bizarrement ton message parle de feuilles mensuelles soit (12 feuilles)
et ton fichier exemple cause de pierre et d'une feuille pierre...

 

[pasquetp]

Re : macro pour trouver selectionner pagepar rapport a une cellule qui porte le meme

merci a tous! le fichier que jai mis en ligne je me suis dit que ce serait mieux de poster un exemple tout simple. je vais proceder a lapplication sur le bon doc. merci encore!

 

[pasquetp]

Re : macro pour trouver selectionner pagepar rapport a une cellule qui porte le meme

bon ca marche. j'ai utilisé celle la Sheets(Sheets("Feuil1").Cells(3, 1).Value).Activate

encore merci pour lexcllent travail.