Bonjour tout le monde,
Je sais pas pourquoi, j'ai du mal à percuter les boucles et là, je m'en sors pas.
J'ai un fichier (voir PJ pour exemple) avec une page absence qui se rempli via un USF d'un autre classeur et qui calcul suivant la date et l'heure de départ et de retour le nombre de jours plein d'absence.
J'ai besoin d'une macro boucle qui va rechercher dans la feuille absence, pour chaque nom de la feuille récap et selon le mois sélectionner, le nombre total de jours d'absence du mois.
Mais, parce qu'il y a un mais, si l'absence est à cheval sur 2 mois (début dans le mois recherché et retour dans le mois suivant ou début dans le mois précédent et retour dans le mois sélectionné) il faut que la macro calcul depuis la date de départ jusqu'à la fin du mois ou depuis le début du mois jusqu'à la date de retour le nombre de jours entier d'absence.
Après moult recherche, j'ai pu sortir un peu de code si ça peut vous aider:
Voilà, c'est un peu brouillon mais si ça peu vous aider.
Vous retrouverez toutes les données également sur la feuille Données de la PJ.
D'avance merci à celles et ceux qui se pencheront sur mon souci.
Neonour
Je sais pas pourquoi, j'ai du mal à percuter les boucles et là, je m'en sors pas.
J'ai un fichier (voir PJ pour exemple) avec une page absence qui se rempli via un USF d'un autre classeur et qui calcul suivant la date et l'heure de départ et de retour le nombre de jours plein d'absence.
J'ai besoin d'une macro boucle qui va rechercher dans la feuille absence, pour chaque nom de la feuille récap et selon le mois sélectionner, le nombre total de jours d'absence du mois.
Mais, parce qu'il y a un mais, si l'absence est à cheval sur 2 mois (début dans le mois recherché et retour dans le mois suivant ou début dans le mois précédent et retour dans le mois sélectionné) il faut que la macro calcul depuis la date de départ jusqu'à la fin du mois ou depuis le début du mois jusqu'à la date de retour le nombre de jours entier d'absence.
Après moult recherche, j'ai pu sortir un peu de code si ça peut vous aider:
Code:
X=nom de personne
i=compteur
For Each Cell in Worksheet (Récap).Range("a2:a" & Woksheet.[a200].End (xlDown).Row)
x = Cell.Value
Next Cell
Do While Cells (i,1).Value=""
i=i+1
For Each x in Worksheet (Absences).Range ("a2:a" & Worksheet.[a200].End (xlDown).Row)
Function = sum ()
Next x
Loop
Voilà, c'est un peu brouillon mais si ça peu vous aider.
Vous retrouverez toutes les données également sur la feuille Données de la PJ.
D'avance merci à celles et ceux qui se pencheront sur mon souci.
Neonour