positionnement des commentaires

Salut Looping007,

AMHA, il n'est pas possible de le mettre par défaut. tu peux le faire en faisant un doubleclic dans une cellule après
avoir mis le code suivant dans le module de la feuille :

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Excel.Range, Cancel As Boolean)
Dim wComment As Comment
For Each wComment In ActiveSheet.Comments
wComment.Shape.Placement = xlMoveAndSize
Next wComment
Cancel = True
End Sub

Tu peux également utiliser un autre évènement, mais celui-ci me semble le plus intéressant.

Attention tout de même, ce code modifie TOUS les commentaires de la feuille.

A+
Benead

looping007 a écrit:

en créant un nouveau commentaire dans une cellule, le positionnement de ce
commentaire(clic droit "format de commentaire/propriétés")est placé par
défaut sur "ne pas déplacer ou dimensionner avec les cellules".
comment faire pour changer ce postionnement en le mettant par défaut
sur"déplacer et dimensionner avec les cellules" chaque fois que je créé un
nouveau commentaire

merci d'avance pour votre aide

Bonjour looping007,


Dans le ThisWorkbook de ton classeur, copie ceci :
à l'OUVERTURE de ce fichier, tu pourras formater ton commentaire par défaut comme tu voudras, avec toutes les
caractéristiques désirées. Pour de faire, tu modifies la procédure "NouveauComment" selon tes exigences.

'-----------------------------------
Private Sub Workbook_Activate()
on error resume next
InsérerUnCommentaire

End Sub
'-----------------------------------
Private Sub Workbook_Deactivate()
On Error Resume Next
CommentNormal

End Sub
'-----------------------------------


Dans un module standard, copie ceci :

'------------------------------
Sub InsérerUnCommentaire()

For Each cbar In Application.CommandBars.FindControls(ID:89)
cbar.OnAction = "NouveauComment"
Next
For Each cbar In Application.CommandBars.FindControls(ID: 31)
cbar.OnAction = "NouveauComment"
Next

End Sub
'------------------------------

Sub NouveauComment()

On Error Resume Next
If ActiveCell.Parent.ProtectDrawingObjects <> True Then
With ActiveCell
Set C = .AddComment
With C
.Shape.Placement = xlMoveAndSize
.Visible = True
.Shape.Select
.Shape.OLEFormat.Object.Text = ""
End With
End With
Else
MsgBox "Les objets de la feuilles sont verrouillés."
End If

End Sub
'------------------------------

Sub CommentNormal()

For Each cbar In Application.CommandBars.FindControls(ID:89)
cbar.OnAction = ""
Next
For Each cbar In Application.CommandBars.FindControls(ID: 31)
cbar.OnAction = ""
Next

End Sub
'------------------------------


Salutations!


"looping007" <looping007@discussions.microsoft.com> a écrit dans le message de news:
388288B7-47D0-46A4-98A4-B67B5432A897@microsoft.com...
en créant un nouveau commentaire dans une cellule, le positionnement de ce
commentaire(clic droit "format de commentaire/propriétés")est placé par
défaut sur "ne pas déplacer ou dimensionner avec les cellules".
comment faire pour changer ce postionnement en le mettant par défaut
sur"déplacer et dimensionner avec les cellules" chaque fois que je créé un
nouveau commentaire

merci d'avance pour votre aide