Calendrier Stagiaire

Hello à tout le monde,

Pouvez-m'aider à la création d'un calendrier pour les futurs stagiaires ?

J'aimerais créer un userform afin d'indiquer le nom du stagiaire et la période du stage, qui seront mis sur le calendrier!

Avec un code couleur afin de ne pas dépasser le cota maximum indiquer sur le haut du calendrier ( ex: 3 personnes max)

Si 3 personnes sur la même période donc la période sera en rouge et en vert si maximum pas atteint.

Dois-je travailler avec une mfc ou un userform ?

Merci d'avance pour votre aide.

Setila

62calendrier.xlsm (227.47 Ko)

Bonjour,

Pour exemple, voici un planning de stagiaires avec plusieurs visualisations : par lieu de stage/par stagiaire, stage accepté ou non, ...

Ca pourrait peut donner des idées

Pierre

Hello pierrep56,

Merci pour ton aide mais il y a une erreur!

capture

Bonne soirée

Setila

Bonjour, ce n'est pas une erreur.

Le message dit : "Fichier d'une archive compressé. Lancement impossible. Copier et coller les fichiers dans un nouveau dossier"

En fait c'est que c'est un fichier d'une archive compressé, le lancement est donc impossible.

Il convient alors de "Copier et coller les fichiers dans un nouveau dossier"

En bref : dézippper les fichiers avant utilisation.

Est-ce que c'est plus clair?

Pierre

PS : il faudrait peut être simplement lire le contenu des messages affichés, non? Ou demander à un stagiaire de le faire ...

Bonjour pierrep56,

Sorry!!! c'est juste impressionnant ton fichier!

Merci beaucoup

Bonne journée

Setila

Salut,

Encore un fichier nickel de PierreP56.

J'aimerai savoir si il est possible d'ajouter une combo pour faire un filtre avec l'etat.

Si on choisit "accepté" ou "annulé" par exemple, ce sont que ces infos qui s'affichent?

J'ai bien tenté d'ajouter

        Req = "SELECT `Id`," & Rq(cbx1) & _
              " ,`P_stagiaire`&' '&`N_stagiaire` AS Nom,`Début`,`Fin`,`Etat` " & _
              " FROM [Data$] " & _
              " WHERE NOT (`Fin` < " & deb & " OR `Début` > " & fin & ")" & _
              " AND `Etat` =  ComboxBox2.value " &_
              " ORDER BY " & Rq(cbx1) & ", `N_stagiaire`"

mais je coince.

Merci pour le retour

Leakim

Re,

J'ai fini par trouvé

        RqOp = Array("'Accepté'", "'Annulé'", "'En attente'")

        Req = "SELECT `Id`," & Rq(cbx1) & _
              " ,`P_stagiaire`&' '&`N_stagiaire` AS Nom,`Début`,`Fin`,`Etat` " & _
              " FROM [Data$] " & _
              " WHERE NOT (`Fin` < " & Deb & " OR `Début` > " & Fin & ")" & _
              " AND Etat= " & RqOp(cbx3) & _
              " ORDER BY " & Rq(cbx1) & ",`N_stagiaire`"

Je savais bien qu'il y avait un truc avec les apostrophes

Leakim

Hello tout le monde,

Je n'arrive pas à changer le Graph (par semaine et non par 15j)

Pouvez-vous m'aider car j'ai essayé en ajoutant des colonnes et en modifiant cette ligne de code :

L = 1 + .Columns((Month(Dt1) + 1) * 2).Left + (.Range("D2").Width / 7 * Day(Dt1))

T = 2 + .Rows(lg).Top

W = ((Dt2 - Dt1) * .Range("D2").Width / 7) - 4

H = .Rows(lg).Height - 4

Merci d'avance

setila

Bonjour,

Je n'ai jamais su choisir entre /7j ou /15j alors voilà les 2 pour le même prix

Pierre

Edit : suppression du fichier bugué

Hello Pierrep56,

Tu es au top!!!

Merci beaucoup

Setila

Hello Pierrep56,

code

Je ne trouve pas!!!

Merci d'avance,

Setila

Ah, juste un petit détail à régler.

Désolé

Pierre

Rechercher des sujets similaires à "calendrier stagiaire"