Accès à une zone dans une autre page

Bonsoir à tous,

Grâce à un bouton, depuis ma page Accueil (Feuil1), je souhaiterai ouvrir l'onglet "Frais et estimations" (Feuil18) à la cellule P1.

De ce fait, toute la partie gauche de A à O serait déplacée et non visible sauf à déplacer la barre de défilement en bas de la page.

En gros, ce qui m'intéresse, c'est de tomber directement sur les colonnes de P à V pour faire mes saisies.

Voici le code de mon bouton :

Sub CommandButton1_Click()

With ActiveWorkbook

For i = 2 To .Sheets.Count

If .Sheets(i).Name = "Frais et estimations" Then

.Sheets(i).Visible = xlSheetVisible

.Sheets(i).Activate

Else

.Sheets(i).Visible = xlSheetHidden

End If

Next

End With

End Sub

Mais je ne sais pas comment intégrer ce bout de code : Sheets("Frais et estimations").Range("P1"). j'ai fait plusieurs essais sans succès.

Merci pour votre aide.

François

Bonjour François,

à tester,

Application.Goto Sheets("Frais et estimations").Range("P1"), Scroll:=True

Bonjour i20100,

J'ai fait plusieurs essais sans succès.

J'ai testé ton code mais je ne vois pas comment l'insérer (voir ci-dessous).

Sub CommandButton1_Click()

With ActiveWorkbook

For i = 2 To .Sheets.Count

If .Sheets(i)

.Application.Goto Sheets("Frais et estimations").Range("P1"), Scroll:=True Then

.Sheets(i).Visible = xlSheetVisible

.Sheets(i).Activate

Else

.Sheets(i).Visible = xlSheetHidden

End If

Next

End With

End Sub

Merci pour ton aide.

François

Bonjour François,,

peux-tu joindre ton fichier ?

Bonjour i20100,

Voici mon fichier en PJ.

Bonne journée.

François

re,

à tester,

Sub CommandButton1_Click()
Sheets("Frais et estimations").Visible = xlSheetVisible
Application.Goto Sheets("Frais et estimations").Range("P1"), Scroll:=True
End Sub

SUPER !

Merci encore pour ton aide.

Très bonne journée.

François