Discussion :

[frunch]

Bonjour à tous,
J'ai des absences de salariés par mois, et je dois déterminer les jours de présence qu'avec les absences.
Mon probléme est de stocker les variables à chaque tour de boucle.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
    list1 = Array("jpr2", "jpr3", "jpr4", "jpr5")
        For m = 0 To UBound(list1)
 jpr(m) = (Day(tb4.DataBodyRange(i + k, 4).Value)) - Day(tb4.DataBodyRange(i + k - 1, 5).Value) - 1
        next m

Merci pour votre aide

[Thumb down]

Bonjour,
Du solution avec un dictionnary.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
 
Dim list1 As Variant
Dim dict As Object
Dim m As Long
Dim i As Long, k As Long
 
Set dict = CreateObject("Scripting.Dictionary")
list1 = Array("jpr2", "jpr3", "jpr4", "jpr5")
 
For m = 0 To UBound(list1)
    ' Remplacez i et k par vos indices actuels
    Dim jourDebut As Long
    Dim jourFin As Long
    jourDebut = Day(tb4.DataBodyRange(i + k - 1, 5).Value)
    jourFin = Day(tb4.DataBodyRange(i + k, 4).Value)
 
    ' Stockage dans le dictionnaire avec le nom correspondant
    dict(list1(m)) = jourFin - jourDebut - 1
Next m
 
' Exemple pour lire les valeurs :
Debug.Print dict("jpr2")

[frunch]

Bonjour Thumb down,

Je comprends pas l'utilité du dictionnaire.

Voila le fichier pour voir le problème concrètement:
forum.xlsm
Faire clic-droit
Sélectionner juillet, puis FITROI

Merci

[78chris]

Bonjour

Une simple requête PowerQuery permet cela

Il serait bien de préciser si on compte les samedi et dimanche et JF ou pas ou si on travailles en jours calendaires

A noter que

• tu as des textes à la place de certains montants dans les absences
• le nombre de jours du mois de devait être calculé partout par formule (pas très sain de mélanger saisie et formule dans une colonne), ce qui revoie à la 1ère remarque
  

  Code :

  Sélectionner tout - Visualiser dans une fenêtre à part

  =FIN.MOIS(DATE(Q8;N8;1);0)-DATE(Q8;N8;1)+1

[frunch]

@Thumb down,
En appliquant ta méthode, çà bug ici

[tototiti2008]

Re,

C'est encore supporté dans les Excel modernes sauf erreur de ma part

Oui, il faut juste aller dans les options et cocher une case
En même temps, on peut cocher une case pour que les macros Excel 4 fonctionnent, alors je ne suis pas trop étonné

[E KERGRESSE]

Un essai Power Query avec une requête tcd. Le tableau restitue les triplets Année Mois Nom même en cas d'absences sur plusieurs mois dans le tableau des absences.




forum2.xlsx

Que les experts soient indulgents... Il y a sans doute plus simple.

[Thumb down]

Dans ton code je ne vois pas la création de l'instance ditcl
Que dit le message d'erreur ?
Set dictl = CreateObject("Scripting.Dictionary")

[frunch]

Désolé j'ai pas mis le fichier.
forum.xlsm

[78chris]

RE

Manifestement je parle dans le vide... mais ça pourrait en intéresser d'autres

Avec une table des salariés et un tableau des absence où j'ai prévu éventuellement des absences à cheval sur plusieurs mois ou exercices on obtient par requête

[frunch]

Une simple requête PowerQuery permet cela

Non je préfèrerais pas répondre aux pollueurs Powerquery qu'il y a ici et d'autres forums et qui sont toujours les mêmes.
J'appelle çà de la pub puisqu'aucune démonstration complète n'est faite derrière.
Je vais faire une application de paie et je vois mal l'utilisateur se faire des requêtes Powerquery à chaque clic de bouton.
Vous avez un salon dédié à Powerquery et je ne vois personne venir proposer de solutions par macro, alors faites pareil ici.
La seule remarque que j'ai trouvé utile était la formule sur les mois, que j'ai repris.

[78chris]

Bonjour

...
Je vais faire une application de paie et je vois mal l'utilisateur se faire des requêtes Powerquery à chaque clic de bouton.
Vous avez un salon dédié à Powerquery et je ne vois personne venir proposer de solutions par macro, alors faites pareil ici.

L'utilisateur "ne se fait pas de requêtes" : elles sont faites une fois pour toutes comme le code VBA...

Le principe d'un forum est aussi de montrer d'autres pistes quand on pense qu'elles sont plus adaptées : le mec qui me demande de lui apprendre à nager pour aller de l'autre côte du fleuve, je lui explique où est le pont le plus proche et en général il ne rejette pas la solution...

Nombreux sont ceux qui m'ont remercié pour des propositions PowerQuery...

Je note cependant de ne surtout plus vous répondre puisque cela vous gêne...

[Qwazerty]

Salut

J'appelle çà de la pub puisqu'aucune démonstration complète n'est faite derrière.

