Dessiner Fleche... mais

tcorrege · 9 Avril 2010

Bonjour,
J'ai besoin de dessiner une fleche entre un controle selectionné et un usf ( qui contient le code d'ajout)...
ça je sais faire...

Mais, si la cellule A1 n'est pas en haut à gauche ça décalle tout.
et range("A1").top n'est jamais négatif ( pour faire une translation...)
Donc, pas d'idée supplémentaire.
A votre bon coeur !

Merci par avance.

pierrejean · 9 Avril 2010

Re : Dessiner Fleche... mais

bonjour tcorrege

Je me demande ou peux bien etre A1 si ce n'est en haut a gauche !!!
Avec un petit fichier exemple on serait plus a l'aise pour t'aider

tcorrege · 9 Avril 2010

Re : Dessiner Fleche... mais

Merci PierreJean de lire.

Si tu scrolles, la cellule en haut à gauche peut être A45 ou même b52.
A1 passe "derriere" la barre d'outil.
en html il y a des positions relatives et absolues. C'est le mêm pb.
Est-ce plus clair ?
Cdt

Habitude · 9 Avril 2010

Re : Dessiner Fleche... mais

Pour avoir A1 absolu.

Figer les volets en B2.....

tcorrege · 9 Avril 2010

Re : Dessiner Fleche... mais

Bonne idée, mais cela ne résoud pas le pb.

pierrejean · 10 Avril 2010

Re : Dessiner Fleche... mais

Re
Vois si tu peux t'inspirer de ceci

Code:

MsgBox (Cells(ActiveWindow.ScrollRow, ActiveWindow.ScrollColumn).Address)

tcorrege · 20 Avril 2010

Re : Dessiner Fleche... mais

Merci PierreJean !
Encore bien vu...

Le code ressemble finalement à ça :
celTopLeft = Cells(ActveWindow.scrollRoww,ActiveWindow.scrollColumn).address

Wad=range("A1:" & celTopLeft ).width
Had=range("A1:" & celTopLeft ).height

Wad et HAd sont les décallages que j'ajoute pour ma translation.

Merci encore

Dessiner Fleche... mais

tcorrege

XLDnaute Nouveau

pierrejean

XLDnaute Barbatruc

tcorrege

XLDnaute Nouveau

Habitude

XLDnaute Accro

tcorrege

XLDnaute Nouveau

pierrejean

XLDnaute Barbatruc

tcorrege

XLDnaute Nouveau

Discussions similaires