Insérer des formes dans un planning via un userform

Résolu/Fermé
Remi2236 Messages postés 83 Date d'inscription jeudi 10 septembre 2015 Statut Membre Dernière intervention 29 novembre 2023 - 7 sept. 2021 à 20:43
Remi2236 Messages postés 83 Date d'inscription jeudi 10 septembre 2015 Statut Membre Dernière intervention 29 novembre 2023 - 13 oct. 2021 à 09:40
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
A voir également:

50 réponses

Remi2236 Messages postés 83 Date d'inscription jeudi 10 septembre 2015 Statut Membre Dernière intervention 29 novembre 2023 1
14 sept. 2021 à 15:44
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.
0
f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701
Modifié le 14 sept. 2021 à 16:26
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
0
Remi2236 Messages postés 83 Date d'inscription jeudi 10 septembre 2015 Statut Membre Dernière intervention 29 novembre 2023 1
14 sept. 2021 à 16:45
Super !

Pour le titre, je préfère que ça reste libre sans liste, vu que ça change tout le temps ce que je dois y mettre. Du coup rester sur le faite que ce que l'on marque dans la zone de texte "titre" qui s'appelle actuellement "description" apparaisse sur le rectangle
0
f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701 > Remi2236 Messages postés 83 Date d'inscription jeudi 10 septembre 2015 Statut Membre Dernière intervention 29 novembre 2023
Modifié le 14 sept. 2021 à 17:17
Re,

Et le "valider par RH" ca devient quoi?

Au fait, vos 7 boutons peuvent etre actionnes en meme temps .Ce ne sont pas des boutons d'option mais des boutons bascule
Je vais changer ca
0
Remi2236 Messages postés 83 Date d'inscription jeudi 10 septembre 2015 Statut Membre Dernière intervention 29 novembre 2023 1 > f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024
14 sept. 2021 à 17:58
Du coup si possible, le "validé par RH" deviendrai une info-bulle qui apparaît sur que l'on passe la souris sur le rectangle.

Du coup sur le userform il y aurait :
- les boutons d'option
- une zone de texte "titre" avec ce qui apparaîtra sur le rectangle
- une zone de texte "commentaire" avec ce qui apparaîtra dans l'info bulle lorsque l'on passe la souris sur le rectangle
0
f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701 > Remi2236 Messages postés 83 Date d'inscription jeudi 10 septembre 2015 Statut Membre Dernière intervention 29 novembre 2023
14 sept. 2021 à 18:33
Re,

Elementaire mon cher Watson.

C'est deja fait

J'ai juste le code recupe du titre dans forme a faire car il semblerait que je ne l'ai pas sauvegarde, mais pas grave
0
Remi2236 Messages postés 83 Date d'inscription jeudi 10 septembre 2015 Statut Membre Dernière intervention 29 novembre 2023 1
14 sept. 2021 à 21:06
Trop au top, hâte de voir ce que ça donne. Merci !
0
f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701
Modifié le 15 sept. 2021 à 08:34
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
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
Remi2236 Messages postés 83 Date d'inscription jeudi 10 septembre 2015 Statut Membre Dernière intervention 29 novembre 2023 1
15 sept. 2021 à 10:35
Re,

Super ! Hâte de voir ce que ça donne !
Vous travaillez dans l’informatique ou vous avez appris en autodidacte ?
0
f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701
15 sept. 2021 à 18:18
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
0
Remi2236 Messages postés 83 Date d'inscription jeudi 10 septembre 2015 Statut Membre Dernière intervention 29 novembre 2023 1
16 sept. 2021 à 11:05
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
0
f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701
16 sept. 2021 à 15:31
Bonjour,

 If (Txt_Titre <> "" Or Opt_Ok = 7) And Opt_Ok > 0 Then
0
Remi2236 Messages postés 83 Date d'inscription jeudi 10 septembre 2015 Statut Membre Dernière intervention 29 novembre 2023 1
16 sept. 2021 à 16:00
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.
0
f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701
16 sept. 2021 à 17:45
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.
0
Remi2236 Messages postés 83 Date d'inscription jeudi 10 septembre 2015 Statut Membre Dernière intervention 29 novembre 2023 1
24 sept. 2021 à 13:17
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
0
f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701
24 sept. 2021 à 15:59
Bonjour,

Ok, je recupere le fichier et regarde la chose
0
Remi2236 Messages postés 83 Date d'inscription jeudi 10 septembre 2015 Statut Membre Dernière intervention 29 novembre 2023 1
25 sept. 2021 à 06:56
Bonjour,

Merci beaucoup ! Et si possible, qu'il y ait des messages d'erreur quand on valide si des activités se chevauchent.
0
f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701
25 sept. 2021 à 07:01
Bonjour,
des activités se chevauchent.

