Vous utilisez un navigateur obsolète. Il se peut que ce site ou d'autres sites Web ne s'affichent pas correctement. Vous devez le mettre à jour ou utiliser un navigateur alternatif.
Boostez vos compétences Excel avec notre communauté !
Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force.
Apprenez, échangez, progressez – et tout ça gratuitement !
👉 Inscrivez-vous maintenant !
J'aimerai pouvoir rajouter un second commentaire dans une cellule avec un petit repère (triangle) vert en bas à gauche de la cellule. est ce réalisable ?
Pour tuer le temps, cette macro dans le code de la feuille :
Code:
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
J'aimerai faire une macro lié à un bouton de ma barre outils personnalisée
Je clique dessus, et un commentaire sajoute en bas a droite de la cellule avec un repère triangle vert. Le meme principe commentaire classique mais qui ne le remplacerai pas et repéré différement.
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
Une autre macro (plus générale et plus simple) dans ce fichier (4) :
Code:
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
- Navigue sans publicité - Accède à Cléa, notre assistante IA experte Excel... et pas que... - Profite de fonctionnalités exclusives Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel. Je deviens Supporter XLD