Shapes

C

CPk

XLDnaute Impliqué

• 6 Janvier 2016

• #2

Re : Shapes

Bonjour essayez de glisser une condition if du genre :

if target.column = 17 then
...
...
...
End if

 

Vote positif 0 Vote négatif

tinet

XLDnaute Impliqué

• 6 Janvier 2016

• #3

Re : Shapes

Bonjour CPK

mais oui
nickel
merci

 

Vote positif 0 Vote négatif

C

CPk

XLDnaute Impliqué

• 6 Janvier 2016

• #4

Re : Shapes

De rien , joyeux noël !

 

Vote positif 0 Vote négatif

tinet

XLDnaute Impliqué

• 6 Janvier 2016

• #5

Re : Shapes

Maintenant,

maintenant je veux ajouter une macro sur ce shap
En fonction de sa position sur n'importe quelle ligne
je veux copier la cellule en colonne B
il faut qu'il récupère l'information de la même ligne
dont comment identifier sa position pour qu'ils copient la bonne ligne

 

Vote positif 0 Vote négatif

tinet

XLDnaute Impliqué

• 6 Janvier 2016

• #6

Re : Shapes

Pour faire plus simple

En fonction de ma position en colonne Q
Je copie de la même ligne en colonne B la celulle

 

Vote positif 0 Vote négatif

C

CPk

XLDnaute Impliqué

• 6 Janvier 2016

• #7

Re : Shapes

hum...

C'est un peu difficile de vous répondre objectivement car vous n'utilisez pas un langage approprié pour coder. ceci dit, testez ceci qui va renvoyer un numéro de ligne.

Dim o As Object
Set o = ActiveSheet.Shapes("Loupe")
MsgBox o.TopLeftCell.Row

Cliquez pour agrandir...

Et à partir de ça , dite nous ce que vous voulez plus précisément faire avec se numéro de ligne...(on peut aussi determiner une colonne voire l'adresse complète de la cellule)

 

Vote positif 0 Vote négatif

C

CPk

XLDnaute Impliqué

• 6 Janvier 2016

• #8

Re : Shapes

Voire consultez directement la bible ! qui vous apporteras des réponses bien précises avec des codes standardisés : Les images et shapes

 

Dernière modification par un modérateur: 6 Janvier 2016

Vote positif 0 Vote négatif

tinet

XLDnaute Impliqué

• 6 Janvier 2016

• #9

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

 

Vote positif 0 Vote négatif

Paf

XLDnaute Barbatruc

• 6 Janvier 2016

• #10

Re : Shapes

Bonjour à tous,

Si j'ai bien compris :

Code:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 If Target.Column = 17 Then
    Shapes("Loupe").Top = Target.Top + 0
    Shapes("Loupe").Left = Target.Left + 50
    Range("B" & Target.Row) = Target
 End If
End Sub

A+

 

Vote positif 0 Vote négatif

tinet

XLDnaute Impliqué

• 6 Janvier 2016

• #11

Re : Shapes

Bonjour Paf,

En finalité j'oublie avec le shapes
merci

 

Vote positif 0 Vote négatif

Paf

XLDnaute Barbatruc

• 6 Janvier 2016

• #12

Re : Shapes

Re,

ben heu ...

Qu'est ce qui reste ?

A+

 

Vote positif 0 Vote négatif

tinet

XLDnaute Impliqué

• 6 Janvier 2016

• #13

Re : Shapes

Paf,

Je cherche la fonction pour rajouter à ma macro.
en fonction de ma position en colonne G je copie la celulle dela même ligne de la colonne B
Exemple je suis en G10 je copie B10

 

Vote positif 0 Vote négatif

Paf

XLDnaute Barbatruc

• 6 Janvier 2016

• #14

Re : Shapes

Re,

si c'est toujours à la sélection d'une cellule en colonne Q, il suffit juste de supprimer les deux lignes Shapes("Loupe").... du code proposé au post 10.

A+

 

Vote positif 0 Vote négatif

tinet

XLDnaute Impliqué

• 6 Janvier 2016

• #15

Re : Shapes

Re,

ça
Range("B" & Target.Row) = Target
efface ce qui se trouve en cellule B.

a+

 

Vote positif 0 Vote négatif