Microsoft 365 menu_contextuel (Marcel32)

  • Initiateur de la discussion Initiateur de la discussion Usine à gaz
  • 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 !

Usine à gaz

XLDnaute Barbatruc
Supporter XLD
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 :

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,
 

Pièces jointes

Dernière édition:
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
 
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
VB:
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

Capture.JPG


demo
demo4.gif
 

Pièces jointes

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,
 
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
1588700975503.png
 

Pièces jointes

  • 1588701189392.png
    1588701189392.png
    252.2 KB · Affichages: 21
Dernière édition:
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,
 
- 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

Retour