Défiler vers la première colonne

Bonjour,

Pourriez-vous me donner un code qui permettrait, à l'affichage de la feuille de défiler vers la cellule A2 (mais en ayant également la colonne B, C, D... à l'affichage). Avec un Range("A2").Select, j'atteins bien la cellule mais la colonne B n'apparaît pas forcément car sur la page avant l'activation du code on pouvait par exemple être sur la colonne Z et alors on ne voit pas la colonne B.

Merci pour votre aide.

Bonjour

En supposant que tu as une fenêtre fractionnée, essaie ce code :

ActiveWindow.ScrollColumn = 1

Bye !

Bonjour,

Merci pour la réponse rapide

Oui, c'est parce que j'ai une colonne figée que je voudrais obtenir ce comportement à chaque chargement de la page.

J'ai essayé en plaçant le code dans le code suivant

Private Sub Worksheet_Change(ByVal Target As Range)
ActiveWindow.ScrollColumn = 1
If Not Application.Intersect(Target, Range("A2")) Is Nothing And Target.Count = 1 Then
Call Prfo
End If
End Sub

mais ça ne fonctionne pas

Comment pourrais-je corriger ?

Sans ton fichier, je ne peux rien tester...

Bye !

Voici, merci

En fait, le code que je t'ai donné doit être mis à la toute fin des macros :

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Application.Intersect(Target, Range("A2")) Is Nothing And Target.Count = 1 Then
        Call Prfo
    End If
    ActiveWindow.ScrollColumn = 1
End Sub

Bye !

Merci,

Mais en fait même en le plaçant en fin de code (juste avant le End Sub) ça ne marche pas.

Sur mon PC, poutant, ça marche :

Bye !

Merci, en effet, l'erreur provenait du fait que je plaçais la commande non pas sur :

Worksheet_Activate()

mais sur

Worksheet_Change()

Merci beaucoup, c'est parfait donc.

Bon après-midi