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,

 

[Usine à gaz]

J'essaie de le dire autrement

1 - Si je sélectionne un commentaire dans la catégorie "Rappels", je dois choisir un commentaire dans la catégorie "Vendeur OK rappel"
et l"écriture dans la cellule se fait avec les 2 commentaires en même temps.

2 - Si je sélectionne un commentaire dans la catégorie "Ne pas rappeler" l'écriture dans la cellule se fait immédiatement
j'espère (pas sur) être plus clair

 

[patricktoulon]

2 - Si je sélectionne un commentaire dans la catégorie "Ne pas rappeler" l'écriture dans la cellule se fait immédiatement
j'espère (pas sur) être plus clair

donc la 2 sans commentaire
c'est exactement le contraire de ce que tu a dis juste avant
tu sais ou tu a mal ???

 

[Usine à gaz]

"2 - Si je sélectionne un commentaire dans la catégorie "Ne pas rappeler" l'écriture dans la cellule se fait immédiatement"

Si : la 2 avec son commentaire sélectionné

 

[patricktoulon]

quel!!!! commentaire???????????????????????????????????????????????????
ma parole t'es bouché c'est pas possible!!!

 

[patricktoulon]

bon version3 eprouvette a tester
change l'appel dans le rightclick de la feuille

Sub CreatePopupMenupat3()
    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
    Set f = Sheets("Motifs et glossaire")
    Set MaBarre = Application.CommandBars.Add(Name:="MenuContextuelPerso", Position:=msoBarPopup)
    For i = 1 To 27
        If Not ActiveCell.Text Like "*" & f.[c3].Text & i & "*" Then
            Set pop1 = MaBarre.Controls.Add(msoControlPopup): pop1.Caption = f.[c3].Text & i
            Exit For
        End If
    Next
    For c = 5 To f.Cells(Rows.Count, "C").End(xlUp).Row
        Set bout = pop1.Controls.Add(msoControlButton)
        bout.Caption = f.Cells(c, "c"): bout.Tag = pop1.Caption: bout.OnAction = "Remplir3"
    Next

    Set pop2 = MaBarre.Controls.Add(msoControlPopup): pop2.Caption = f.[c4].Text
    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 Remplir3()
With CommandBars.ActionControl: comm = .Tag & " - " & .Caption: End With
  With ActiveCell
        If .Value <> "" Then .Value = .Value & " "
        .Value = .Value & Format(Date, "dd/mm/yy") & " - " & comm & " -"
    End With

End Sub

j'ai pas fait le pop2 je comprends pas ton argumentation

 

[Usine à gaz]

Merci Patrick, je vais tester tout à l'heure

 

[patricktoulon]

ps ton tableau c'est ca maintenant
b et c

Catégorie	Raison
RAPPELS	Rappel Msg
NE PAS RAPPELER	Ne pas rappeler Msg
Vendeur OK rappel	N'a pas dit
	OUI
	OUI + OK RDV SPV
	NON
Fin tableau	Fin tableau

 

[Usine à gaz]

Bonjour Patrick, le Forum,
J'ai testé dans tous les sens mais je n'arrive pas à faire fonctionner le fichier
je dois reprendre mon boulot à 7h et je vais me coucher.

Merci pour tout ce que tu as fait
Bonne nuit,
lionel,

 

[Usine à gaz]

Tu as déjà bcp travaillé et passé du temps et je t'en remercie
Je vais voir autre chose et je te dirai.
Bonne nuit
lionel,

 

[Usine à gaz]

Bonjour Patrick, Marcel, le Forum;
LOL impossible de dormir avec mon souci non résolu ! Je vais être frais demain pour travailler lol
J'ai avancé sur mon besoin:
J'ai pensé à procéder en 2 temps, c'est à dire en créant 2 "menus contextuels et ... ça fonctionne presque "tout' bien
Cela m'a obligé à doubler le code et il me reste un souci :

UNIQUEMENT Si je sélectionne un commentaire dans la catégorie "RAPPELS",
doit m'envoyer avec "CreatePopupMenu2" à la catégorie "OK rappel" pour choix d'un second commentaire

Mais il m'y envoie aussi si je sélectionne "NE PAS RAPPELER"
Je ne sais pas comment lui dire de ne pas m'y envoyer dans ce cas
Fichier joint
Auriez-vous la solution ?
Big MERCI
lionel,

 

[TooFatBoy]

Mais il est quelle heure chez toi Yoyo ?

 

[Usine à gaz]

LOL Il est 4h21 et je me lève (si je me couche) à 7heures

 

[Usine à gaz]

J'ai plus les yeux en face des trous, je file tenter de dormir. Bonne nuit Marcel

 

[TooFatBoy]

Ah oui, donc tu es en métropole, en fait.
Merci, bonne nuit à toi et bon courage pour "te lever" pour le boulot...

@+

 

[Usine à gaz]

Pour info, j'habite en Tunisie près de Tunis