OVH Cloud OVH Cloud

Page qui ne défile pas

7 réponses
Avatar
Pollux
Salut les filles et les garçons,
le foie, çà va?
Bien, je reviens sur une question posée par DOMFLO, le 26, concernant le non
défilement
de la page. J'avais trouvé sur http://dj.joss.free.fr/ , qui n'est pas une
boite à outils mais plutôt une caverne
d'AliBaba, une astuce du genre et qui fonctionne très bien,mais, parce qu'il
y a un MAIS,
c'est quoi la syntaxe pour remplacer la plage par des variables?????
J'y ai passé un bon moment, mais je dois être particulièrement nunuche, j'ai
pas trouvé :-((
j'ai bien réussi à bouger Feuil1, mais c'est tout. Ouininin
Feuil1.ScrollArea = "B4:H23" ==> Sheets(NomFeuil).ScrollArea = ?
Merci par avance
Tournicoti

7 réponses

Avatar
AV
c'est quoi la syntaxe pour remplacer la plage par des variables?????


Faut concaténer....

x1 = 1: x2 = 10
Sheets("Feuil1").ScrollArea = "A" & x1 & ":A" & x2

AV

Avatar
Pollux
Merci pour ta réponse qui fonctionne parfaitement,
mais quelle est la logique des " ?
Avatar
AV
mais quelle est la logique des " ?


Les guillemets entourent une chaîne de caractères

AV

Avatar
Pollux
Ok, d'accord, je crois que je commence à comprendre ;-o)
Mais ce que j'envisageais comme variable, puisqu'il s'agit d'un objet Range,
si je dis pas de trop grosse bêtise, c'est quelque chose dans le genre :
Lig =1:Col=1
Range("A1:C10") ==> Range(Cells(Lig,Col),Cells(Lig+10,Col+3))
Mais çà, je n'ai pas réussi à le passer dans le ScrollArea

Merci pour ton aide
Avatar
AV
Lig = 1: Col = 1
Sheets("Feuil1").ScrollArea = Range(Cells(Lig, Col), Cells(Lig + 10, Col +
3)).Address

AV
Avatar
Pollux
Sincères remerciements,
j'ai l'impression que cela m'ouvre des horizons.....
Avatar
AV
j'ai l'impression que cela m'ouvre des horizons.....


En général c'est une manip qui aurait plutôt tendance à les restreindre
;-)
AV