XL 2019 probleme de pointeuse

[papamou]

bonjour je viens vers vous
apres recherche je ne trouve pas de solutions en effet je cherche a créer une pointeuse

et je cale sur le probleme suivant j'ai un onglet (christophe) avec des dates en colonne "C"
et dans la cellule a coté "D" je souhaiterai qu'il aille chercher l'heure de la cellule "C" de l'onglet "horaire" a la date correspondante

je joint mon fichier
en vous remerciant par avance

 

[sousou]

Bonjour
ça manque un peu de précision il me semble!
Prend une exemple

Je suppose que ce qui t'interesse, sur la feuille christophe c'est la date d'arrivée à une date.
mais exemple le 26 novembre, il y a plusieurs arrivée à cette date!
Alors?

 

[papamou]

merci de ta réponse
pardon cela est due au fait de mes tests
une seule arrivée par jour par personne me suffit

je souhaite que sur la feuille horaire en cellule D332 quelque chose comme ca

si christophe c332 est égal a horaire b7 et si horaire e7 est egal a "christophe" (les 2 conditions remplis) alors D332=c7

je joint mon fichier épuré

cordialement

 

[papamou]

re pardon en fait c'est l'heure d'arrivée de la feuille horaires que je cherche a inclure a ma feuille christophe a la bonne date si celui ci as été present

 

[sousou]

Tu peux tester cette fonction
Function h(cel)

cherche = UCase(cel.Parent.Name) & cel.Value & "Arrivée"
With Sheets("horaires")
Set r = .Columns(5).Find(cel.Parent.Name)
If r Is Nothing Then Exit Function
ad = r.Address
Do
Set v = Sheets("horaires").Columns(5).FindNext(r)

If UCase(r) & r.Offset(0, -3) & r.Offset(0, 1) = cherche Then
h = r.Offset(0, -2).Value
Exit Function
End If
Loop While Not r Is Nothing And r.Address <> ad
End With
End Function

 

[papamou]

merci je n'ai pas le niveau pour comprendre
est ce une macro a lier a ma cellule d332

dois je la copier a l'identique ?

 

[sousou]

c'est une fonction
Dans la cellule de la colonne d tu ecrits =h(cellule comportant la date) exemple: = h(c332)
explication:
La fonction calcule une valeur à chercher :nom de l'employé(nom de la feuille & date & "arrivée"
elle cherche ensuite dans la feuille horaire une correspondance à tout cela, et renvoi l'heure trouvée sur cette ligne

 

[papamou]

navré je ne comprend pas ou rentrer ces lignes

cherche = UCase(cel.Parent.Name) & cel.Value & "Arrivée"
With Sheets("horaires")
Set r = .Columns(5).Find(cel.Parent.Name)
If r Is Nothing Then Exit Function
ad = r.Address
Do
Set v = Sheets("horaires").Columns(5).FindNext(r)

If UCase(r) & r.Offset(0, -3) & r.Offset(0, 1) = cherche Then
h = r.Offset(0, -2).Value
Exit Function
End If
Loop While Not r Is Nothing And r.Address <> ad
End With
End Function

 

[sousou]

Regarde

 

[papamou]

j'ai rien compris mais ca marche

il me semble que ca ne se met pas a jours tout seul
si j’appuie sur arrivée rien ne se passe sur le =h

sauf si je selectionne la cellule d332 puis entrée ca me la remet a jour

 

[sousou]

Pas compris (si j'appuie sur arrivée)?

 

[papamou]

bonjour

dans la feuille "horaires" j'ai un bouton avec macro qui permet de noter le jour et l'heure d'arrivée de christophe
ce nouvel horaire ne s'applique pas en feuille "christophe" a moins de prendre une celule precedente et de copier vers le bas

de plus ce matin le 27 rien ne s'affiche en cellule d333

 

[papamou]

pas tout a fait le 27 s'affiche bien (en copiant vers le bas) mais plus le 26

 

[sousou]

Bonjour
Quelque-chose que je ne connaissais pas (application.volatile) . la fonction ne se recalculait pas automatiquement

 

[papamou]

merci ca se met a jours mais j'ai encore un doute si je modifie la date a la main feuille "horaire" pour mettre le 28 sur une des lignes
alors l'heure du 26 feuille "christophe" s'efface