XL 2019 probleme de pointeuse

sousou

XLDnaute Barbatruc

• 26 Novembre 2019

• #2

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?

 

Vote positif 0 Vote négatif

P

papamou

XLDnaute Nouveau

• 26 Novembre 2019

• #3

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

 

Pièces jointes

• pointeuse exel.xlsm

  57.3 KB · Affichages: 9

Vote positif 0 Vote négatif

P

papamou

XLDnaute Nouveau

• 26 Novembre 2019

• #4

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

 

Vote positif 0 Vote négatif

sousou

XLDnaute Barbatruc

• 26 Novembre 2019

• #5

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

 

Vote positif 0 Vote négatif

P

papamou

XLDnaute Nouveau

• 26 Novembre 2019

• #6

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 ?

 

Vote positif 0 Vote négatif

sousou

XLDnaute Barbatruc

• 26 Novembre 2019

• #7

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

 

Vote positif 0 Vote négatif

P

papamou

XLDnaute Nouveau

• 26 Novembre 2019

• #8

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

 

Vote positif 0 Vote négatif

sousou

XLDnaute Barbatruc

• 26 Novembre 2019

• #9

Regarde

 

Pièces jointes

• pointeuse exel.xlsm

  60.3 KB · Affichages: 11

Vote positif 0 Vote négatif

P

papamou

XLDnaute Nouveau

• 26 Novembre 2019

• #10

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

 

Vote positif 0 Vote négatif

sousou

XLDnaute Barbatruc

• 26 Novembre 2019

• #11

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

 

Vote positif 0 Vote négatif

P

papamou

XLDnaute Nouveau

• 27 Novembre 2019

• #12

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

 

Vote positif 0 Vote négatif

P

papamou

XLDnaute Nouveau

• 27 Novembre 2019

• #13

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

 

Vote positif 0 Vote négatif

sousou

XLDnaute Barbatruc

• 27 Novembre 2019

• #14

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

 

Pièces jointes

• pointeuse exel.xlsm

  62.1 KB · Affichages: 6

Vote positif 0 Vote négatif

P

papamou

XLDnaute Nouveau

• 27 Novembre 2019

• #15

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

 

Vote positif 0 Vote négatif