zone selectionné au milieu de l ' ecran

S

steve

Guest
Bonjour a tous

Comment a la fin d un code avoir une zone selectionné au milieu de l ' ecran

apres l' activation de la macro

merci d' avance
steve
 
S

steve

Guest
re

je copie avec macro une plage dans Range("E12:J22").Select ...puis avec une autre macro une plage differente toujours dans Range("E12:J22").Select . ca marche sauf que la plage e12:j22 ne se retrouve pas
au milieu de l ecran.

merci steve
 
V

Vériland

Guest
Bonsoir Steve et le Forum,

Au mileu de l'écran ?...mais tout dépend de la largeur de tes colonnes !...et de la hauteur des tes lignes !...selon leurs dimensions le centre de l'écran peut se retrouver à différents endroits...pour le coup, tu peux même avoir la zone B1:F12 au centre...il te suffit de modifier la largeur de la colonne A et la hauteur de la ligne 1 par exemple...

De là, à vouloir faire une macro qui selectionne automatiquement le milieu de la feuille...selon la taille des cellules...vaut mieux pas y songer...excel reste un tableur...on ne travaille pas sur une page pleine comme dans un traitement de texte ni sur une feuille de dessin !!...non là! il n'y a que toi qui puisse définir la zone...

l'idéal pour cela, serait d'avoir pour l'ensemble de la feuille, la même largeur et hauteur de ligne...et encore !...

en imaginant que ta feuille soit terminée et les cellules paramétrés...bien...affichage écran sur 1024 x 768...ton centre...impeccable...tu sauvegardes...

maintenant, tu ouvres ce même fichier sur un moniteur 800 x 600...eh ben...y'aura plus du tout le même centre...tout sera décalé...

j'te parle même pas de l'effet zoom...qui lui aussi peut influer le centre...ni même de la taille des polices qui modifient la cellule selon leur taille...

Comment elle va faire ta macro pour trouver le centre ?...Tu te rends compte pour le coup comment le centre peut être décentré,...lol...

A+ Vériland
 
T

Ti

Guest
voilà une macro vite fait à laquelle la dernière question de Myta m'a fait penser. Ca répondra peut-être à ta question

Sub CentreEcran()
'Ti 23-12-02
Dim Ligne1 As Long, Col1 As Long
Dim LigneFin As Long, ColFin As Long
SendKeys "{SCROLLLOCK}{HOME}", True
Ligne1 = ActiveCell.Row
Col1 = ActiveCell.Column
SendKeys "{SCROLLLOCK}{END}", True
LigneFin = ActiveCell.Row
ColFin = ActiveCell.Column
Application.Goto Cells(Ligne1 + ((LigneFin - Ligne1) \ 2), _
Col1 + ((ColFin - Col1) \ 2)), False
End Sub
 

Discussions similaires

Statistiques des forums

Discussions
311 735
Messages
2 082 024
Membres
101 873
dernier inscrit
excellllll