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

[mfoxy]

Bonsoir,

Arf, ces satanés utilisateurs qui ne respectent rien...

Plutôt que de créer une macro de reset, ne serait-il pas plus judicieux de 'protéger' les zones qui doivent l'être.
Les options de verrouillage ( protection feuille/wb) sont assez nombreuses que pour faire un classeur plus 'secure'.

Un grand panneau, "ne pas toucher" et une petite explication fera peut-être aussi l'affaire? ( heu non,..,je comprends ).
Car si ce sont des chipotes à tout, ils risquent aussi de modifier l'ordre des cellules,cacher des colonnes,figer les volets,... ces actions risquent de rendre ton code inopérant, voir en fonction des instructions détruire des parties de ton fichier.



Bat,

[dede_bo]

Bonjour,

Merci de réagir.

Je comprends et je suis 100% d'accord avec vous.
Mais, vous ne pouvez pas imaginer ce qu'ils font !


Bref, oui, je pourrais bloquer ... Mais en attendant, j'aurais aimé pouvoir placer les "comments" en position absolue. Cela fonctionne si j'affiche les "comments" par défaut. Pas quand je passe le pointeur de la souris au-dessus de la cellule.

Toutes les idées sont les bienvenues.

Encore merci
Andre

[BENNASR]

bonjour
si tu veux juste agrandir le commentaire

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Sub test()
On Error Resume Next
Cells(3, 1).Comment.Delete
With Cells(3, 1).AddComment
.Text Text:="Bonjour"
  px = 170
  py = 150
  lg = 420
  hgt = 46
     With .Shape
        .Left = px
        .Top = py
        .Width = lg
        .Height = hgt
      End With
End With
End Sub

[ARTURO83]

Bonjour,

Ceci pour positionner le commentaire comme vous le souhaitez

Code :

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

1
2
3
4
    With ActiveSheet.Range("A3").Comment.Shape
      .Left = Range("A3").Offset(0, 1).Left ' le commentaire se place à droite de la cellule
      .Top = Range("A3").Offset(-1, 1).Top 'le commentaire se place au niveau de la cellule au-dessus
    End With

Cdlt

[dede_bo]

Bonsoir,

Désolé de réagir tardivement.
Beaucoup de travail.

J'ai essayé le code de tous les deux.
disons ce n'est pas ce que je cherche.

Pour voir les différences, je dois éditer le comment
Par contre, quand vous déplacer le pointeur de la souris au-dessus de la cellule, le comment reste à la même taille et la même position physique.

Je pense que ce n'est pas possible.
Je vais laisser tomber. Je ne peux pas me permettre de passer des heures pour cela.
Je vais voir pour bloquer la feuille et les cellules nécessaire.

Merci tout de même de votre aide.
Bonne soirée

André