Insérer des formes dans un planning via un userform Résolu

Question

Bonjour,

Tout d'abord j'espère que vous vous portez bien. je viens demander votre aide. N'étant pas très doué sur VBA, j'ai fais un planning pour le travail où il y a des MFC pour les couleurs des week-ends notamment. Bref !

Je cherche à faire en sorte que, en sélectionnant une plage de données, par exemple de A1 à A6 et en faisant clic droit, ça affiche mon Userform1.

Ensuite, sur cet userform1, il y a des boutons (congés, missions, divers...) et une case commentaire nommée "Description de l’activé". J'aimerais que quand je clique sur l'un de ces boutons et que je mets un commentaire, que cela affiche sur la plage de donnée initialement sélectionnée (A1 à A6 pour l'exemple) une forme rectangulaire (de la couleur des boutons sur le Userform1) comme dans l'exemple que je mets en pièce jointe, et que dessus apparaisse le commentaire mis sur l'Userform1.

Je ne sais pas si je suis clair ou non. Je vous mets le tableau que j'ai fait et le modèle que j'ai trouvé mais dont je ne comprends pas le fonctionnement...merci par avance !!!

Mon planning :
https://www.cjoint.com/c/KIhsLAo80cT

Exemple trouvé :
https://www.cjoint.com/c/KIhsMfVPjYT

f894009 · Answer

Bonjour,

comprends pas le fonctionnement
Ben oui, vous n'avez ptete pas ouvert le bon fichier.

Dans le Zip, y a plusieurs fichiers, dont celui-ci, qui est plus parlant: Activités+_31janv2021.xlsm
La selection plage doit etre horizontale pour que ca demarre

Explication ici:http://tatiak.canalblog.com/

Remi2236 · Answer

Bonjour,

C'est bien le fichier Activités+_31janv2021.xlsm  et j'ai bien compris que la sélection doit être horizontale, mais je voulais dire que je ne comprends pas comment faire pour qu'en sélectionnant une plage de donnée sur mon tableau cela affiche l'userform que j'ai créé et qu'en fonction de ce que je remplis ou choisi sur celui-ci, cela affiche sur ma plage de donnée sélectionnée une forme comme dans le fichier Activités+_31janv2021.xlsm.

f894009 · Answer

Re,
comment faire pour qu'en sélectionnant une plage de donnée sur mon tableau

Votre selection est comment? Parce que A1:A6, pas vraiment le bon exemple

Je regarde la chose. J'ai deja eu a modifier un fichier du meme type TaTiak

Remi2236 · Answer

Re,

Ma sélection ce serait une ou plusieurs cases en horizontal sur la plage C4:NC51 et qu'en faisant clic droit le userform1 apparaisse, et que je choisisse l'une des cases de couleur que j'ai mise sur mon tableau :

https://www.cjoint.com/c/KIhsLAo80cT

et qu'après avoir mis un commentaire sur le userform1, que sur la plage sélectionnée, par exemple C4:C6, il apparaisse un rectangle dans la bonne couleur et avec au milieu le commentaire.

Remi2236 · Answer

Re,

Oui pardon...je suis au boulot, je n'ai pas fait attention désolé. Du coup correction C4:E4 par exemple.

f894009 · Answer

Bonjour,

Le fichier model est trop long a modifier. Je part sur un projet beaucoup plus simple.

Y aura-t-il toujours un commentaire Description Activite?

f894009 · Answer

Re,

Ok.
Je prends quand meme m'inspirer des procedures du fichier exemple que je vais modifier a ma sauce pour avoir kake chose de presentable.
Demandera un peu de temps, patience

Remi2236 · Answer

Bonjour,

Aucun souci, c'est déjà très gentil de votre part de prendre du temps pour ça.

f894009 · Answer

Bonjour,

J'ai pas mal avance. Les formes s'affiches au bon endroit, couleur du bouton cliquer.
J'ai agrandi les cellules car elles etaient un peu juste, mais c'est vous qui verrez.
Cote commentaire, pour le moment je l'affiche dans la forme mais ou doit il etre.

Aurez vous besoin des jours debut/fin sur la forme

Fonctions:
Creation
selection plage
click droit
UF_Activtie s'ouvre
vous choisisez une option
vous saisissez un commentaire
Choix: valider ----> la forme se cree
            Fermer----> Rien ne se cree, l'UF se ferme

Modification/suppression
Seulement sur click d'une forme, la feuille est protegee pour eviter les suppressions de formes a l'insu de votre plein gre.
Avec les deux fichiers de tatiak que j'ai eu a modifier, c'est une chose un peu curieuse qu'il soit possible de supprimer les formes 
 si simplement. Je vous informerai plus en detail une fois tout ok

Click sur une forme:
L'UF_Activite s'ouvre avec un bouton supprimer en plus
Vous pourrez:
  _Modifier l'option et la valider (la plage ne peut etre modifiee)
  _Fermer l'UF sans rien changer
  _Supprimer la forme selectionnee

Ces fonctions sont codees, sauf la partie modif pour les infos et couleur, mais pas tres long a faire

Par contre, pour ce fichier:
   _le code couleur est connu de tous ou que de vous 
  _qui va l'utiliser

J'attends vos souhaits pour continuer

Remi2236 · Answer

Bonjour, c'est super ! C'est exactement ce que je cherchais à faire. 
Pour le code couleur, il est et sera connu que des cadres. Et pour l'utilisation, ce ne sera disponible que par les cadres (moi compris).
Je pensais mettre un mot de passe à l'ouverture du fichier Excel pour avoir le droit de le modifier tout simplement. Je ne sais pas si vous avez une meilleure idée ?

Cordialement,

Rémi

f894009 · Answer

Re,

Ok, vous mettrez ce que vous voudrez a l'ouverture du fichier, vu les personnes qui l'utiliserons.

Cote commentaire(decription .....), je le mais ou?

Me restera aussi a ajouter des tests pour d'eventuelles erreurs

Remi2236 · Answer

Re,

Le commentaire j'aimerais qu'il apparaisse centré sur la forme qui apparait sur le planning.
Par exemple, si dans commentaire je note "congé parental", que sur le rectangle qui apparaisse "congé parental" centré sur le rectangle qui se met sur la plage de donnée sélectionnée initialement.

Merci vraiment infiniment pour l'aide que vous donnez, ça me touche

f894009 · Answer

Re,

Ok, mais n'ecrivez pas un livre

f894009 · Answer

Re,

Ok, pour le moment c'est texte dans forme.

Pour vous faire la main et le cerveau, fichier :
 https://www.cjoint.com/c/KInqMG2TARf

Mot de passe provisoire pour feuille Planning votre prenom si dans votre pseudo ccm et le bon

Si vous deprotegez la feuille Plannig, changez de feuille pour avoir la protection ah des couates, pas faire protection feuille

Me reste la recuperation des infos sur click forme existe (bouton opt et texte)

A vous de tester et donner les infos sur ce qui cloche et vos ameliorations souhaitees

Remi2236 · Answer

Re,

C'est super ! Juste, est-ce que c'est possible que l'userform s'ouvre en faisant clic droit sur une seule case ? Car j'ai des personnels qui ont des activités ou des absences sur la journée.
Sinon c'est top merci !

f894009 · Answer

Bonjour,
Ok, ai pas vérifié cette éventualité.
La selection sur plus d'une ligne n'est pas verrouillé 

Je regarde la chose.
Pour une cellule, le texte devra être plutôt court

Remi2236 · Answer

Re,

Désolé de ce ènième message. Je viens de penser à une chose qui règlerait peut-être le souci.

Est-ce que à la place de "description" dans le userform on pourrait mettre "titre" et que ce soit un texte très court que l'on mette dedans et que ce soit ça qui apparaisse sur le rectangle dans la plage de donnée sélectionnée.

Et que en dessous de la case "titre", on puisse mettre un espace commentaire, qui lui apparaitrait en info bulle en passant la souris sur la cellule ?

par exemple, si je sélectionne les cellules E6:G6 et que je sélectionne la couleur jaune, que je mette en titre "congés mat" et en commentaire "validé RH" et bien que sur le rectangle qui apparaisse sur la plage E6:G6 il y est écrit "congés mat" et qu'en passant la souris dessus, une info-bulle apparaisse avec marqué "Validé RH".

Je ne sais pas si c'est faisable ou si c'est vraiment trop compliqué. 

Et en regardant, je voulais savoir s'il était possible qu'en cliquant sur un rectangle déjà créé, que le commentaire et le titre qui était inscrits apparaissent ? Car de fait, lorsque l'on veut modifier un rectangle, c'est vide lorsqu'on l'ouvre.

Merci d'avance pour votre réponse. Mais prenez votre temps, c'est pour mon planning 2022. J'ai déjà des remords par rapport à tout le travail que vous fournissez...si je peux aider en quoi que se soit dite le moi.

Rémi

f894009 · Answer

Re,



une info-bulle apparaisse avec marqué "Validé RH".
Ce genre d'infos peut faire parti d'une liste?
Cette info sera saisie en meme temps que la creation de la forme ou pourra etre saisie plus tard?

Ce qui est fait actuellement: texte decrip dans un commentaire de la premiere cellule de la selection et rien dans forme. Cecommentaire est visible en passant la souris sur la forme

Je ne sais pas si c'est faisable ou si c'est vraiment trop compliqué.
Vu que je viens de vire le code pour ecrire dans forme, je le remettrai (j'ai tout sauvegarde)

Vous serez-t-il possible d'affecter vos couleurs a une categorie d'infos, exemple Absence, Mission et divers peuvent etre des categorie avec liste d'actions

Remi2236 · Answer

Re,

Pour l'info-bulle, non ça varie constamment ce que l'on peut y mettre. Si ça pose souci, je vais essayer de trouver autre chose.

On peut faire des listes par couleur mais ça risque de faire des listes déroulantes assez longues. Du coup, je pensais à toujours cliquer sur le bouton de couleur pour donner la couleur du rectangle qui apparait sur la plage de données, et l'espace qui s'appelle actuellement "description", le transformer en "titre" et que cela apparaisse dans le rectangle (ça restera des données courtes (comme AA, PLD, congé mat...etc). 

Après, si c'est possible que l'on mette une autre zone de texte dans le userform que l'on nommera "commentaire" où l'on saisisse des données supplémentaires (comme "validées RH" par exemple) et que cela apparaisse soit en passant la souris dessus le rectangle avec une info-bulle qui apparaisse, ou alors que pour voir le commentaire on clique sur le rectangle pour faire apparaitre le userform et que les données que l'on avait rentré à sa création apparaissent dans le userform.

f894009 · Answer

Re,

Pour l'info-bulle,
Ok, commentaire

cliquer sur le bouton de couleur pour donner la couleur 
C'est aussi mon idee
Mais, si une liste est trop longue, pas obliger de l'afficher en entier.
Une textbox avec recherche en dynamique dans liste au fur et a mesure de la saisie avec affichage dans une listbox de facon a cliquer sur la ligne qui vous convient.
Cette liste serait selectionnee en fonction de la couleur
Ceci pour chaque couleur avec ajout a la liste si pas connu dans liste actuelle

A vous de voir

Remi2236 · Answer

Trop au top, hâte de voir ce que ça donne. Merci !

f894009 · Answer

Bonjour,

A vous de jouer:  https://www.cjoint.com/c/KIpgFmmJAXf

Le Mot De Passe pour acces VBA est le meme que pour la feuille

VBA: Je mettrai des commentaires une fois ficele

Remi2236 · Answer

Re,

Super ! Hâte de voir ce que ça donne ! 
Vous travaillez dans l’informatique ou vous avez appris en autodidacte ?

f894009 · Answer

Re,

Vous aimez la chanson, le fichier suivant est un fichier .rar a decompresser.

https://www.transfernow.net/en/dltransfer?utm_source=20210915gmgyfNQd

Il y a votre fichier Remi.... et des repertoires a ne pas effacer.

Une fois decompresser, mettez le volume a fond et ouvrez le fichier Remi... , laissez un peu de temps avant de faire un click sur une forme. 
A faire chez vous de preference, sauf si a votre travail vos superieurs sont relativement cool
Les gifs ne sont peut-etre pas les bons car j'ai le doute Africain sur votre job

Remi2236 · Answer

Haha ! Ca m'a bien fait sourir ; ) 
je suis resté sur la version de votre message juste avant pour le boulot !
C'est impeccable ! Juste une dernière chose. Concernant le bouton à cliquer "astreinte", quelle partie du code je dois modifier si, uniquement pour le bouton "astreinte", il ne soit pas obligé de mettre un titre et un commentaire ? Je vous remets le code :

Private Sub Cmd_Valider_Click()
    Dim Cel As Range
    
    If Txt_Titre <> "" And Opt_Ok > 0 Then
        Id = Nom
        Histo_SWF Id, L, T, W, H, Txt_Titre, Lg, Opt_Ok, CouleurF, CouleurT
        With Worksheets("Planning")
            .Unprotect Password:="Remi"
                    .Range(CelD).ClearComments
                    .Range(CelD).AddComment
                    .Range(CelD).Comment.Visible = False
                    .Range(CelD).Comment.Text Text:=Txt_Comment.Text                '--------------------------------------------
            .Protect Password:="Remi", DrawingObjects:=True, Contents:=True, Scenarios:=True, userInterfaceOnly:=True
            .EnableSelection = xlUnlockedCells
        End With
        ThisWorkbook.Save
        Unload Me
    Else
        '-----------------------------------------
        Dim Msg, Style, Title, Help, Ctxt, Response, MyString
        Msg = "Attention! Manque Descriptif ou/et Choix"
        ' Define message.
        Style = vbCritical    ' Define buttons.
        Title = "Defaut Information(s) pour Creation Forme"    ' Define title.
        Help = ""    ' Define Help file.
        Ctxt = 1000  ' Define topic context.
            ' Display message.
        Response = MsgBox(Msg, Style, Title, Help, Ctxt)
        '--------------------------------------------------------------
    End If
End Sub

f894009 · Answer

Bonjour,

 If (Txt_Titre <> "" Or Opt_Ok = 7) And Opt_Ok > 0 Then

Remi2236 · Answer

Rebonjour, J'ai essayé mais quand je remplace : If Txt_Titre <> "" And Opt_Ok > 0 Then par : If (Txt_Titre <> "" Or Opt_Ok = 7) And Opt_Ok > 0 Then ça me marque : "erreur définie par l'application ou par l'objet" et ça me met en surbrillance cette partie : .Range(CelD).Comment.Text Text:=Txt_Comment.Text Par contre la forme s'affiche bien sur la plage sélectionnée.

f894009 · Answer

Re,

A chaque modif de code, il faut fermer le fichier et l'ouvrir pour continuer. Je ne sais pas pourquoi.
C'est apparu a un moment donne ou j'ai ajoute du code mais je ne vois pas sur quel code.

Remi2236 · Answer

Bonjour,

Désolé j'ai été pas mal pris par le boulot. J'ai trouvé une alternative pour l'astreinte. J'ai fait en sorte que quand on clique sur astreinte, ça marque astreinte au titre et sur le commentaire.

En testant le tableau, je me suis dis que ça serait sympa de pouvoir changer la date de début et de fin de l'activité. J'ai rajouté des txt_box et et boutons de défilement sur l'Userform.

1/ J'aimerais que lorsque l'on clique sur l'un des rectangles pour le modifier, que la date de début et de fin de l'activité apparaisse dans les txt_box en haut de l'userform

2/ Ensuite, j'aimerais qu'avec les boutons de défilement on puisse modifier la date inscrite dans les txt_box en ajoutant +1 à la date avec le bouton du haut, et -1 à la date avec le bouton du bas.

3/ De plus, j'aimerais que si l'on veut, on puisse inscrire directement la date au clavier dans les txt_box contenant la date.

4/ Enfin, que la date de fin ne puisse pas être antérieure à la date de début de l'activité, mais que les deux puissent être égales (ex : date début 21/09/2021 et date de fin 21/09/2021 mais que cela soit impossible de mettre en date de fin 19/09/2021 pour l'exemple, que cela affiche un message d'erreur si on le marque manuellement au clavier. Et que les boutons de défilement empêche de pouvoir le faire).

Vous auriez une solution ?

Je vous mets le fichier :
https://www.cjoint.com/c/KIylqDFTEOT
Mot de passe Remi2236

Merci par avance pour votre réponse.

Cordialement,

Rémi

f894009 · Answer

Bonjour,

Ok, je recupere le fichier et regarde la chose

Remi2236 · Answer

Bonjour,

Merci beaucoup ! Et si possible, qu'il y ait des messages d'erreur quand on valide si des activités se chevauchent.

f894009 · Answer

Bonjour,
des activités se chevauchent.

Evidence!

f894009 · Answer

Re,

Vous etes entrain de monter une usine a gaz.
Vu votre demande pour modification, il aurait ete plus logique de prendre la meme logique pour ceer les formes. C'est a dire un UF pour creer et modifier

des activités se chevauchent.
J'ai ecrit evidence, mais ca les moins que prevu.
Ce planning est fait pour qui (x personnes par activite, une par activite) et quoi?

f894009 · Answer

Bonjour,
Parfois plus simple de supprimer que de tartouiller ce qui existe.
Ce que je ne comprends pas, vous parlez de gens mais ce planning n'est pas fait pour des gens vu qu'il n'y a jamais de nom et parait être fait pour avoir une vision globale de kake chose.
Dans le fichier exemple, il y a des fiches sauvegardées en fichier txt individuel.
Donc si je ne comprends pas votre logique, pas simple de répondre a votre demande.
Je vais regarder au plus simple code qu'il faut coder pour modification sans supprimer mais cela revient a supprimer pour recréer en plus compliquer

f894009 · Answer

Re, 

Et qu'il y ait une alerte si les activités se chevauchent.
C'est la que ca coince, si je ne connais pas la personne, comment voulez vous que le test soit possible

les onglets bdd et cdc.
bdd: c'etait en vu de sauvegarder les paramatre de la forme creee, plus utile
cdc: en general, je copie la demande pour eviter de retourner sur CCM

ça vous simplifierait la tâche.
Oui et non car au depart, pas toutes les fonctionnalites que vous demandez maintenant et je n'ai pas la meme logique de programmation

Je regarde pour modif dates, recreer forme avec nouveau parametre.
Ca va le faire car monsieur veux donc mon saigneur aura

Remi2236 · Answer

Re, 

Merci beaucoup ! ???? Pour les messages d'erreur, je sais que le tableau les affiche déjà si j'essaye de créer une forme qui chevauche une forme sur la même ligne. Après, si c'est pas faisable pas de souci, c'est déjà plus que super sympa d'avoir consacré autant de temps pour m'aider ????

f894009 · Answer

Re,

Je regarde quand meme la chose

f894009 · Answer

Bonjour,

J'ai planche sur le sujet modif date dans l'UF, faisable sans trop de soucis.
Je vais modifier votre UF a peu pres comme le fichier exemple.
Les dates debut et fin apparaissent deja sur la forme. J'en ai besoin pour afficher dans l'UF et faire les calculs +/- en cas de modif
Va demander un peu de temps, ai d'autres occupations.
Pouvez reexpliquer:
J'aurais pu laissé les prénoms effectivement.
Avec des noms bidons ca l'aurait fait. De plus si vous voulez modifier en cas d'erreur de personne actuellement pas possible

f894009 · Answer

Re,

Ok
Y a pas d'lezard

f894009 · Answer

Re,

Désolé je m'étais peut-être mal exprimé..
Pourtant bien ecrit et en francais.

Modification date debut/Fin sur periode activite existente:
Date de fin: limite de remontee: donnee par la date de debut
                     limite de descente: donnee par la date -1 jour de la periode suivante sur la meme ligne ou 
                                                        31-Dec par defaut
Date de debut: limite de descente donnee par la date de fin
                     limite de remontee ---> je peux trouver la cellule avec commentaire periode prededente 
                                                              maisa priori je ne peux savoir quelle forme est liee a 
                                                              cette cellule. Donc pas de Date de butee+1
                                                             J'ai une possibilite en mettant un caractere dans la cellule de fin 
                                                             selection au moment de la creation forme, ce qui serait plus 
                                                             simple de trouver la periode precedente

f894009 · Answer

Bonjour,

ça implique quoi de mettre un caractère
Simple, vous n'avez rien de special a faire, c'est cote code a la creation que le dit caractere("*") se place sur la derniere cellule de la selection. De toute facon, y a pas de date en saisie manuelle

Fichier : https://www.cjoint.com/c/KJdqlLNmTEf

Remi2236 · Answer

Bonsoir,
J'ai testé le tableau, c'est super ! Par contre, quand on met sur la même ligne une activité par qui finit le 22/02 inclus (par exemple) et une autre qui commence le 23/02 (par exemple), les chiffre qui s'affichent de part et d'autre de la forme se chevauchent et ça devient illisible.
Est-ce qu'il ne vaudrait mieux pas les enlever ? Car ça surcharge le planning je trouve.

Et on peut superposer des activités, je pense que vous ne l'avez pas encore programmé.

Mais top sinon le résultat !

f894009 · Answer

Re,
Affichage Date debut/fin: je les enlèverai, c'est juste pour voir et pour moi le code
Superposition d'actives, rien de fait car je ne comprends pas vraiment ce que vous voulez.

Suite:
Date de début, je peux l'avoir sans l'affichage.
Date de fin, je dois modifier pour avoir la date de fin dans la dernière cellule de la séléction à la place  de l'etoile

f894009 · Answer

Bonjour,

Monsieur sera peut-etre satisfait:  https://www.cjoint.com/c/KJepjdr6RNf

Remi2236 · Answer

Bonsoir, 
Je viens de tester un peu le fichier. 

Il y a juste un souci quand je crée une activité sur une journée, donc sur une cellule, avec le SpinButton2, je ne peux pas augmenter la date. Et je ne peux pas descendre une date de début au 01/01/2022. Et quand je crée une activité au 1er janvier sur une cellule (par exemple de C7:C7) ça plante quand je veux la modifier la date de fin avec le SpinButton2
Mais sinon super ! Tout marche impec

f894009 · Answer

Bonjour,

Je regard la chose

f894009 · Answer

Re,

J'ai decouvert une petite anomalie cote calcul min date debut pour toutes les formes crees colonne C .
Par contre colonne C, y a kake chose de vraiment bizard sur la partie modif plage, je planche

f894009 · Answer

Bonjour,

A priori, j'ai trouve pour colonne C. Mais il faut que je revois ma copie pour les colonnes a deux lettres

f894009 · Answer

Bonjour,

Fichier modifie, ai du remplacer les spinbutton par des ScrollBar a la suite d'une erreur VBA intempestive, non systematique, sur click forme lors de l'affectation de la valeur au spinbutton1 pour la date de debut. Ai pas mal cherche mais pas d'explication logique a cette erreur.

https://www.cjoint.com/c/KJmobeuOeIf

Remi2236 · Answer

Bonjour,

C'est super, ça fonctionne impeccablement. Je ne peux que vous dire un grand merci pour tout ce travail fournit !
Je vous souhaite une excellente continuation et une bonne journée.

Cordialement,

Rémi

Insérer des formes dans un planning via un userform - Page 3

Newsletters