VBA ajustement affichage feuille

Bonjour à tous,

Je joins un fichier test où ma demande apparaît, il s'agit d'ajuster en VBA les barres excel.

Merci d'avance pour votre aide,

Cordialement,

Bonjour

Je te propose ma solution en feuille3

A+ François

Bonjour FanFan38,

Merci pour votre retour, et du temps passé, cependant je souhaite l'ajustement sur la feuille 2 qui contient les TCD et Segments,

Cordialement,

Bonjour à tous,

Je relance mon sujet, après quelques recherche j'ai ce code mais il n' pas l'air de fonctionné :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

ActiveSheet.ScrollArea = ActiveSheet.UsedRange.Address

End Sub

Merci pour ceux qui se pencheront sur ma problématique,

Cordialement,

Bonjour

Je mettrai plutôt

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  ActiveWindow.ScrollColumn = Target.Column
End Sub

A+ François

Bonjour Fanfan38,

Merci pour votre retour, mais ce n'est pas ce que je souhaite, je veux vraiment adapter les barres de défilement.

Je rejoins un fichier test, car le code cité précédemment fonctionne (verticalement mais pas horizontalement) à un détail prés à cause d'une formule que j'ai étendue.

Merci d'avance pour votre aide,

Cordialement,

tu remplaces ScrollColumn = Target.Column par Scrollrow = Target.row

A+ François

Bonsoir François

Merci pour votre retour,

Désolé cependant ca ne fonctionne pas, Je vais rester sur

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

ActiveSheet.ScrollArea = ActiveSheet.UsedRange.Address

End Sub

J'ai ouvert un autre post pour mettre des formules sur une plage définie afin de rendre ce code fonctionnel

Cordialement