Shapes

tinet · 6 Janvier 2016

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 · 6 Janvier 2016

Re : Shapes

re,

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

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

A+

tinet · 6 Janvier 2016

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 · 6 Janvier 2016

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 · 6 Janvier 2016

Re : Shapes

Merci Paf

C'est tous bon

CPk · 6 Janvier 2016

Re : Shapes

tinet à dit:
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...

Shapes

tinet

XLDnaute Impliqué

Paf

XLDnaute Barbatruc

tinet

XLDnaute Impliqué

Paf

XLDnaute Barbatruc

tinet

XLDnaute Impliqué

CPk

XLDnaute Impliqué

Discussions similaires