XL pour MAC Les commentaires dans excel

Nono1835 · 18 Mai 2023

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 · 19 Mai 2023

@Nono1835
Je ne sais toujours pas si tu as réussi à reproduire mon exemple
J'aimerais bien le savoir
Histoire que mes copies d'écran et explications ne furent pas faites en vain.

Nono1835 · 19 Mai 2023

Staple1600 à dit:
@Nono1835
Je ne sais toujours pas si tu as réussi à reproduire mon exemple
J'aimerais bien le savoir
Histoire que mes copies d'écran et explications ne furent pas faites en vain.

Nono1835 · 19 Mai 2023

Bonjour
J’ai essayé de le reproduire sur mon fichier final mis ça bug

Staple1600 · 19 Mai 2023

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 · 19 Mai 2023

Staple1600 à dit:
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 · 19 Mai 2023

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+

Nono1835 · 19 Mai 2023

Merci à tous
bon je vais bien me concentrer et essayer de recopier tout cela vers mon fichier final , car la s'est du haut niveau de prog . en même temps très intéressant j'apprends plein de choses
merci

Nono1835 · 19 Mai 2023

Nono1835 à dit:
Merci je vais retenter à tête reposée ce soir, et si je n’y arrive pas je reviendrai vers toi
Merci encore

bonjour
ca ne marche pas , et je ne vois pas ou j'ai loupé quelque chose

TooFatBoy · 19 Mai 2023

Bonjour,

Nono1835 à dit:
ca ne marche pas , et je ne vois pas ou j'ai loupé quelque chose

Est-ce que tu arrives à faire fonctionner le classeur de #22 ?

Nono1835 · 19 Mai 2023

TooFatBoy à dit:
Bonjour,

Est-ce que tu arrives à faire fonctionner le classeur de #22 ?

re
non je pense que je fais pas le copier coller au bon endroit

TooFatBoy · 19 Mai 2023

Nono1835 à dit:
non je pense que je fais pas le copier coller au bon endroit

Je parle simplement du fichier de #22 en lui-même, pour l'instant.

Il est complet. Tu n'as rien à faire si ce n'est le lancer et le tester.

Nono1835 · 19 Mai 2023

TooFatBoy à dit:
Je parle simplement du fichier de #22 en lui-même, pour l'instant.

Il est complet. Tu n'as rien à faire si ce n'est le lancer et le tester.

re
voici la capture ecran quand je fais clic droit

TooFatBoy · 19 Mai 2023

Nono1835 à dit:
voici la capture ecran quand je fais clic droit

On y voit bien les deux lignes supplémentaires : Jour et Nuit, dans la partie concernant les commentaires.

Tu cliques dessus et ça t'ajoute un commentaire.

Nono1835 · 20 Mai 2023

TooFatBoy à dit:
On y voit bien les deux lignes supplémentaires : Jour et Nuit, dans la partie concernant les commentaires.

Tu cliques dessus et ça t'ajoute un commentaire.

oups ok
désolé je cherchais pas cela , je m'attendais a un menu déroulant autre .....
du coup a quel endroit je doit alimenter ma liste de commentaires
merci

TooFatBoy · 20 Mai 2023

Nono1835 à dit:
du coup a quel endroit je doit alimenter ma liste de commentaires

Je n'ai pas regardé le code, mais je suppose que c'et dans le tableau de l'autre feuille.

[edit]
Je viens de regarder et en fait actuellement c'est en dur dans les macros de la feuille Feuil2.
[/edit]

XL pour MAC Les commentaires dans excel

Nono1835

XLDnaute Occasionnel

Staple1600

XLDnaute Barbatruc

Nono1835

XLDnaute Occasionnel

Nono1835

XLDnaute Occasionnel

Staple1600

XLDnaute Barbatruc

Nono1835

XLDnaute Occasionnel

job75

XLDnaute Barbatruc

Pièces jointes

Nono1835

XLDnaute Occasionnel

Nono1835

XLDnaute Occasionnel

TooFatBoy

XLDnaute Barbatruc

Nono1835

XLDnaute Occasionnel

TooFatBoy

XLDnaute Barbatruc

Nono1835

XLDnaute Occasionnel

Pièces jointes

TooFatBoy

XLDnaute Barbatruc

Nono1835

XLDnaute Occasionnel

TooFatBoy

XLDnaute Barbatruc

Discussions similaires