Evidence!
0
f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701
Modifié le 25 sept. 2021 à 14:03
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?
0
Remi2236 Messages postés 83 Date d'inscription jeudi 10 septembre 2015 Statut Membre Dernière intervention 29 novembre 2023 1
25 sept. 2021 à 20:57
Bonsoir,

Si c'est trop compliqué tant pis. J'avais vu ça dans le fichier d'exemple que je vous avais envoyé au début.

Le planning est fait pour une activité par personne. Parfois pour les soutiens d'activité sanitaire il y a deux à trois personnes mais je créerais l'activité pour les deux à trois personnes.

Le tableau je l'utilise pour gérer la disponibilité de mes personnels, comme ça je sais qui est présent et quand, et quand j'ai des activités qui viennent, je peux indiquer qui va faire ce soutien, gérer les astreintes... Etc.
0
Remi2236 Messages postés 83 Date d'inscription jeudi 10 septembre 2015 Statut Membre Dernière intervention 29 novembre 2023 1 > Remi2236 Messages postés 83 Date d'inscription jeudi 10 septembre 2015 Statut Membre Dernière intervention 29 novembre 2023
25 sept. 2021 à 20:58
Et parfois en fait, les gens changent leur vacances, où les demandes de soutien sanitaire sont décalés. C'est pour cela que je voulais ajouter les boutons pour pouvoir décaler les dates sans avoir à supprimer puis recréer la forme.
0
f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701
26 sept. 2021 à 07:33
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
0
Bonjour,
Je me suis certainement mal exprimé au début. En fait, le fichier est effectivement fait pour avoir une vision global de mes personnels (savoir qui est présent tel jour, ou en vacances, ou en mission, etc) et ce sur l'année à venir.
J'avais mis le fichier exemple juste parce que je cherchais à afficher les formes sur les plages de données sélectionnées. Mais le reste du code avec les fiches individuelles etc je m'en moque, aucune utilité.
Ce fichier ne contient pas de nom pour une question de confidentialité. J'aurais pu laissé les prénoms effectivement.
Pour résumer, j'aimerais bien pouvoir créer des formes pour afficher l'activité que j'ai assignée à un personnel en sélectionnant une plage de données et en faisant clic droit pour faire apparaître le userform.
De plus, une fois la forme créée, en cliquant sur la forme créée, que l'on puisse modifier les données de l'activité : modifier le type d'activité, le titre, le commentaire (ce qui est déjà le cas dans le fichier actuel), mais aussi la date de début et de fin de l' activité via les boutons que j'ai mis, pour éviter d'avoir à supprimer la forme, reselectionner la plage de données et remettre le titre, le commentaire. Et qu'il y ait une alerte si les activités se chevauchent.
Je sais que le fichier exemple le permettait. Mais je ne sais pas quelle partie du code permet de le faire. En fait, je me disais qu' en vous mettant le fichier exemple, ça vous simplifierait la tâche.
Je ne sais pas si je vous ai éclairé.
Mais effectivement, sur le fichier que vous m'avez fait, je ne sais pas à quoi servent les onglets bdd et cdc.
0
f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701
Modifié le 26 sept. 2021 à 10:14
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
0
Remi2236 Messages postés 83 Date d'inscription jeudi 10 septembre 2015 Statut Membre Dernière intervention 29 novembre 2023 1
26 sept. 2021 à 17:18
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 ????
0
Remi2236 Messages postés 83 Date d'inscription jeudi 10 septembre 2015 Statut Membre Dernière intervention 29 novembre 2023 1
26 sept. 2021 à 17:19
Mince, les emoticons ont été changés en "????" désolé
0
f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701
26 sept. 2021 à 18:27
Re,

Je regarde quand meme la chose
0
f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701
29 sept. 2021 à 13:59
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
0
f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701
29 sept. 2021 à 18:03
Re,

code pour modif formes fonction des jours debut/fin avec spinbutton pas mal avance.
Reste la suppression de l'ancienne forme et creation de la nouvelle
0
Remi2236 > f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024
29 sept. 2021 à 19:12
Bonjour,

Super, pas de souci, prenez le temps qu'il faut, c'est déjà bien gentil à vous de faire tout ça
0
f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701 > Remi2236
30 sept. 2021 à 07:07
Bonjour,

repondez a cette question

J'aurais pu laissé les prénoms effectivement.
Une liste est possible avec une combox pour choix et ce prénom ou nom chez vous serait a mettre dans le commentaire
0
Remi2236 > f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024
30 sept. 2021 à 09:07
Bonjour,

Quel serait le but de cette combo box ? Car je voudrais juste que l'on puisse modifier les dates de début et de fin de l'activité et que ça modifie la forme en gardant le titre et le commentaire.
Je n'ai pas l'utilité comme dans le tableau exemple d'avoir des fiches individuelles. Je ne sais pas si je me suis bien expliqué ou non.
0