Ou peut-être que tu ne veux pas les voir. Ca tombe bien...
Espaces entre des chiffres - Macros et VBA Excel

Il me semble qu'on a été plusieurs à en faire la démonstration complète et j'ai vu mainte fois 78chris le faire sur de nombreux fils.

Non je préfèrerais pas répondre aux pollueurs Powerquery qu'il y a ici et d'autres forums et qui sont toujours les mêmes.

Du coup j'imagine que ça explique le mutisme face aux solutions proposées

Comme dit dans le message précédent, power query n'est qu'un outil, comme VBA en est un. Dans la même logique, tu crées le vba/power query et c'est transparent pour l'utilisateur, les mises à jour de requêtes se font via VBA. C'est rapide et flexible... Dommage de s'en priver mais chacun voit midi à sa porte.

Vous avez un salon dédié à Powerquery et je ne vois personne venir proposer de solutions par macro, alors faites pareil ici.

Beaucoup de questions sont posées sur le forum VBa et des solutions apportées avec de simples formules. Faut-il selon toi laisser les gens s'empêtrer avec du VBA qu'ils ne maitrisent pas, plutôt que de faire appel aux formules de base qui font le travail? Pour moi ça reviendrait à faire une boucle VBA au lieu d'utiliser =RechercheX() directement .

Je ne dérangerais plus tes posts non plus.
N'hésite pas à mettre un message dans ta signature signalant que tu refuses toute aide faisant appel à Power Query. Ca t'évitera peut-être de te mettre inutilement une partie de la communauté à dos...

++
Qwaz

PS: Je me demande si le message passe en rouge au bout de 4 pouces rouges, à l'instar des pouces verts. Y'a pas une âme charitable pour mettre le 4ème?

[mapeh]

Non je préfèrerais pas répondre aux pollueurs Powerquery qu'il y a ici et d'autres forums et qui sont toujours les mêmes.
J'appelle çà de la pub puisqu'aucune démonstration complète n'est faite derrière.
Je vais faire une application de paie et je vois mal l'utilisateur se faire des requêtes Powerquery à chaque clic de bouton.
Vous avez un salon dédié à Powerquery et je ne vois personne venir proposer de solutions par macro, alors faites pareil ici.
La seule remarque que j'ai trouvé utile était la formule sur les mois, que j'ai repris.

Bonsoir,
Jusqu'à présent, j'avais préféré ne rien dire...
Ce personnage, hostile à toute forme d'entraide (le "bénévolat" n'existe pas dans le droit du travail), ne cesse de profiter de la bonne volonté des forums, et surtout, de ses bénévoles...
Banni 2 fois du forum "excel-pratique", ainsi que du forum "excel-downloads", pour pratique non conforme aux chartes desdits forums, il ne cesse de multiplier les demandes d'aide aux "bénévoles", pour "développer" des applications "professionnelles", payantes...
Bref, continuer à lui répondre, c'est de l'esclavage, selon ses convictions (il vend, ce que tu lui donnes gratuitement...)
A bannir définitivement des forums

[tototiti2008]

Bonjour,

Sans compter qu'il suffit de dire au départ ou de répondre : je ne souhaite pas de solution PowerQuery parce que...
on peut le faire poliment mais faut croire que frunch se sent plus intelligent en traitant les personnes qui viennent aider de pollueur
5ème pouce rouge et toujours pas de fond rouge, je suis un peu déçu

[Thumb down]

Personnellement je dispose d'excel 2007 et j'avoue que de temps en temps j'aimerais pouvoir utiliser powerQery

[Qwazerty]

Personnellement je dispose d'excel 2007 et j'avoue que de temps en temps j'aimerais pouvoir utiliser powerQery

Salut

Les clefs de licence Office 2021/2024 sont données, ça vaut le coup d'en acheter une pour quelques centimes d'euro... Sur CDiscount par exemple.

Merci pour le test, même si je suis un peu déçu j'avoue.

++
Qwaz

[tototiti2008]

Re,

tu sais que tu as Query tout de même sur Excel 2007, qui ne fonctionne pas parfaitement à l'identique mais permet dejà de faire des requêtes qui s'actualisent ?

[Thumb down]

Re,

tu sais que tu as Query tout de même sur Excel 2007, qui ne fonctionne pas parfaitement à l'identique mais permet dejà de faire des requêtes qui s'actualisent ?

Non la première version est sur excel 2013

Tu confonds pas avec querydef ?

Édite: j'ai lu query et pensé powerqury! Le serveur est bizarre.

Oui je savais.

[E KERGRESSE]

Bonjour à tous,

J'ai reproduit le tableau de Chris ()



Comme on le voit, les absences peuvent être à cheval sur plusieurs mois.
Pour ramener les absences sur chaque mois concerné, j'ai pensé qu'au lieu de lier une table année-mois, lier une table année-jours et insérer une colonne indiquant si le jour est inclus entre la date de début et de fin.
Est-ce comme cela que vous auriez fait ? Je pense qu'il y a une solution plus directe.