dindin
XLDnaute Occasionnel
Bonjour le Forum,
j'ai récupéré une fonction sur internet qui sert à calculer le nombres des lundis entre 2 dates.
j'ai essayé de l'adapter dans un formulaire avec des cases à cocher.
lors des plusieurs vérifications, j'ai remarqué que le résultat est parfois erroné, comme dans cette exemple:
le formulaire affiche 21 jours si on sélectionne tous les jours de la saamine sachant qu'en réalité il devrait afficher 16.
dans ce prochain exemple on doit calculer les nombre de mercredis , vendredis et samedis entre le 26 janvier et 15 mai, le calcul est juste
par l'occasion je tiens à remercier beaucoup le développeur de ce formulaire d'insertion de date qui m'a fait gagné beaucoup de temps dans mon travail de tous les jours
Pouvez-vous m'aider à trouver d'où vient l'erreur.
désolé pour ce code trop long, je débuté avec VBA.
je joins le fichier en question
Merci pour votre aide
j'ai récupéré une fonction sur internet qui sert à calculer le nombres des lundis entre 2 dates.
j'ai essayé de l'adapter dans un formulaire avec des cases à cocher.
lors des plusieurs vérifications, j'ai remarqué que le résultat est parfois erroné, comme dans cette exemple:
![](data:image/svg+xml;charset=utf-8,<svg height="666px" width="280px" xmlns="http://www.w3.org/2000/svg" version="1.1"/>)
le formulaire affiche 21 jours si on sélectionne tous les jours de la saamine sachant qu'en réalité il devrait afficher 16.
dans ce prochain exemple on doit calculer les nombre de mercredis , vendredis et samedis entre le 26 janvier et 15 mai, le calcul est juste
![](data:image/svg+xml;charset=utf-8,<svg height="669px" width="280px" xmlns="http://www.w3.org/2000/svg" version="1.1"/>)
par l'occasion je tiens à remercier beaucoup le développeur de ce formulaire d'insertion de date qui m'a fait gagné beaucoup de temps dans mon travail de tous les jours
![](data:image/svg+xml;charset=utf-8,<svg height="295px" width="279px" xmlns="http://www.w3.org/2000/svg" version="1.1"/>)
Pouvez-vous m'aider à trouver d'où vient l'erreur.
désolé pour ce code trop long, je débuté avec VBA.
je joins le fichier en question
Merci pour votre aide
![](data:image/svg+xml;charset=utf-8,<svg height="523px" width="337px" xmlns="http://www.w3.org/2000/svg" version="1.1"/>)