Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Erreur Exécution VB

  • Initiateur de la discussion Initiateur de la discussion lego35
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

lego35

XLDnaute Junior
Bonjour jpb, bonjour le forum,

Mon classeur Calendrier CP est un fichier récupéré sur le forum, je souhaite l'adapter à une activité Hôtellerie Restaurant qui ne prend pas en compte les jours fériés.

J'ai bien essayé de le faire mais j'ai toujours une erreur d'exécution de Visual Basic.

Donc étant toujours aussi mauvais, j'ai besoin de votre aide pour enlever en TOTALITE tout ce qui concerne LES JOURS FERIES sur l'ensemble du classeur.

Par avance merci à tous de votre aide.
LEGO
 

Pièces jointes

Re : Erreur Exécution VB

Bonjour à tous.

Et toujours aussi géniaux…

Pour pouvoir poursuivre mes tests, j'ai besoin que les boutons de commandes de l'onglet 'Calendrier' puissent fonctionner (il me semble les avoir vu actifs) ce sont les boutons "créer Feuille"; Sup Feuille"; "Atteindre".

Rapidement aussi, mais cela n'est pas trop gênant, dans le même onglet 'Calendrier', c'est le déplacement du curseur vers la droite ou la gauche, de la période année, (juste au dessus du nom) en le déplaçant il provoque un message d'info.

A très bientôt
Encore merci c'est un super bon début.

Lego
 
Re : Erreur Exécution VB

Bonjour JCGL, bonjour le forum,

Un grand merci bien sûr à David84 pour son fichier d'origine.

J'ai pu tester ce WE le fichier JCGL.

La correction des Jours fériés est OK. Les jours de repos sont bien pris en compte pour le calcul des "CP" classiques pas de soucis, comme on peut le voir sur le calendrier de l'exemple "Brigitte" les CP sautent bien son repos hebdomadaire sur le calendrier.

Par contre l'activité Hôtellerie bénéficie aussi de jours fériés garantis et implique un décompte comme les CP classiques.

Ce compteur nécessite pas mais on peut utiliser celui de la fonction "Trex", qui sera changé en "CJF" (Congés Jours Fériés), et dans le même esprit que le décompte des "CP". Est-ce possible d'effectuer cette modif ?

Dans l'exemple du calendrier "Brigitte" du fichier joint c'est peut être plus parlant… on voit bien que le décompte des "CP" du mois de janvier, tient compte de ces jours de repos (mardi et mercredi), alors que celui des "Trex" non.

Par avance merci pour votre aide.
LEGO35
 

Pièces jointes

Re : Erreur Exécution VB

Bonjour à tous,

C'est pourtant simple... Pfiou

Code:
=SI(NB.SI(INDIRECT(Nom&"!O2:O8");JOURSEM(AJ7));"Repos";SI(OU(MOIS(DATE(An;ENT(COLONNES($A:AL)/3)+
$E$2-1;LIGNES($1:1)))=ENT(COLONNES($A:AL)/3)+$E$2-1;MOIS(DATE(An;ENT(COLONNES($A:AL)/3)+$E$2-1;LIGNES($1:1)))=(ENT(COLONNES($A:AL)/3)+$E$2-1)-12);SI(MOD(COLONNES($A:AJ);3)=1;DATE(An;ENT(COLONNES($A:AL)/3)+$E$2-1;LIGNES($1:1));SI(MOD(COLONNES($A:AJ);3)=2;SI(NB.SI(TabFer;DATE(An;ENT(COLONNES($A:AL)/3)+$E$2-1;LIGNES($1:1)));RECHERCHEV(DATE(An;ENT(COLONNES($A:AL)/3)+$E$2-1;LIGNES($1:1));TabFer;2;0);DECALER(ref_fête;EQUIV(MOIS(AK7);fête;0)+JOUR(AK7);));
SI(MOD(COLONNES($A:AJ);3)=0;SI(NB.SI(INDIRECT(Nom&"!$A$2:$e$400");AJ7);INDEX(INDIRECT(Nom&"!A1:e1");;
MIN(SI((INDIRECT(Nom&"!$A$2:$e$400")=AJ7)*(INDIRECT(Nom&"!$A$2:$e$400")<>"");COLONNE(INDIRECT(Nom&"!$A$2:$e$400")))));SI(NB.SI(INDIRECT(Nom&"!O2:O8");JOURSEM(AJ7));"Repos";
SI(NB.SI(INDIRECT(Nom&"!M2:M8");JOURSEM(AJ7));"½ Repos";SI(NB.SI(INDIRECT(Nom&"!$f$2:$J$400");AJ7);INDEX(INDIRECT(Nom&"!f1:J1");;
MIN(SI((INDIRECT(Nom&"!$f$2:$J$400")=AJ7)*(INDIRECT(Nom&"!$f$2:$J$400")<>"");COLONNE(INDIRECT(Nom&"!$f$2:$J$400"))))-5);""))));"")));""))

Evidemment en validation matricielle.

A+ à tous
 

Pièces jointes

- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

M
Réponses
0
Affichages
3 K
mdidish
M
M
Réponses
6
Affichages
2 K
P
Réponses
3
Affichages
1 K
Q
Réponses
2
Affichages
3 K
I
Réponses
5
Affichages
3 K
I
F
Réponses
5
Affichages
3 K
flolacou
F
Réponses
6
Affichages
1 K
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…