centrer une feuille sur une cellule

[grodep]

Bonjour à tous, je suis de retour parmi vous pour savoir s'il existe un moyen pour que lorsque je clike sur une feuille de mon classeur, celle ci soit automatiquement centré sur une cellule précise : j'ai sur la ligne 2 une plage de date incluant la date du jour, et je voudrais qu'a la sélection par clik sur l'onglet de cette feuille, la page soit visuellement centrée sur la date du jour.
merci pour vos avis et conseils.

 

[Pierrot93]

Re : centrer une feuille sur une cellule

Bonjour Grodep

regarde le code ci-dessous, à placer dans le module de la feuille concernée :

Option Explicit
Private Sub Worksheet_Activate()
Range("P70").Select
End Sub

bonne journée
@+

 

[Robert]

Re : centrer une feuille sur une cellule

Bonjour Grodep, Pierrot, bonjour le forum,

Pierrot désolé mais j'ai pas compris ton code là... Pourquoi P70 ?
Je propose la macro suivante :

Private Sub Worksheet_Activate() 'à l'activation de l'onglet
Dim cel As Range 'déclare la variable cel (CELlule)
 
For Each cel In Range("A2:" & Range("IV2").End(xlToLeft).Address) 'boucle sur toutes les cellules éditées cel de la ligne 2
    If cel.Value = Date Then 'condition : si la valeur de la cellule est égale à la date du jour
        cel.Select 'sélectionne la cellule
        Exit For 'sort de la boucle
    End If 'fin de la condition
Next cel 'prochaime cellule de la boucle
End Sub

 

[Pierrot93]

Re : centrer une feuille sur une cellule

Re, bonjour Robert

Aarf, très mal lu la question moi, je recherchais pas la cellule... et P70 une cellule parmi tant d'autres.... Complètement à coté.... bonne journée
@+

 

[Pierrot93]

Re : centrer une feuille sur une cellule

Re

pour me faire pardonner... une autre soloution :

Option Explicit
Private Sub Worksheet_Activate()
Dim x As Range
Set x = Range("2:2").Find(Date, , xlValues, xlWhole, , , False)
If Not x Is Nothing Then x.Select
End Sub

@+

 

[grodep]

Re : centrer une feuille sur une cellule

merci d'ores et déjà pour vos réponses, je testerai tout ça au plus vite et vous tiendrai au courant.