Naviguer entre les feuilles

[Ilino]

FORUM BONJOUR
J’ai besoin de vous pour savoir comment faire pour positionner le curseur à une celluel bien déterminée a chaque fois je switch entre les feuilles
Exemple
Feuille 1 vers C1
FEUILLE 2 VERS C2
FEULLE 3 VERS b1
grazue

 

[Staple1600]

Re : Naviguer entre les feuilles

Bonjour à tous


Utiliser Application.Goto avec le Scroll sur True
(Si c'est du chinois, vite la touche F1 dans VBE )
Ne pas oublier aussi l'enregistreur de macros en faisant au préalable manuellement
Edition/Atteindre

 

[Ilino]

Re : Naviguer entre les feuilles

Bonjour à tous
(Si c'est du chinois, vite la touche F1 dans VBE

gRAZIE
MAIS .....

 

[Staple1600]

Re : Naviguer entre les feuilles

Re

J'ai rajouté une info de plus dans l'édition de mon précédent message;

Normalement tu as tout ce qu'il faut pour solutionner ta question

 

[Ilino]

Re : Naviguer entre les feuilles

RE....
Private Sub Worksheet_Activate()
Application.Goto Reference:=Worksheets("Feuil1").Range("C1"), _
scroll:=True
End Sub
alors....
GRAZIE

 

[sourcier08]

Re : Naviguer entre les feuilles

Bonjour à tous,

Staple1600, j'avais pensé à mettre, dans ThisWorkbook, un truc du genre :

Option Explicit

Private Sub Workbook_SheetActivate(ByVal Sh As Object)

If ActiveSheet.Name = Sheets(1).Name Then
    Range("C1").Select
ElseIf ActiveSheet.Name = Sheets(2).Name Then
    Range("C2").Select
ElseIf ActiveSheet.Name = Sheets(3).Name Then
    Range("B1").Select
End If

End Sub

Est-ce mieux ou pas ?

 

[Staple1600]

Re : Naviguer entre les feuilles

Bonjour

C'est pas à moi de dire si mieux ou pas mieux
C'est le demandeur qui choisira ce qui lui sied le mieux

Et comme disait l'oncle Olaf:
Qu'importe le flacon, pourvu qu'on ait l'ivresse!
ce qui dans le monde d'Excel se lit
Qu'importe la sub, pourvu que ça compile!

 

[sourcier08]

Re : Naviguer entre les feuilles

C'est sûr mais...

C'était surtout sur le côté technique. Je me demandais vraiment ce qui était le mieux.
Après, pour moi, je préfère avoir le code entier au même endroit plutôt que sur chaque feuille mais ça n'entre pas en compte dans ma question.

 

[Staple1600]

Re : Naviguer entre les feuilles

Re

Voici un autre flacon inspiré par ton code sourcier08

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Sh.Range(Choose(Sh.Index, "C1", "C2", "B1")).Select
End Sub

 

[sourcier08]

Re : Naviguer entre les feuilles

Ah bah voilà! Je crois qu'on fera difficilement plus court
Excellent celui-ci !

 

[Ilino]

Re : Naviguer entre les feuilles

Grazie sourcie et JM
A+