Discussion :

[dede_bo]

Bonjour
J'essaie vainement de positionner (absolu) un "comment" sur une cellule.

J'explique:
J'ai une feuille avec des titres. Dans chaque cellules de titres, j'ai un "comment"



Connaissant les personnes utilisant se fichier, ils font tout et n'importe quoi.
J'ai donc placé sur la feuille, un bouton "Reset" qui permet de remettre tout à sa place.

Le problème est la position physique des comments.

voici le code:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
 
  px = 70
  py = 50
  lg  =120
  hgt = 16
 
  With activesheet.Range("A3").comment
     .Shape.Left = px    ' Left
     .Shape.Top = py     ' Top
     .Shape.Width = lg   ' Width
     .Shape.Height = hgt ' Height
  End With

Lorsque j'exécute ce code, je devrais avoir le résultat ci-dessous, mais j'ai en réalité le résultat ci-dessus.



Je ne reçois le bon résultat que si je force l'affichage. pas quand je passe le pointeur de la souris.

Y a t'il un jeux de propriétés qui permettent de changer la position physique d'un comment?

Merci de votre aide
Bien à vous
Andre