Connaitre une postion (n° de page) d'une cellule

Paritec

XLDnaute Barbatruc

• 24 Avril 2012

• #2

Re : Connaitre une postion (n° de page) d'une cellule

Bonjour Tonio le forum
peut-être qu'avec un petit fichier et les explications dedans on pourrait comprendre ce que tu veux?
a+
papou

 

Vote positif 0 Vote négatif

T

tonio44

XLDnaute Nouveau

• 24 Avril 2012

• #3

Re : Connaitre une postion (n° de page) d'une cellule

Bonjour Partitec,

J'ai mis le fichier en premier post.

J'ai vu que l'on pouvais relevé les positions de sauts de page avec une ligne ressemblant à
ActiveSheet.HPageBreaks(1).Location = Cells(39, 1)
Mais je n'arrive pas à m'en servir.

Je souhaite placer un objet exactement un objet excel en plein milieu d'une page.
Comment connaitre la position milieu entre 2 sauts de page ? ou a 2cm par ex du saut de page se trouvant vers le haut ?
J'aimerai insérer mon objet à chaque page.

Merci d'avance pour ton aide.

 

Vote positif 0 Vote négatif

Paritec

XLDnaute Barbatruc

• 24 Avril 2012

• #4

Re : Connaitre une postion (n° de page) d'une cellule

Re tonio 44 le forum
ton fichier n'est pas passé, il faut qu'il soit dans un des format de la page de chargement de fichier et ne dépasse pas je pense 300 kilos enfin regardes
a+
Papou

 

Vote positif 0 Vote négatif

T

tonio44

XLDnaute Nouveau

• 24 Avril 2012

• #5

Re : Connaitre une postion (n° de page) d'une cellule

Paritec à dit:

Re tonio 44 le forum
ton fichier n'est pas passé, il faut qu'il soit dans un des format de la page de chargement de fichier et ne dépasse pas je pense 300 kilos enfin regardes
a+
Papou

Cliquez pour agrandir...

Ho oui ops. je l'ai mis en xlsx il prend 10 fois moins de place. ^^

 

Vote positif 0 Vote négatif

T

tonio44

XLDnaute Nouveau

• 25 Avril 2012

• #6

Re : Connaitre une postion (n° de page) d'une cellule

salut Partitec, le forum,

J'ai trouver un code qui pourrais m'aider pour connaitre l'adresse de la cellule ou ce trouve les saut de page horizontaux.

Code:

Dim maval As Range, i As Long
For i = 1 To Sheets(1).HPageBreaks.Count
Set maval = Sheets(1).HPageBreaks.Item(i).Location
MsgBox maval.adress(0, 0)
Next i

Pensez vous qu'il est possible de trouver la même chose mais en pixel ou centimètre ? ^^
Car j'aimerai ajouter mon objet juste après chaque saut de page ou chaque milieu de page.
Calculer en ligne serait pas assez précis pour déterminer le milieu car chaque hauteur de ligne peut être différentes.

en vous remerciant.

 

Vote positif 0 Vote négatif