Roland_M
XLDnaute Barbatruc
Bien le bonjour à tous. Je vous soumez ce petit problème avec Excel 2007 et .Top .Left
'1)créer sur la Feuil1 un petit rectangle de la dimension d'une cellule
'2)puis copier ce sub que vous devez connaître dans le code de la Feuil1
'3)déplacez vous avec les flêches ou cliquer sur la feuille, le graph doit suivre
'4)modifier le zoom <100 et >100 et vous verrez que le graph ne ne positione plus correctemment ? Pourquoi ? merci d'avance pour vos réponses
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
NomShapes$ = Shapes(1).Name
ActiveSheet.Shapes(NomShapes$).Left = Target.Left
ActiveSheet.Shapes(NomShapes$).Top = Target.Top
End Sub
'1)créer sur la Feuil1 un petit rectangle de la dimension d'une cellule
'2)puis copier ce sub que vous devez connaître dans le code de la Feuil1
'3)déplacez vous avec les flêches ou cliquer sur la feuille, le graph doit suivre
'4)modifier le zoom <100 et >100 et vous verrez que le graph ne ne positione plus correctemment ? Pourquoi ? merci d'avance pour vos réponses
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
NomShapes$ = Shapes(1).Name
ActiveSheet.Shapes(NomShapes$).Left = Target.Left
ActiveSheet.Shapes(NomShapes$).Top = Target.Top
End Sub