Affichage case en haut à gauche

Salut Pantanella, le Forum

Je ne sais pas qu'elles sont les instructions que tu as dans ton bouton mais disons que pour synchroniser le "Scroll" sur la cellule active je ferai comme ceci :

Sub ScrollToActiveCell()
Dim Ligne As Integer, Colonne As Integer

Ligne = ActiveCell.Row
Colonne = ActiveCell.Column

With ActiveWindow
.ScrollRow = Ligne
.ScrollColumn = Colonne
End With
End Sub


Maintenant en imaginant qu'on veuille toujours que la Cellule active soit en Haut à Gauche en macro évènementielle çà donnerait ceci :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Ligne As Integer, Colonne As Integer

Ligne = Target.Row
Colonne = Target.Column

With ActiveWindow
.ScrollRow = Ligne
.ScrollColumn = Colonne
End With
End Sub


Bonne nuit
@+Thierry

Bonsoir,

Après discussion de ton pb sur le chat avec Jean-marie, voici une macro à placer dans VBA qui devrait te convenir :

Sub Macro1()
ActiveWindow.SmallScroll ToRight:=29
Range("AL25").Select
ActiveWindow.SmallScroll ToRight:=8
ActiveWindow.SmallScroll Down:=24
ActiveWindow.SplitColumn = 1
ActiveWindow.SplitRow = 1
ActiveWindow.FreezePanes = True
End Sub

La macro peut-être enclenchée par ton bouton.

Maintenant, tu as une autre possibilité encore plus simple.

1. Place ta cellule en haut à gauche et utilise l'option figer les volets si nécessaire. Le but est de préparer ta présentation.
2. va dans menu / affichage / affichage personnalisé
3. Clique sur "ajouter" et saisi un nom (ex :toto)
4. Confirme par OK

Pour l'essai tu te replaces en A1 puis tu fais menu / affichage / affichage personnalisé et tu choisis le nom (toto). Cela te montre directement dans l'affichage désiré.

Bon travail

@+

Dan

Salut Dan

On s'est croisé sur ce coup là, à une minute !

Moi j'ai juste compris que Pantanella voulait avoir la cellule active en Top/Left d'où l'utilisation de ScrollRow et ScrollColumn qui, ceci dit en passant sont bien moins aléatoire que le SmallScroll qui reste quant à lui tributaire de la position de départ...

Mais ptet que le SplitRow/Column et le FreezePanes que tu proposes satisfera Pantanella ;-)

Et pour l'affichage personnalisé au cas où, il peut aussi être piloté par VBA :
ActiveWorkbook.CustomViews("toto").Show

Bonne Nuit
@+Thierry

Salut Thierry,

Et oui, j'ai vu à 1 minute !!!

J'espère avoir bien compris sa demande mais je pense qu'avec les solutions proposées il aura toutes les possibilités.
Il ne lui reste plus qu'à venir voir ce que l'on a concoqueté pour lui.

A propos, je ne connaissais pas cette instruction "customViews". A retenir en tout cas.

Buona note

@+

Dan

Re Dan,

Oui Pantanella a l'embarras du Choix !

Juste une petite remarque pour accélérer/optimiser ton code, dès que tu peux, utilises With / End With plutôt que de répéter l'Objet à chaque ligne d'instruction.

Bonne Nuit
@+Thierry

J'aimerai apprendre un peut plus le VBA quel livre devrai je acheter.

@+
Pierre

Bonjour Pierre "Pantannella", Dan, le Forum

Pour ce qui est des bouquins, voici un qui a été une de mes livres de chevet et que je conseille souvent :

"Programmation Excel 2000" chez Sybex / collection "Pour Les Nuls" du GRAND John WalkenBach... C'est très bien fait et contrairement à pas mal d'ouvrages qui sont à 75% Excel et le reste un peu VBA, celui-ci est 100% VBA (400 pages) tout en restant accessible aux débutants/débutantes.
Numéro d'édition : ISBN 2-7361-3416-8. version FR déposée en 2000 (environ 25 €)

Extrait "Pour les vrais programmeurs, une journée de huit heures n'est pas une journée..." lol

Ptet qu'il existe maintenant pour XP Excel 2002 (10) ou 2003 (11)

@+Thierry

merci le code convient tout à fait à ce que je voulais réaliser et merci pour le livre