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,

 

[TooFatBoy]

Je ne suis pas epxert en codage, mais le fait que tu aies doublé la fabrication du menu ne me semble pas gênant.

 

[Usine à gaz]

Si, car c'est certainement pas terrible comme "codage"... et pour l'inclure dans "mon usine à gaz" ? lol
et comme dit Patrick, je suis prévenu ... et il a raison sur ce point

 

[TooFatBoy]

Oui, nous sommes d'accord sur ces deux points (ton usine à gaz et tu es prévenu).

 

[Usine à gaz]

Mais elle fonctionne nickel mon usine à gaz et sans les membres du Forum, j'aurais pas pu le faire
Je ne sais pas si ce sera vu mais .... A VOUS TOUTES ET TOUS, JE NE VOUS REMERCIERAI JAMAIS ASSEZ
et même si je suis encore nul en codage, je suis devenu expert en "bidouillage" de codes LOL

 

[TooFatBoy]

Si c'est fonctionnel, stable et rapide, c'est déjà très bien, je trouve.

Bonne continuation, camarade !
@+

 

[Usine à gaz]

Merci Marcel à toi aussi

 

[patricktoulon]

je te l'ai fait en un t'en a pas voulu
il est hyper simple
tu voulais que B et C je te le donne avec seulement "B"

au lieu de 2 menu le menu 2 et enfant du 1 et le 1 change en fonction de ce qui est déjà présent dans la cell

Sub CreatePopupMenupat3()
    Dim MaBarre As CommandBar, i&, MaRef As Range, t$, nombre&, cell As Range, ctrlparent As Object, bout
   Set f = Sheets("Motifs et glossaire")
    If InStr(ActiveCell.Value, f.[B4].Text) > 1 Then MsgBox " non il ne faut pas rapeller": Exit Sub
    On Error Resume Next
    Application.CommandBars("MenuContextuelPerso").Delete
    Err.Clear
     Set MaBarre = Application.CommandBars.Add(Name:="MenuContextuelPerso", Position:=msoBarPopup)
    For i = 1 To 27
        If Not ActiveCell.Text Like "*" & f.[B3].Text & i & "*" Then
            Set pop1 = MaBarre.Controls.Add(msoControlPopup): pop1.Caption = f.[B3].Text & i
            Exit For
        End If
    Next
    For c = 5 To f.Cells(Rows.Count, "B").End(xlUp).Offset(-1).Row
        Set bout = pop1.Controls.Add(msoControlButton)
        bout.Caption = f.Cells(c, "B"): bout.Tag = pop1.Caption: bout.OnAction = "Remplir3"
    Next

    Set bout = MaBarre.Controls.Add(msoControlButton): bout.Caption = f.[B4].Text
    bout.OnAction = "remplir3"
    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 = IIf(.Tag <> "", .Tag & " - ", "") & .Caption: End With
  With ActiveCell
        If .Value <> "" Then .Value = .Value & " "
        .Value = .Value & Format(Date, "dd/mm/yy") & " - " & comm & " -"
    End With

End Sub

demo

 

[Usine à gaz]

Tu as un coeur en or et T'es super Patrick
Ne m'en veut pas de t'avoir un peu charrié dans les précédents messages mais tu le méritais lol.

Merci Patrick, je vais tester
lionel,

 

[Usine à gaz]

Re-Patrick,
Je suis vraiment désolé mais ça n marche pas.
Je dois sélectionner le message à faire apparaître.
J'aimerais tellement que tu puisses tester mon fichier du #Post 61 et tu verrais vraiment quel est mon besoin
lionel,

 

[patricktoulon]

Je suis vraiment désolé mais ça n marche pas.
Je dois sélectionner le message à faire apparaître.

quand je dis que tu n'est pas tout seul dans ta tète toi j'ai vraiment raison
et le tien tu fait quoi??
tu click droite , tu sélectionne un msgb X , puis l'autre menu s'ouvre , et tu sélectionne le comm donc 4 actions

le mien
tu clickdroit c'est de suite le manquant qui s'affiche et le menu c'est les comm et c'est tout

il n'y a absolument aucunnnnnnnnnnnne raison que ça ne fonctionne pas chez toi c'est du basique de chez basique comme code
j'ai tester sur
2007 32 ok
2013 32 ok
2016 64 ok

bref un homme prévenu en vaut 2

et puis sincerement tu trouve ca pratique toi

 

[Usine à gaz]

Mon Cher Patrick,
Il n'y a pas assez de place dans ma tête pour d'autres et je suis bien seul à m'en servir lol.
Je te demande un moment et je vais te faire une animation pour te montrer comment mon fichier fonctionne.
lionel,

 

[patricktoulon]

montre moi l'animation avec le mien de fichier
j'ai vu aussi que tu a modifier le pas rappeler moi j'avais pas cette information je le fait a l'identique

 

[Usine à gaz]

Patrick, j'ai téléchargé ton dernier fichier et je t'assure que ça ne fonctionne pas mais je te ferai également une animation

 

[Usine à gaz]

Bonsoir Marcel32, Patrick
@patrick,
Ci-dessous l'animation du fichier (clic droit) de ton #Post85 :

Ci-dessous le fonctionnement de mon fichier (clic gauche) :

Je reste à "l'écoute"
lionel,

 

[patricktoulon]

bon j'en pige pas plus tu veux quoi exactement
d'autant plus qu'il y a des item que j'ai pas
dis moi si j'ai tout bon
1 er menu rappeler msgX+com
si NPR... déjà présent on fait quoi????????????

ET DONNE LA LISTE DES ITEMS