Macro événementielle et commentaires

[Etienne2323]

Bonjour à tous,
j'ai cherché tant bien que mal une solution à mon problème avant de poster, mais sans succès.

Voici mon problème. J'aimerais pouvoir déclencher une macro suite à l'insertion d'un commentaire dans un onglet, tout ça dans le but de pouvoir modifier les propriétés du commentaire.

Je cherche en fait un genre de Private Sub Worksheet_Change(ByVal Target As Range) qui pourrait se déclencher suite à l'insertion de commentaires.

À noter que l'idéal serait de pouvoir modifier directement les paramètres par défaut des commentaires, ce qui règlerait mon problème d'un coup, en donnant à la propriété "Placement" la valeur xlmove par défaut.

Voici la macro et la fonction que je pense utiliser si je n'arrive pas à modifier les paramètres par défaut.

Function CommentPlacement(Onglet As Excel.Worksheet, pos As XlPlacement)

'xlFreeFloating
'xlMove
'xlMoveAndSize

Dim cmt As Excel.Comment
For Each cmt In Onglet.Comments
    cmt.Shape.Placement = pos
Next cmt
End Function

Sub Lanceur()

Dim Wb As Excel.Workbook
Dim Onglet As Excel.Worksheet

Set Wb = ActiveWorkbook
For Each Onglet In Wb.Worksheets
    Call CommentPlacement(Onglet, xlMove)
Next Onglet

End Sub

En vous remerciant d'avance,

Cordialement,

Étienne

 

[Etienne2323]

Re : Macro événementielle et commentaires

Bonjour à tous,
voici un début de solution. Je crois que ceci pourrait faire l'affaire.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Static AncAdress As String
    If AncAdress <> "" Then
        With Range(AncAdress)
            If Not .Comment Is Nothing Then
                If .Comment.Text <> "" Then
                   .Comment.Shape.Placement = xlMove
                End If
            End If
        End With
    End If
    AncAdress = Target.Address
End Sub

Si vous avez une idée à savoir comment procéder pour modifier les paramètres par défaut des commentaires, je suis toujours extrêmement intéressé !

Cordialement,

Étienne