Dessiner Fleche... mais

[tcorrege]

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]

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]

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]

Re : Dessiner Fleche... mais

Pour avoir A1 absolu.

Figer les volets en B2.....

 

[tcorrege]

Re : Dessiner Fleche... mais

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

 

[pierrejean]

Re : Dessiner Fleche... mais

Re
Vois si tu peux t'inspirer de ceci

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

 

[tcorrege]

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