aux possesseurs Excel 2007 .Top .Left bizarre ?

[Roland_M]

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

 

[Compte Supprimé 979]

Re : aux possesseurs Excel 2007 .Top .Left bizarre ?

Salut Roland,

Je ne comprends pas, chez moi ça marche 😕

Zoom à 50 %, le rectangle suit bien la cellule sélectionnée

Zoom à 150 %, même chose.

 

[Roland_M]

Re : aux possesseurs Excel 2007 .Top .Left bizarre ?

merci Bruno
c'est vrai à 50 100 150 200
mais essayes avec d'autres exp: 80

à plus.

 

[Compte Supprimé 979]

Re : aux possesseurs Excel 2007 .Top .Left bizarre ?

Avec des valeurs qui ne sont pas des multiple de 10 effectivement ça "déconne" plein tube 😕

M'sieur Crosoft y'aurait comme un BUG !

J'ai essayé avec 74 % ou 123 %, à la 867ème lignes j'ai mon rectangle qui se trouve positionné sur la 853

Par contre, si tu remets un mutiple de 10, exemple 70 % ou 120 % là, no problemo ....

Tu as découvert un GROS BUG dans EXCEL 2007

Allez BILL, tu as le droit à ta fessée

 

[Roland_M]

Re : aux possesseurs Excel 2007 .Top .Left bizarre ?

re-salut Bruno
j'ai bien une solution simple mais je peux l'envisager dans mon classeur <Gestion du Personnel> ce serait trop lent (12 feuil(mois) de 62Col/140Lig)
tout et géré par interface(Userform) le déplacement s'effectue par curseur imagé

Application.ScreenUpdating = False
SvgZoom = ActiveWindow.Zoom: ActiveWindow.Zoom = 100

'.... je positionne... et remet le zoom

ActiveWindow.Zoom = SvgZoom
Application.ScreenUpdating= True

Si tu as une réponse à ce BUG pense à moi. Merci et mes Amitiés
Là coupe mon pc je dois partir. Je regarderai en revenant.