Microsoft 365 bouton pour un userform

[C'est Génial]

Bonjour,

J'ai un tableau avec un planning, quand je clique sur la souris côté droit, il apparait une question : Ajouter une tâche pour l'ouvrier,
est ce que c'est possible d'avoir un bouton sur la feuille excel ou apparait automatique cet Userform tache s'il vous plait car parfois le clic droit ne marche pas.
Je vous mets mon fichier ci-dessous,
Merci beaucoup

 

[sylvanu]

Bonjour,
Si j'ai bien compris, il suffit de mettre un bouton et d'y attacher la macro :

Sub Tache()
UserForm_Tâche.Show
End Sub

 

[C'est Génial]

Bonjour,
Si j'ai bien compris, il suffit de mettre un bouton et d'y attacher la macro :

Sub Tache()
UserForm_Tâche.Show
End Sub

je l'ai fait mais ça ne marche pas j'ai UserForm_tâche.Show en jaune

 

[sylvanu]

Re,
Oups, exact. Ca n'a marché qu'une fois ... et je ne comprends pas pourquoi.
Désolé, je vais essayer d'approfondir.

 

[job75]

Bonsoir C'est Génial, sylvanu,

Le code utilisé dans Module_UserFormInterface (avec la fonction GetInterfaceValue) n'a pas l'air bien au point.

Ça paraît assez compliqué, par curiosité qui vous a fait ça ?

A+

 

[Dan]

Bonjour

Bonjour,

J'ai un tableau avec un planning, quand je clique sur la souris côté droit, il apparait une question : Ajouter une tâche pour l'ouvrier,
est ce que c'est possible d'avoir un bouton sur la feuille excel ou apparait automatique cet Userform tache s'il vous plait car parfois le clic droit ne marche pas.
Je vous mets mon fichier ci-dessous,
Merci beaucoup

Si j'ai bien compris ce que vous voulez faire avec le clic droite, il suffit de modifier cette macro dans la feuille Planning en ajoutant l'appel au code Tache

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
    Call WorksheetBeforeRightClick(Target, Cancel)
    If Not Cancel Then Call Tache
End Sub

Cela fonctionne bien chez moi.

Pour le bouton sur la feuille, je n'ai pas trop compris puisqu'il s'y trouve déjà et fonctionne

Cordialement

 

[Dranreb]

Bonjour
Trouvé ça dans le Module_UserFormInterface :

'Le Dictionary n'accepte pas directement les objets
'Il faut les stocker sous forme de table

Faux ça ! Tout comme les Collection les membres d'un Scripting.Dictionary peuvent être des objets. Pour l'utilisation en mode de stockage avec création implicite si nécessaire, il est même équipé d'une Property Set Item(ByVal Key, ByVal RHS As Object)
De toute façon je trouve ce module assez inutile s'il ne sert qu'a communiquer avec les UserForm car on peut largement équiper ces derniers de toutes méthodes et propriétés personnalisées souhaitées.

 

[job75]

Bonjour le forum,

Perso je n'ai pas trop essayé de comprendre la fonction GetInterfaceValue.

Pour éviter le bug à l'ouverture de l'UserForm j'ai remplacé dans cette fonction :

GetInterfaceValue = Null

par :

GetInterfaceValue = IIf(ValueID = "jJourSemaine", 1, "")

et dans UserForm_Initialize j'ai remplacé :

Me.ComboBoxOuvrier.ListIndex = GetInterfaceValue("iOuvrier") - 1

par :

Me.ComboBoxOuvrier.ListIndex = Val(GetInterfaceValue("iOuvrier")) - 1

A+

 

[sylvanu]

Re,
@job,
J'ai testé votre fichier, et cela ne semble pas fontionner.
L'userform s'ouvre bien, et on peut le remplir. Cependant quand on valide rien n'est enregistré dans la feuille. Contrairement à un clic droit.
Comme tout se mord la queue, dans ses macros je ne suis pas sur qu'il existe une solution simple au souci du demandeur.

 

[job75]

J'ai juste cherché à ouvrir l'UserForm sans bug comme demandé, la mise au point du projet c'est l'affaire du demandeur.

 

[sylvanu]

ouvrir l'UserForm sans bug comme demandé

La demande est de remplacer un clic droit par l'appui sur un bouton, implicitement "et de remplir la même fonctionnalité".
Et là je sèche, je tourne en rond. J'espère que quelqu'un trouvera, je suis curieux de lire la solution.

 

[sylvanu]

Re,
Une bidouille qui semble marcher :
1- Je capture la cellule cliquée gauche avec dans la feuille Planning :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Target2 = Target.Address
End Sub

2- Dans le module standard Module_AppuiBouton :

Public Target2
Sub AppuiBouton()
    ChargerTabColonnesTâches
    Call WorksheetBeforeRightClick(Range(Target2), 0)
End Sub

Tout semble fonctionné : on clic gauche sur la cellule à modifier puis on appui sur le buton gris.
... sauf à trouver un effet de bord indésirable.

 

[C'est Génial]

Re,
Une bidouille qui semble marcher :
1- Je capture la cellule cliquée gauche avec dans la feuille Planning :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Target2 = Target.Address
End Sub

2- Dans le module standard Module_AppuiBouton :

Public Target2
Sub AppuiBouton()
    ChargerTabColonnesTâches
    Call WorksheetBeforeRightClick(Range(Target2), 0)
End Sub

Tout semble fonctionné : on clic gauche sur la cellule à modifier puis on appui sur le buton gris.
... sauf à trouver un effet de bord indésirable.

Bonjour
Merci sylvanu je vais regarder ça demain au bureau. Vous avez absolument compris le problème. Sinon on va pas se torturer la tête on va laisser comme ça.
Je tiens à dire un grand merci à tous de m’accepter de votre temps pour résoudre des problèmes. C’est tellement important de nos jours de pouvoir partager surtout quand on nous demande toujours de plus en plus avec peu de temps.

 

[job75]

Bonjour C'est Génial, sylvanu,

A priori pour remplacer le clic droit par le bouton il suffit de mettre dans Module_OuvrirTache :

Sub Tache()
Call WorksheetBeforeRightClick(ActiveCell, True)
End Sub

A1+

 

[C'est Génial]

Bonjour C'est Génial, sylvanu,

A priori pour remplacer le clic droit par le bouton il suffit de mettre dans Module_OuvrirTache :

Sub Tache()
Call WorksheetBeforeRightClick(ActiveCell, True)
End Sub

A1+

Bonjour job75,

Un grand merci à vous,
C'est exactement ce qu'il me faut,
Excellente journée, à vous