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.
Code:
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
Code:
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
Bonjour à tous,
voici un début de solution. Je crois que ceci pourrait faire l'affaire.
VB:
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é !