En tout cas merci d'avance...
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Me.Hyperlinks(1).ScreenTip = IIf(ActiveCell.Address = "$D$5", "Belle journée n'est-ce pas ?", "Cliquez sur D5")
End Sub
Private Sub CommandButton1_Click()
Dim t As Boolean
t = CommandButton1.Caption Like "Afficher*"
CommandButton1.Caption = IIf(t, "Masquer", "Afficher") & " les commentaires"
Me.Shapes("Texte").Visible = t
Me.Shapes("Flèche").Visible = t
Me.Shapes("Triangle").Visible = t
If t Then
With [D5].AddComment("Bonjour Esox")
.Shape.TextFrame.AutoSize = True
.Visible = True
End With
Else
[D5].ClearComments
End If
End Sub
Private Sub CommandButton1_Click()
Dim t As Boolean, s As Shape
t = CommandButton1.Caption Like "Afficher*"
CommandButton1.Caption = IIf(t, "Masquer", "Afficher") & " les commentaires"
Application.DisplayCommentIndicator = t
For Each s In Me.Shapes
If s.Name <> "CommandButton1" Then s.Visible = t
Next
End Sub