forcer le positionnement d'un commentaire
Grégory DELBOE
Bonjour � tous,
J'ai un commentaire qui se trouve dans la derni�re colonne � droite de mon
tableau. Malheureusement, impossible de la faire appara�tre au centre de la
feuille, et celui-ci s'ent�te � se placer � droite de ma colonne( hors
champ). Comment faire?
Merci pour vos lumi�res.
Greg
MichDenis
Bonjour Gr�gory,
Pour ce faire, un clic droit sur la cellule contenant le commentaire
commande : "modifier le commentaire"
lorsque le commentaire est s�lectionn�, tu peux le d�placer o� tu
d�sires l'afficher.
Cependant, lorsque le commentaire reprend son "affichage normal",
c'est-�-dire lorsque tu passes le curseur de la cellule, excel affiche
le commentaire dans une position "par d�faut" qu'il n'est pas possible
de modifier. Mais, par VBA, si tu demandes au commentaire de la
cellule L50 de devenir visible, le commentaire s'affichera o� tu l'auras
plac� lors lorsque tu l'as modifi�.
La ligne de code est : Range("L50").Comment.Visible = True Et pour le
masquer tu affectes � la ligne de code =False et il va reprendre sa position
par d�faut.
Tu peux aussi te servir de l'option suivante pour afficher tous les commentaires
ou les masquer tous. Barre de menu / outils / Options / onglet "affichage"
Objet : afficher tout ou "Masquer tout" ou "indicateur seulement".
Voil�, tu dois composer avec ce qui pr�c�de !
"Gr�gory DELBOE" <del...@free.fr> a �crit dans le message de groupe de discussion :
B8A8E25B-9E93-4750...@microsoft.com...
JB
http://boisgontierjacques.free.fr/pages_site/commentaire.htm#AffichePosition
JB
http://boisgontierjacques.free.fr
On 21 juin, 23:53, Grégory DELBOE <del...@free.fr> wrote:
> Bonjour à tous,
>
> J'ai un commentaire qui se trouve dans la dernière colonne à droite de mon
> tableau. Malheureusement, impossible de la faire apparaître au centre de la
> feuille, et celui-ci s'entête à se placer à droite de ma colonne( hors
> champ). Comment faire?
>
> Merci pour vos lumières.
>
> Greg
Grégory DELBOE
Merci pour la r�ponse.
Seul petit probl�me: comment acc�der au VBA du commentaire???
Merci
"MichDenis" <mich...@hotmail.com> a �crit dans le message de
news:%23V10%23as8J...@TK2MSFTNGP02.phx.gbl...
MichDenis
Bonjour Gr�gory,
Voici un fichier exemple : http://cjoint.com/?hen6IoOWUw
les cellules n'affichent pas l'indicateur dans le coin sup�rieur droit. Si tu l'affiches,
cela devient probl�matique car en passant au dessus de la cellule, Excel affiche le
commentaire � une position par d�faut et cela se produit avant m�me que la macro
s'ex�cute, en cons�quence, la position d'affichage du commentaire sera celle par d�faut et
c'est cette position qu'Excel retiendra pour les affichages subs�quents.
La macro ressemble � ceci :
'------------------------------------
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim C As Comment
On Error Resume Next
Set C = Target.Comment
If Not C Is Nothing Then
Application.DisplayCommentIndicator = xlNoIndicator
C.Visible = True
Else
Application.DisplayCommentIndicator = xlNoIndicator
Err.Clear
End If
End Sub
'------------------------------------
"Gr�gory DELBOE" <del...@free.fr> a �crit dans le message de groupe de discussion :
B76E68B3-5806-49D3...@microsoft.com...
Grégory DELBOE
Merci beaucoup!
J'essaye �a d�s cet apr�s-midi. Si je ne reviens pas sur ce post, c'est que
tout va bien!
Merci encore
Greg
"MichDenis" <mich...@hotmail.com> a �crit dans le message de
news:ekHr$8J$JHA....@TK2MSFTNGP05.phx.gbl...
nolulustucru
> Bonjour à tous,
>
> J'ai un commentaire qui se trouve dans la dernière colonne à
> droite de mon
> tableau. Malheureusement, impossible de la faire apparaître au centre de
> la
> feuille, et celui-ci s'entête à se placer à droite de ma
> champ). Comment faire?
>
>
> Greg
Hello tout le monde,
Premièrement merci pour votre aide...
J'apporte du coup ma petite contribution
Pour forcer le positionnement d'un commentaire :
With ActiveCell.Comment 'Positionne le commentaire de la cellule active en
A1
.Shape.Left = Range("A1").Left
.Shape.Top = Range("A1").Top
End With
Pour repositionner tous les commentaires de toutes les cellules d'une plage (ce
que je cherchais aujourd'hui)
- Merci à toutes les personnes pour les bouts de code que j'ai assemblé ci
dessous -.
Cette macro teste s'il y a un commentaire, si oui elle positionne ce commentaire
dans la première cellule à droite. J'ai profité de cette opération pour
autoriser le déplacement du commentaire avec la cellule et de faire un Autofit
pour ce qui est de la taille.
ATTENTION : ne fonctionne pas s'il existe des cellules masquées
#move #comment #if #vba
*******************************************************
Sub PositionCom()
'
' PositionCom Macro
Dim FL1 As Worksheet, Cell As Range, Plage As Range
Set FL1 = Worksheets("2014") 'nom de ma feuille :2014
With FL1
'Détermination de la plage de cellules à lire
'Peut s'écrire en utilisant l'objet range de la plage
'For Each Cell In .Range("B3:E15")
'ou en utilisant l'objet Plage (range) de la plage
Set Plage = .Range("A1:ATA105") ' insérer la plage à
traiter ici
For Each Cell In Plage
If Cell.Comment Is Nothing Then
Else
'Modification des paramètre commentaire
Cell.Comment.Shape.Select True
With Selection
.HorizontalAlignment = xlLeft
.VerticalAlignment = xlTop
.ReadingOrder = xlContext
.Orientation = xlHorizontal
.AutoSize = True
End With
With Selection
.Placement = xlMove
.PrintObject = False
End With
With Cell.Comment
.Shape.Left = Cell.Offset(0, 1).Left 'ligne +0 colone+1
.Shape.Top = Cell.Offset(0, 1).Top 'ligne +0 colone+1
End With
End If
Next
End With
Set FL1 = Nothing
Set Plage = Nothing
End Sub
isabelle
malheureusement, vous ne pouvez pas contrôler la position du "comment's popup",
mais avec un peu de programmation, vous pouvez afficher le commentaire à
l'endroit souhaité de l'écran,
lorsque vous cliquez sur la cellule.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim cTop As Long
Dim cWidth As Long
Dim cmt As Comment
Dim sh As Shape
Application.DisplayCommentIndicator = xlCommentIndicatorOnly
Set rng = ActiveWindow.VisibleRange
cTop = rng.Top
cWidth = rng.Left
If ActiveCell.Comment Is Nothing Then
Application.DisplayCommentIndicator = xlCommentIndicatorOnly
Else
Set cmt = ActiveCell.Comment
Set sh = cmt.Shape
sh.Top = cTop
sh.Left = cWidth
cmt.Visible = True
End If
End Sub
isabelle
isabelle
isabelle