image

[dad]

bonjour à tous,
j'utilise une macro de JLG ,que je remerçi,pour afficher une image a plusieur endroit de ma feuille(plusieur boutons) comment faire pour que cette image s'affiche a l'endroit ou j'ai cliquer et non pas a son endroit d'origine.
Sub Ellipse31_QuandClic()
If ActiveSheet.Shapes('Image 108').Visible = False Then
ActiveSheet.Shapes('Image 108').Visible = True
Else
ActiveSheet.Shapes('Image 108').Visible = False
End If
End Sub

merci
dad

 

[soft]

Voilà une macro qui permet de déplacer sur la cellule selectionnée (en haut à gauche).
Par contre pour connaître la position de la souris sur l'elipse, je ne sait pas si c'est possible.

Sub DeplaceImg()
Dim L As Long, T As Long
L = ActiveCell.Left
T = ActiveCell.Top
ActiveSheet.Shapes('Image 108').Top = T
ActiveSheet.Shapes('Image 108').Left = L
End Sub

Tu peux aussi ajouter le code sauf Sub ... et End Sub après ton .visible=True

 

[dad]

re bonjour le forum,
voici un exemple pour me faire comprendre
@+ dad

 

[dad]

oup's [file name=ex_20051023114801.zip size=9316]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/ex_20051023114801.zip[/file]

 

[soft]

Il faut faire trois macros différentes qui vont ramplacer ta macro Ellipse31_QuandClic

voilà les macros :

Sub Ligne2()
Dim T As Long
T = Range('A2').Top
If ActiveSheet.Shapes('Image 4').Visible = False Then
ActiveSheet.Shapes('Image 4').Visible = True
ActiveSheet.Shapes('Image 4').Top = T
Else
ActiveSheet.Shapes('Image 4').Visible = False
End If

End Sub

Sub Ligne39()
Dim T As Long
T = Range('A39').Top
If ActiveSheet.Shapes('Image 4').Visible = False Then
ActiveSheet.Shapes('Image 4').Visible = True
ActiveSheet.Shapes('Image 4').Top = T
Else
ActiveSheet.Shapes('Image 4').Visible = False
End If

End Sub

Sub Ligne80()
Dim T As Long
T = Range('A80').Top
If ActiveSheet.Shapes('Image 4').Visible = False Then
ActiveSheet.Shapes('Image 4').Visible = True
ActiveSheet.Shapes('Image 4').Top = T
Else
ActiveSheet.Shapes('Image 4').Visible = False
End If

End Sub

Ensuite, il faut changer l'affectation des macros des différentes elipse en fonction de leur ligne.

J'ai fait les changements sur ton fichier (annexe). [file name=ex_20051023121023.zip size=10260]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/ex_20051023121023.zip[/file]

 

[dad]

excelent,
merci encore pour avoir repondu et solutionner aussi vite.
trop top le forum
@+ dad62