Selection d'une cellule des l'ouverture d'une feuille

[RONIBO]

Bonjour,

Je souhaite avoir de l'aide concernant un code, lorsque j'ouvre la feuille récapitulatif grâce à un bouton, je souhaite à l'ouverture sélectionner automatiquement la cellule B4, comme les consultations des historiques.

Cela va me permettre de remonter en haut de page automatiquement.

J'ai essayé ceci mais sans succès

Funtion FRécapitulatif()
ActiveSheet.Unprotect
Range("B4").Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End Function

Merci d'avance pour votre aide

A bientôt

 

[Guest]

Re : Selection d'une cellule des l'ouverture d'une feuille

Bonjour,

Voir du côté de Application.Goto ActiveSheet.Range("B4"), True

A+

 

[RONIBO]

Re : Selection d'une cellule des l'ouverture d'une feuille

Bonjour Hasco,

Je pense avoir trouver le code pour la feuille historique.

With Sheets("Historiques")
ThisWorkbook.Unprotect
.Unprotect
.Visible = xlSheetVisible
.Select: .Range("B4").Select
.Protect
Sheets("Gestion des prêts").Visible = xlSheetVeryHidden
ThisWorkbook.Protect
End With
Application.ScreenUpdating = True: Application.Calculation = xlCalculationAutomatic
End Function

Mais je sais pas quoi mettre au début

Tu as une idée?

 

[Guest]

Re : Selection d'une cellule des l'ouverture d'une feuille

Re,

Mais je sais pas quoi mettre au début

Moi non plus!!!???

Si c'est une réponse à la question du post#1 que tu attends alors j'ai déjà donné ma réponse, mais visiblement tu ne cherches pas à l'appliquer.

A+

 

[RONIBO]

Re : Selection d'une cellule des l'ouverture d'une feuille

Re,

Application.Goto ActiveSheet.Range("B4"), True

Je dois le mettre ou exactement ? Dans un Module?

a+

 

[Guest]

Re : Selection d'une cellule des l'ouverture d'une feuille

Re,

Franchement tu exagères!. J'ai lu pas mal de tes posts et tu es capable de savoir où placer Application.Goto. Eventuellement tu regardes dans l'aide excel. En sachant que tu peux changer ActiveSheet par n'importe qu'elle feuille.

With Sheets("Historiques")
 ThisWorkbook.Unprotect
 .Unprotect
 .Visible = xlSheetVisible
    Application.Goto .Range("B4"), True
 .Protect
 Sheets("Gestion des prêts").Visible = xlSheetVeryHidden
 ThisWorkbook.Protect
 End With

A+