Shapes

[tinet]

Bonjour le forum,

j'utilise un shapes dans une feuille.
je souhaiterais que le shapes se déplacent uniquement quand je suis dans la colonne Q
je souhaite garder les mêmes fonctions

Voici mon code actuel

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Shapes("Loupe").Top = Target.Top + 0
Shapes("Loupe").Left = Target.Left + 50
End Sub


merci de votre aide

 

[Paf]

Re : Shapes

re,

ah flûte ! j'ai inversé ; alors:

Target = Range("B" & Target.Row)

A+

 

[tinet]

Re : Shapes

Re,

C'est pas vraiment ce que je voulais faire.
ma demande au poste 13
apres je colle sur une autre feuille

 

[Paf]

Re : Shapes

Re

Exemple je suis en G10 je copie B10

j'ai un peu interprété le besoin en : je suis en G10, et je le copie en B10 puis en : je suis en G10, et j'y copie B10.

Finalement c'est plus simple: sachant repérer la bonne ligne de la colonne B par Range("B" & Target.Row) ça devient :

Range("B" & Target.Row).Copy

a priori

A+

 

[tinet]

Re : Shapes

Merci Paf

C'est tous bon

 

[CPk]

Re : Shapes

J'oublie le shape

Le plus simple pour moi c'est ma dernière demande
Exemple je suis sur la ligne Q10 je copie la la celulle B10

GrrrrrrrrrRRRRRRRRRRRRRRrrr...Q10 ce n'est pas une ligne !!!! C'est une cellule...