Microsoft 365 menu_contextuel (Marcel32)

[Usine à gaz]

Bonjour à toutes et à tous,
J'espère que vous allez bien

Il y a quelques temps, Marcel32, m'avait demandé de tester sur office365 un code fait pour un demandeur :

Microsoft 365 - Création d'infos bulles/menus contextuels de motifs dans un planning d'activités

Bonjour, Dans le cadre de mon activité professionnelle, j'ai créé un glossaire de motifs d'absences/activités. Les motifs d'absences et d'activités sont intégrés dans un planning à partir d'un menu déroulant. L'idée est de faciliter le choix du bon motif en intégrant une info-bulle lors de la...

www.excel-downloads.com

Bien lui en a pris et je l'en remercie .
J'ai testé son fichier et au fil des tests une "idée", pour mon fichier de travail, m'est apparu (OUI ça m'arrive lol) :

Dans mon fichier de travail j'utilise des UserForm "successifs" pour commenter nos appels
Est-de la cause de certains ralentissements d'exécution de code, je ne sais pas vraiment !

Toutefois, "l'idée" qui m'est venue est de voir pour remplacer ces UserForm par le code "menu_contextuel" de Marcel32 qui est instantané en exécution.
J'ai avancer et modifier "un peu" la codification pour que ça puisse fonctionner dans mon fichier.

Il me reste plusieurs adaptations à coder que je ne sais pas faire et je fais appel à votre aide :
Onglet Motifs et Glossaire
obligé de doubler les motifs pour que ça fonctionne
ma demande
Serait-il possible que ça fonctionne uniquement avec col B et C ?

Onglet Planning
ma demande
si sélection catégorie "Rappels"
1 - envoie sélection "Vendeur OK rappel" avant écriture du texte
2 - pas de date devant "Vendeur OK rappel"
3 - écriture du texte après sélection

Auriez-vous la solution ?
Je joins un fichier test.

Avec mes remerciements,
Je vous souhaite à toutes et à tous un beau dimanche,
Amicalement,
lionel,

 

[patricktoulon]

re
bonjour Lionel
c'est quoi ce truc pourquoi tu a besoins de doubler ???????????

construire un popup sur la base d'un range il n'y a rien de plus simple
et j'ajouterais meme que l'on peu se passer de 90% des lignes de la table

 

[Usine à gaz]

Bonjour patrick,
Merci pour m'avoir répondu mais je ne sais pas faire ça
Je vais voir sur le net,
lionel,

 

[patricktoulon]

je regarde et je reviens
je repart a zero

 

[patricktoulon]

deja pour commencer
regarde avec quoi je construit ton menu contextuel

 

[Usine à gaz]

Re Patrick,
Merci, ça à l'ai super
Tu veux bien me mettre le code pour que ça m'évite de le ressaisir pour que je vois comment je peux faire avec ?
lionel,

 

[patricktoulon]

attends je te fait mieux encore

 

[Usine à gaz]

Tu es vraiment génial ... de la à t'épouser , il n'y a q'1 pas lol

 

[TooFatBoy]

Bonjour,

Il me reste plusieurs adaptations à coder que je ne sais pas faire et je fais appel à votre aide :
Onglet Motifs et Glossaire
obligé de doubler les motifs pour que ça fonctionne
ma demande
Serait-il possible que ça fonctionne uniquement avec col B et C ?

Ce que j'avais proposé en fonction de ce qui avait été demandé, c'était une 1ère colonne avec l'intitulé apparaissant dans le menu, et une 2de colonne avec le libellé bref devant apparaître lors de la sélection de l'intitulé correspondant.

Mais sa liste étant très longue, j'avais transformé le tableau servant à générer le menu contextuel pour permettre de regrouper des intitulés en catégories.

1ère colonne : intitulé ou catégorie, apparaissant dans le menu contextuel.

2ème colonne :
- inutile si la 1ère colonne contient un intitulé,
- intitulé si la 1ère colonne contient une catégorie ou rien.

- 3ème colonne : libellé devant apparaître quand on sélectionne un intitulé.


Tu vois qu'il n'y a aucune raison de doubler quoi que ce soit.
Mais il faut probablement adapter, car je doute que tes besoins soient exactement les mêmes, camarade.

 

[Usine à gaz]

Bonjour Marcel,
J'espère que tu vas bien
Effectivement, mon besoin n'est pas exactement le même
lionel,

 

[TooFatBoy]

Oui, moi ça va.
J'espère que toi aussi.

Porte-toi bien, camarade.

 

[patricktoulon]

Tu es vraiment génial ... de la à t'épouser , il n'y a q'1 pas lol

ben je t'aime bien mais tu sais MAIS .......de là a prendre cupidon à l'envers je me sent pas prêt encore

bon donc reprenons ton fichier en exemple
on vire le module 1 hop!!! poubelle
on vire le module 2 hop!!! poubelle
dans ta table pour menu on la modifie comme ceci

ensuite on met un nouveau module
et on lui colle ce code

Option Explicit
Sub CreatePopupMenupat()
    Dim MaBarre As CommandBar, i&, MaRef As Range, t$, nombre&, cell As Range, ctrlparent As Object, bout
    On Error Resume Next
    Application.CommandBars("MenuContextuelPerso").Delete
    Err.Clear
    With Sheets("Motifs et glossaire"): Set MaRef = .Range("B3", .Cells(Rows.Count, "B").End(xlUp).Offset(-1)): End With
    Set MaBarre = Application.CommandBars.Add(Name:="MenuContextuelPerso", Position:=msoBarPopup)
    For Each cell In MaRef.Cells
        t = cell.Offset(, 1).Text
        If cell <> "" Then
            Set ctrlparent = MaBarre.Controls.Add(msoControlPopup, , , , True)
            ctrlparent.Caption = cell
        End If
        nombre = cell.Offset(, 2).Value
        If Val(nombre) > 0 Then
            For i = 1 To nombre
                If Not ActiveCell.Text Like "*" & t & i & "*" Then
                    Set bout = ctrlparent.Controls.Add(msoControlButton)
                    With bout: .Caption = t & i: .OnAction = "Remplir": .Tag = i: End With
                End If
            Next
        End If

    Next
    MaBarre.ShowPopup
    'la barre est Autodestructible(pas besoin de la supprimer a la fermeture du fichier!!!!!)
    On Error Resume Next
    Application.CommandBars("MenuContextuelPerso").Delete
    Err.Clear
End Sub
Sub Remplir()
    Dim itemChoisi$
        itemChoisi = CommandBars.ActionControl.Caption
    With ActiveCell
        If .Value <> "" Then .Value = .Value & " "
        .Value = .Value & Format(Date, "dd/mm/yy") & " - " & itemChoisi & "-"
    End With
End Sub

dans le beforerightclick de la feuille

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
    If Not Intersect(Target, [s:s]) Is Nothing Then
        Cancel = True
        CreatePopupMenupat
    Else
        Cancel = False
    End If
End Sub

voila tu es parré
a chaque item que tu met il est éliminé du menu et cela indépendamment pour chaque cellule
demonstration

et on peu faire bien mieux encore
et il est auto destructible en prime

 

[Usine à gaz]

Merci Patrick ... je teste

 

[TooFatBoy]

Je ne sais pas quel est ton réel besoin, mais si j'en crois l'animation #12, le sous-menu me semble totalement inutile et donc tu dois pouvoir simplifier son code et surtout la vie de l'utilisateur (c'est toujours ce qui compte le plus : rendre l'utilisation la moins désagréable possible).

 

[patricktoulon]

bonjour marcel32 je suis en train de lui faire justement
il y aura q'un item de chaque (le manquant )