XL pour MAC Les commentaires dans excel

  • Initiateur de la discussion Initiateur de la discussion Nono1835
  • Date de début Date de début

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 !

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
 
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
 
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 👍
 
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

- 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

Discussions similaires

Réponses
8
Affichages
260
Retour