Déplacement Fenêtre horiz. & vert

Bonjour Forum,

en VBA comment afficher une cellule donnée dans le coin sup. gauche de l'écran ?

par exemple : "L6" en coin sup.G

et figer le volet horizontal en ligne 9

je me prend la tête avec çà , depuis ce matin !

j'ai besoin d'aide , pour continuer.

Salutations

Claude.

Bonjour,

As-tu essayé l'enregistreur de macros : menu Outils / macros / nouvelle macro ?

dré

re;

Dré, C'est la 1ère chose que j'ai fait.

Sub routine2()
  Sheets("base").Select
    ActiveWindow.SmallScroll ToRight:=11
    ActiveWindow.SmallScroll Down:=4
    '''Rows("9:9").Select
    Range("L9").Select
   ActiveWindow.FreezePanes = True
 Range("L9").Select
End Sub

les volets sont bien figés en "L9"

mais c'est la cellule "F5" qui est dans le coin sup.G de l'écran ; les volets sont donc figés au milieu de l'écran ! (même en partant de loin à droite)

La manip n'est pas facile à enregistrer pour se positionner.

à+............Claude.

Bonjour,

Je ne m'y connais pas du tout en macros, mais voici la façon dont je procède pour placer une cellule dans le coin supérieur gauche de l'écran.

Je nomme la cellule L6, par exemple Lsix.

Je nomme une autre cellule (au hasard), mais située plus bas et en dehors de l'écran, par exemple A100 (Acent).

En cliquant sur la petite liste déroulante à l'extrême gauche de la barre de formule, successivement sur Acent, puis sur Lsix, la cellule L6 se place dans le coin supérieur gauche de la feuille.

Il me semble qu'en macro, sans nommer ces deux cellules mais en les désignant dans la macro, il devrait y avoir moyen de placer une cellule dans le coin supérieur gauche de la feuille.

dré

bonjour à tous,

merci Dré , j'ai essayé ,mais non!

ma vielle macro Excel4 fonctionnait trés bien.

=DEFILEMENTH(13;VRAI)
=DEFILEMENTV(7;VRAI)
=SELECTIONNER(!M9)
=FIGER.VOLETS(VRAI)
=RETOUR()

il faudrait l' équivalent "DEFILEMENTH()" en VBA

Cordialement

Claude.

Salut Claude,

j'ai trouvé une solution a ton problème,

Sub Deplace()

    With ActiveWindow
        .ScrollRow = 6 'Nombre de lignes vers le bas
        .ScrollColumn = 12 'Nombre de colonnes vers la droite
    End With

    Range("L9").Select
    ActiveWindow.FreezePanes = True

End Sub

La fenêtre se déplace de 6 ligne vers le bas et ensuite de 12 colonnes vers la droite, on sélectionne ensuite la cellule L9 et on fige les volets.

Au plaisir

Edition par Mytå : Correction des balises dans Code.

Oublie les balises [color=green] dans le code j'ai essayé de la mettre de la fantaisie mais je me suis planté

Salut le forum

Un autre façon de faire

Sub FigerVolets()
Application.Goto Range("L6"), True
Range("L9").Select
ActiveWindow.FreezePanes = True
End Sub

Mytå

Ouais beaucoup plus simple que de calculer le nombre de ligne à l'écran

merci tous deux ,

ma question paraissait anodine , mais on tourne facilement autour du pot en VBA ,

quand on débute .

encore un problème de réglé.

Par contre Math , j'ai mis le post InputBox "RESOLU" un peu trop vite !

je fais un message à la suite pour expliquer.

tu n'est pas en cause, c'est moi qui en demande +

encore merci.

Claude.

Je ne vois pas ton message dans l'autre post.

re,

tu vas + vite que mon ombre !

le message vient de partir.

Claude.