Afficher une ligne à une certaine position sur l'écran
1 réponse
Le Nordiste
Bonjour tertous,
Il y a une semaine ou deux, il "fil" traitait de placer vers le milieu
d'=E9cran une ligne donn=E9e, =E0 fin d'en faciliter la lecture, mais je
ne la retrouve pas.
Qui m'aidera me verra lui offrir mes remerciements.
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Pounet95
Bonsoir,
Vite fait et donc à adapter :
Sub z() r = InputBox(num) Rows(r).Select If r > 30 Then ActiveWindow.ScrollRow = r - 15 End Sub
r est le numéro de ligne affichée au milieu de l'écran ( qui peut en contenir 35 ou 36 en haiuteur standard ) si r est plus grand que 30 la première ligne affichée en haut de l'écran est la ligne ayant le numéro r-15
Bon, ça tient du bricolage, mais ça a le mérite de faire ... à peu près
Bonne soirée -- Pounet95 on trouve tout ( ou presque ) http://www.excelabo.net/ Conseillé : http://dj.joss.free.fr/netiquet.htm (charte, nétiquette, conseils, abréviations, souriettes...) http://www.excelabo.net/mpfe/connexion.php (connexion, conseils...)
"Le Nordiste" a écrit dans le message de news: Bonjour tertous,
Il y a une semaine ou deux, il "fil" traitait de placer vers le milieu d'écran une ligne donnée, à fin d'en faciliter la lecture, mais je ne la retrouve pas.
Qui m'aidera me verra lui offrir mes remerciements.
Cordialement, Le Nordiste
Bonsoir,
Vite fait et donc à adapter :
Sub z()
r = InputBox(num)
Rows(r).Select
If r > 30 Then ActiveWindow.ScrollRow = r - 15
End Sub
r est le numéro de ligne affichée au milieu de l'écran ( qui peut en
contenir 35 ou 36 en haiuteur standard )
si r est plus grand que 30 la première ligne affichée en haut de l'écran est
la ligne ayant le numéro r-15
Bon, ça tient du bricolage, mais ça a le mérite de faire ... à peu près
Bonne soirée
--
Pounet95
on trouve tout ( ou presque ) http://www.excelabo.net/
Conseillé :
http://dj.joss.free.fr/netiquet.htm
(charte, nétiquette, conseils, abréviations, souriettes...)
http://www.excelabo.net/mpfe/connexion.php
(connexion, conseils...)
"Le Nordiste" <jean-paul.bataille@cegetel.fr> a écrit dans le message de
news: 1144333738.819873.108120@u72g2000cwu.googlegroups.com...
Bonjour tertous,
Il y a une semaine ou deux, il "fil" traitait de placer vers le milieu
d'écran une ligne donnée, à fin d'en faciliter la lecture, mais je
ne la retrouve pas.
Qui m'aidera me verra lui offrir mes remerciements.
Sub z() r = InputBox(num) Rows(r).Select If r > 30 Then ActiveWindow.ScrollRow = r - 15 End Sub
r est le numéro de ligne affichée au milieu de l'écran ( qui peut en contenir 35 ou 36 en haiuteur standard ) si r est plus grand que 30 la première ligne affichée en haut de l'écran est la ligne ayant le numéro r-15
Bon, ça tient du bricolage, mais ça a le mérite de faire ... à peu près
Bonne soirée -- Pounet95 on trouve tout ( ou presque ) http://www.excelabo.net/ Conseillé : http://dj.joss.free.fr/netiquet.htm (charte, nétiquette, conseils, abréviations, souriettes...) http://www.excelabo.net/mpfe/connexion.php (connexion, conseils...)
"Le Nordiste" a écrit dans le message de news: Bonjour tertous,
Il y a une semaine ou deux, il "fil" traitait de placer vers le milieu d'écran une ligne donnée, à fin d'en faciliter la lecture, mais je ne la retrouve pas.
Qui m'aidera me verra lui offrir mes remerciements.
