Calendrier - Recherche

[Myself]

Bonjour,

Je dispose d'un fichier excel des membres du personnel avec pour chaque ligne:
- matricule
- nom
- prénom
- lieu de travail
- Catégorie
- Type Contrat

Et ensuite un calendrier mensuel dans lequel je peux indiquer soit une lettre (allant de 'A' à 'W') signifiant maladie, formation, etc... ou alors une valeur en chiffre qui indique le nombre d'h de congé par jour (les travailleurs peuvent prendre de 30 min à 8h par jour)

Ce que je souhaite, c'estpermettre de faire une recherche via le matricule ET/OU le nom, de sorte à obtenir, en entrant le matricule

"Dubois René a été "A" (=malade), le 2, le 3 janvier 2014. Il est "ouvrier" de type ''contrat''

 

[Jack2]

Re : Calendrier - Recherche

Bonsoir Myself,

Ci-joint une proposition avec message (on peut également l'écrire sur une autre feuille ). Il faut faire un double click soit sur le nom, soit sur le matricule.

A+ Jack2

 

[Myself]

Re : Calendrier - Recherche

Cela semble etre bon. Pourrait tu m'expliquer ta méthode? Et penses-tu que ma façon de faire soit interessante? Sachant qu'il y une limite en terme de colonne sur office xp (256 seulement) et aussi en terme d'ergonomie car j'ai presque 500 lignes de travailleurs.

Merci encore 🙂

 

[Jack2]

Re : Calendrier - Recherche

Bonjour Myself,

Ci-joint le fichier avec explications.

A+ Jack2

Edit JJe préfère que tu me poses des questions sur le forum directement ou avec pièce jointe plutôt que de passer par message privé. Merci

 

[Myself]

Re : Calendrier - Recherche

Merci à toi!

 

[Myself]

Re : Calendrier - Recherche

Encore merci pour les explications très détaillées! J'ai modifié Range ("A4:B4") par Range ("Plage_Nom") mais à chaque clique, Excel se ferme...

Ai-je fait une erreur?

 

[Myself]

Re : Calendrier - Recherche

Les dates sont toujours les memes lorsque je clique "2 janvier", "2 janvier"..

 

[Jack2]

Re : Calendrier - Recherche

Bonjour Myself,

Je pensais t'avoir répondu ce matin. Je n'ai pas de problème concernant la ligne

Range ("Plage_Nom")

. Remplace "Plage_Nom" par le code initial pour voir si ça persiste (Range ("A4:B4").

Par contre, j'ai oublié d'indicer TVar pour les dates. Il fallait mettre TVar(i).Column et non TVar).Column. Tu peux faire un copier/coller des lignes suivantes :

If Message = "" Then
 Message = Identité & " a été : " & vbCrLf & Absence & ", le " & Format((Cells(1, TVar(i).Column)), "dd mmmm yyyy") & vbCrLf
 Else
 Message = Message & Absence & ", le " & Format((Cells(1, TVar(i).Column)), "dd mmmm yyyy") & vbCrLf
End If

A+ Jack2

 

[Myself]

Re : Calendrier - Recherche

Je vais tester ça! Merci en tout les cas!!!