commentaire auto size et date/heure

[bbloup47]

bonsoir le forum, j'essaye en vain d'adapter des codes que j'ai glané ici sur le forum. Pour ce qui est de la date/heure auto sur changement de valeur ça fonctionne très bien. J'aimerais que le cadre du commentaire soit autosize et c'est la mon problème. je vous donne donc le code que j'ai copié + mon dernier essais infructueux...

Si quelqu'un veux bien m'aider s'il vous plait, je vous remercie.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Not Intersect(Target, Range("D2: D60")) Is Nothing And Target <> "" Then
If Not Target.Comment Is Nothing Then
Target.Comment.Text Text:=Date & " " & Time
Selection.ShapeRange.ScaleHeight.AutoSize = True
Selection.ShapeRange.ScaleWidth.AutoSize = True
Else
Target.AddComment Date & " " & Time
End If
End If
End Sub

 

[Roland_M]

Re : commentaire auto size et date/heure

bonjour

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Not Intersect(Target, Range("D2: D60")) Is Nothing And Target <> "" Then
If Not Target.Comment Is Nothing Then
   Target.Comment.Text Text:=Date & " " & Time
   Target.Comment.Shape.TextFrame.AutoSize = True
Else
   Target.AddComment Date & " " & Time
   Target.Comment.Shape.TextFrame.AutoSize = True
End If
End If
End Sub

 

[bbloup47]

Re : commentaire auto size et date/heure

Merci beaucoup Roland_M, c.est exactement ça queje recherchais...

merci encore et bonne journée