XL pour MAC Les commentaires dans excel

Nono1835

XLDnaute Occasionnel
bonjour à tous
j'ai un document excel avec menu déroulant dans les cellules.
Assez souvent j'ai besoins de mettre un commentaire en complément d'info.
Les commentaires à ajouter sont souvent les mêmes
Ma question est de savoir s'il est possible d'avoir des commentaires pré enregistrés , voir même un menu déroulant dans le commentaire .
merci d'avance de vos réponses
Nono
 

Staple1600

XLDnaute Barbatruc
Re

@Nono1835
Comme je t'invitais à le faire précedemment, fais le test sur le fichier exemple de ton fil
(en suivant rigoureusement mes explications et copies d'écran)
Dans mon exemple:
• j'avais écrit Libellés , et Tableau1 n'avait que 2 colonnes
• J'avais changé la formule que tu utilisais dans Données/Validation.
(J'utilise: =INDIRECT("Tableau1[Libellés]")
• Le code VBA doit être dans la feuille et pas dans un module standard.

Une fois, obtenue la satisfaction d'avoir réussi par toi-même ;); tu pourras t'attaquer à ton fichier final
 

Nono1835

XLDnaute Occasionnel
Re

@Nono1835
Comme je t'invitais à le faire précedemment, fais le test sur le fichier exemple de ton fil
(en suivant rigoureusement mes explications et copies d'écran)
Dans mon exemple:
• j'avais écrit Libellés , et Tableau1 n'avait que 2 colonnes
• J'avais changé la formule que tu utilisais dans Données/Validation.
(J'utilise: =INDIRECT("Tableau1[Libellés]")
• Le code VBA doit être dans la feuille et pas dans un module standard.

Une fois, obtenue la satisfaction d'avoir réussi par toi-même ;); tu pourras t'attaquer à ton fichier final
Merci je vais retenter à tête reposée ce soir, et si je n’y arrive pas je reviendrai vers toi
Merci encore 👍
 

job75

XLDnaute Barbatruc
Bonsoir à tous,

Une solution en ajoutant 2 commandes au menu contextuel du clic droit, le code de la feuille :
VB:
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
Dim n%
With CommandBars("Cell")
    .Reset 'RAZ
    If UCase(CStr(ActiveCell)) = "GARDE" Then
        For n = 1 To .Controls.Count
            If .Controls(n).Caption Like "*co*mment*" Then If .Controls(n).Visible Then Exit For
        Next
        With .Controls.Add(Type:=msoControlButton, Before:=n + 1)
            .Caption = "Jour"
            .FaceId = 2634 'icône
            .OnAction = Me.CodeName & ".Jour"
        End With
        With .Controls.Add(Type:=msoControlButton, Before:=n + 2)
            .Caption = "Nuit"
            .FaceId = 2635 'icône
            .OnAction = Me.CodeName & ".Nuit"
        End With
    End If
End With
End Sub

Sub Jour()
ActiveCell.ClearComments
ActiveCell.AddComment "Jour"
End Sub

Sub Nuit()
ActiveCell.ClearComments
ActiveCell.AddComment "Nuit"
End Sub
Le code dans ThisWorkbook :
Code:
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.CommandBars("Cell").Reset 'RAZ
End Sub
Je ne sais pas si ces codes fonctionneront sur MAC.

A+
 

Pièces jointes

  • TEST COMMENTAIRES(1).xlsm
    21.3 KB · Affichages: 9

Discussions similaires

Réponses
8
Affichages
167

Statistiques des forums

Discussions
312 209
Messages
2 086 275
Membres
103 170
dernier inscrit
HASSEN@45