Macro ok sous Excel2000 mais pas Excel 2003
Fermé
prasikall32
Messages postés
4
Date d'inscription
vendredi 7 novembre 2008
Statut
Membre
Dernière intervention
1 juin 2013
-
14 mai 2009 à 10:22
prasikall32 - 20 nov. 2009 à 11:16
prasikall32 - 20 nov. 2009 à 11:16
A voir également:
- Macro ok sous Excel2000 mais pas Excel 2003
- Liste déroulante excel - Guide
- Formule excel - Guide
- Déplacer une colonne excel - Guide
- Convertir chiffre en lettre excel sans macro ✓ - Forum Excel
- Aller à la ligne excel - Guide
2 réponses
michel_m
Messages postés
16593
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
23 mars 2023
3 292
14 mai 2009 à 10:27
14 mai 2009 à 10:27
bonjour,
on ne peut faire mieux que de compatir à tes problèmes car sans voir la macro...
dans l'attente
on ne peut faire mieux que de compatir à tes problèmes car sans voir la macro...
dans l'attente
génération_classeur
=ENTRER("Pour quel mois faut-il générer les fiches :";1;"QUEL MOIS";TEXTE(AUJOURDHUI();"mmmm aa")) Saisie de la date
=SI(Mois)
= POSER.VALEUR(Premier;FAUX)
= POSER.VALEUR(Nom_liste;LIRE.DOCUMENT(1))
= POSER.VALEUR(Nom_classeur;TEXTE(Mois;"\p\r\_mm\_aa"))
= POSER.VALEUR(N_m;MOIS(Mois))
= POSER.VALEUR(Nb_jours;31+(N_m= 1)-(N_m= 2)*(2-(MOD(ANNEE(Mois);4)=0))+(N_m= 3)+(N_m= 5)+(N_m= 7)+(N_m= 8)+(N_m= 10)+(N_m= 12)) Calcul du nombre de jours
= ECRAN(FAUX)
= POUR.CELLULE("Cellule_nom";!Nom_base;VRAI) Boucle sur la base
= POSER.VALEUR(Jour;1) Init du compteur N° de jour
= SELECTIONNER(Cellule_nom;)
= POSER.VALEUR(Nom;CELLULE.ACTIVE()) Nom
= SELECTIONNER("LC(1)";)
= POSER.VALEUR(Prénom;CELLULE.ACTIVE()) Prénom
= SELECTIONNER("LC(1)";)
= POSER.VALEUR(horaire;CELLULE.ACTIVE()) Type d'horaire
= SELECTIONNER("LC(1)";)
= POSER.VALEUR(HDMLundi;CELLULE.ACTIVE()) Heure matin début lundi
= SELECTIONNER("LC(1)";)
= POSER.VALEUR(HFMLundi;CELLULE.ACTIVE()) Heure matin fin lundi
= SELECTIONNER("LC(1)";)
= POSER.VALEUR(HDSLundi;CELLULE.ACTIVE()) Heure début soir lundi
= SELECTIONNER("LC(1)";)
= POSER.VALEUR(HFSLundi;CELLULE.ACTIVE()) Heure fin soir lundi
= SELECTIONNER("LC(1)";)
= POSER.VALEUR(HDMMardi;CELLULE.ACTIVE()) Heure matin début mardi
= SELECTIONNER("LC(1)";)
= POSER.VALEUR(HFMMardi;CELLULE.ACTIVE()) Heure matin fin mardi
= SELECTIONNER("LC(1)";)
= POSER.VALEUR(HDSMardi;CELLULE.ACTIVE()) Heure début soir mardi
= SELECTIONNER("LC(1)";)
= POSER.VALEUR(HFSMardi;CELLULE.ACTIVE()) Heure fin soir mardi
= SELECTIONNER("LC(1)";)
= POSER.VALEUR(HDMMercredi;CELLULE.ACTIVE()) Heure matin début mercredi
= SELECTIONNER("LC(1)";)
= POSER.VALEUR(HFMMercredi;CELLULE.ACTIVE()) Heure matin fin mercredi
= SELECTIONNER("LC(1)";)
= POSER.VALEUR(HDSMercredi;CELLULE.ACTIVE()) Heure début soir mercredi
= SELECTIONNER("LC(1)";)
= POSER.VALEUR(HFSMercredi;CELLULE.ACTIVE()) Heure fin soir mercredi
= SELECTIONNER("LC(1)";)
= POSER.VALEUR(HDMJeudi;CELLULE.ACTIVE()) Heure matin début jeudi
= SELECTIONNER("LC(1)";)
= POSER.VALEUR(HFMJeudi;CELLULE.ACTIVE()) Heure matin fin jeudi
= SELECTIONNER("LC(1)";)
= POSER.VALEUR(HDSJeudi;CELLULE.ACTIVE()) Heure début soir jeudi
= SELECTIONNER("LC(1)";)
= POSER.VALEUR(HFSJeudi;CELLULE.ACTIVE()) Heure fin soir jeudi
= SELECTIONNER("LC(1)";)
= POSER.VALEUR(HDMVendredi;CELLULE.ACTIVE()) Heure matin début vendredi
= SELECTIONNER("LC(1)";)
= POSER.VALEUR(HFMVendredi;CELLULE.ACTIVE()) Heure matin fin vendredi
= SELECTIONNER("LC(1)";)
= POSER.VALEUR(HDSVendredi;CELLULE.ACTIVE()) Heure début soir vendredi
= SELECTIONNER("LC(1)";)
= POSER.VALEUR(HFSVendredi;CELLULE.ACTIVE()) Heure fin soir vendredi
= SELECTIONNER("LC(1)";)
= POSER.VALEUR(HDMSamedi;CELLULE.ACTIVE()) Heure matin début samedi
= SELECTIONNER("LC(1)";)
= POSER.VALEUR(HFMSamedi;CELLULE.ACTIVE()) Heure matin fin samedi
= SELECTIONNER("LC(1)";)
= POSER.VALEUR(HDSSamedi;CELLULE.ACTIVE()) Heure début soir samedi
= SELECTIONNER("LC(1)";)
= POSER.VALEUR(HFSSamedi;CELLULE.ACTIVE()) Heure fin soir samedi
= SELECTIONNER("LC(1)";)
= POSER.VALEUR(HDMDimanche;CELLULE.ACTIVE()) Heure matin début dimanche
= SELECTIONNER("LC(1)";)
= POSER.VALEUR(HFMDimanche;CELLULE.ACTIVE()) Heure matin fin dimanche
= SELECTIONNER("LC(1)";)
= POSER.VALEUR(HDSDimanche;CELLULE.ACTIVE()) Heure début soir dimanche
= SELECTIONNER("LC(1)";)
= POSER.VALEUR(HFSDimanche;CELLULE.ACTIVE()) Heure fin soir dimanche
= SELECTIONNER("LC(1)";)
= POSER.VALEUR(Section;CELLULE.ACTIVE()) Section
= SELECTIONNER("LC(1)";)
= POSER.VALEUR(Site;CELLULE.ACTIVE()) Site
= SELECTIONNER("LC(1)";)
= POSER.VALEUR(Service;CELLULE.ACTIVE()) Service
= SELECTIONNER("LC(1)";)
= POSER.VALEUR(Société;CELLULE.ACTIVE()) Société
= POSER.VALEUR(Nom_fiche;Nom&" "&Prénom) Constitution du nom de la fiche
= SI(Premier)
= ACTIVER(Nom_nouveau)
= SINON()
= NOUVEAU.DOCUMENT("TICKET";;Premier)
= POSER.VALEUR(Mois_ticket;"&C&28&A&D&14"&TEXTE(Mois;"mmmm aaaa"))
= MISE.EN.PAGE(Mois_ticket)
= SELECTIONNER("Premier")
= POSER.VALEUR(Nom_ticket;LIRE.DOCUMENT(1))
= FIN.SI()
= NOUVEAU.DOCUMENT("PRESENCE";;VRAI)
= POSER.VALEUR(Nom_nouveau;LIRE.DOCUMENT(1))
= NOMMER.CLASSEUR(Nom_nouveau;Nom_fiche)
= POSER.VALEUR(Nom_nouveau;LIRE.DOCUMENT(1))
= POSER.VALEUR(Premier;VRAI)
= MODE.DE.CALCUL(3) On annule de mode de calcul automatique
= POSER.VALEUR(Nom_doc;LIRE.DOCUMENT(1)) Créer la nouvelle fiche
= POSER.VALEUR(Horaire_lundi;HFMLundi-HDMLundi+HFSLundi-HDSLundi) Calcul de l'horaire du lundi
= POSER.VALEUR(Horaire_mardi;HFMMardi-HDMMardi+HFSMardi-HDSMardi) Calcul de l'horaire du mardi
= POSER.VALEUR(Horaire_mercredi;HFMMercredi-HDMMercredi+HFSMercredi-HDSMercredi) Calcul de l'horaire du mercredi
= POSER.VALEUR(Horaire_jeudi;HFMJeudi-HDMJeudi+HFSJeudi-HDSJeudi) Calcul de l'horaire du jeudi
= POSER.VALEUR(Horaire_vendredi;HFMVendredi-HDMVendredi+HFSVendredi-HDSVendredi) Calcul de l'horaire du vendredi
= POSER.VALEUR(Horaire_samedi;HFMSamedi-HDMSamedi+HFSSamedi-HDSSamedi) Calcul de l'horaire du samedi
= POSER.VALEUR(Horaire_dimanche;HFMDimanche-HDMDimanche+HFSDimanche-HDSDimanche) Calcul de l'horaire du dimanche
= FORMULE(Mois;!Mois_feuille) Mise à jour de la date
= FORMULE(Nom;!Nom_feuille)
= FORMULE(Prénom;!Prénom_feuille)
= FORMULE(Section;!Section_feuille)
= FORMULE(Site;!Site_feuille)
= FORMULE(Service;!Service_feuille)
= FORMULE(Société;!Société_feuille)
= FORMULE(horaire;!horaire_feuille)
= POUR.CELLULE("Jour_actif";!Jours_feuille;FAUX) Boucle sur les N°
= SELECTIONNER(Jour_actif;)
= SI(Jour<Nb_jours)
= FORMULE(Jour;Jour_actif) Mise à jour du quantième
= SELECTIONNER("LC(-1)")
= FORMULE(MAJUSCULE(GAUCHE(TEXTE(!Mois_feuille+Jour-1;"jjj");1)))
= POSER.VALEUR(Jour;Jour+1)
= FIN.SI()
= SUIVANT()
= POUR.CELLULE("Cellule_jour";!Jours_feuille;VRAI) Boucle sur les jours
= SELECTIONNER(Cellule_jour;)
= SI(JOURSEM(!Mois_feuille-2 + Cellule_jour)=1) Test si LUNDI
= SELECTIONNER("LC(1)";)
= SI(HDMLundi=0)
= MOTIFS(17;0;;VRAI)
= FIN.SI()
= FORMULE(HDMLundi;CELLULE.ACTIVE())
= SELECTIONNER("LC(1)";)
= SI(HFMLundi=0)
= MOTIFS(17;0;;VRAI)
= FIN.SI()
= FORMULE(HFMLundi;CELLULE.ACTIVE())
= SELECTIONNER("LC(1)";)
= SI(HDSLundi=0)
= MOTIFS(17;0;;VRAI)
= FIN.SI()
= FORMULE(HDSLundi;CELLULE.ACTIVE())
= SELECTIONNER("LC(1)";)
= SI(HFSLundi=0)
= MOTIFS(17;0;;VRAI)
= FIN.SI()
= FORMULE(HFSLundi;CELLULE.ACTIVE())
= SELECTIONNER("LC(2)";) Mise à jour horaire journalier
= FORMULE(Horaire_lundi;CELLULE.ACTIVE())
= SINON.SI(JOURSEM(!Mois_feuille-2 + Cellule_jour)=2) Test si MARDI
= SELECTIONNER("LC(1)";)
= SI(HDMMardi=0)
= MOTIFS(17;0;;VRAI)
= FIN.SI()
= FORMULE(HDMMardi;CELLULE.ACTIVE())
= SELECTIONNER("LC(1)";)
= SI(HFMMardi=0)
= MOTIFS(17;0;;VRAI)
= FIN.SI()
= FORMULE(HFMMardi;CELLULE.ACTIVE())
= SELECTIONNER("LC(1)";)
= SI(HDSMardi=0)
= MOTIFS(17;0;;VRAI)
= FIN.SI()
= FORMULE(HDSMardi;CELLULE.ACTIVE())
= SELECTIONNER("LC(1)";)
= SI(HFSMardi=0)
= MOTIFS(17;0;;VRAI)
= FIN.SI()
= FORMULE(HFSMardi;CELLULE.ACTIVE())
= SELECTIONNER("LC(2)";) Mise à jour horaire journalier
= FORMULE(Horaire_mardi;CELLULE.ACTIVE())
= SINON.SI(JOURSEM(!Mois_feuille-2 + Cellule_jour)=3) Test si MERCREDI
= SELECTIONNER("LC(1)";)
= SI(HDMMercredi=0)
= MOTIFS(17;0;;VRAI)
= FIN.SI()
= FORMULE(HDMMercredi;CELLULE.ACTIVE())
= SELECTIONNER("LC(1)";)
= SI(HFMMercredi=0)
= MOTIFS(17;0;;VRAI)
= FIN.SI()
= FORMULE(HFMMercredi;CELLULE.ACTIVE())
= SELECTIONNER("LC(1)";)
= SI(HDSMercredi=0)
= MOTIFS(17;0;;VRAI)
= FIN.SI()
= FORMULE(HDSMercredi;CELLULE.ACTIVE())
= SELECTIONNER("LC(1)";)
= SI(HFSMercredi=0)
= MOTIFS(17;0;;VRAI)
= FIN.SI()
= FORMULE(HFSMercredi;CELLULE.ACTIVE())
= SELECTIONNER("LC(2)";) Mise à jour horaire journalier
= FORMULE(Horaire_mercredi;CELLULE.ACTIVE())
= SINON.SI(JOURSEM(!Mois_feuille-2 + Cellule_jour)=4) Test si JEUDI
= SELECTIONNER("LC(1)";)
= SI(HDMJeudi=0)
= MOTIFS(17;0;;VRAI)
= FIN.SI()
= FORMULE(HDMJeudi;CELLULE.ACTIVE())
= SELECTIONNER("LC(1)";)
= SI(HFMJeudi=0)
= MOTIFS(17;0;;VRAI)
= FIN.SI()
= FORMULE(HFMJeudi;CELLULE.ACTIVE())
= SELECTIONNER("LC(1)";)
= SI(HDSJeudi=0)
= MOTIFS(17;0;;VRAI)
= FIN.SI()
= FORMULE(HDSJeudi;CELLULE.ACTIVE())
= SELECTIONNER("LC(1)";)
= SI(HFSJeudi=0)
= MOTIFS(17;0;;VRAI)
= FIN.SI()
= FORMULE(HFSJeudi;CELLULE.ACTIVE())
= SELECTIONNER("LC(2)";) Mise à jour horaire journalier
= FORMULE(Horaire_jeudi;CELLULE.ACTIVE())
= SINON.SI(JOURSEM(!Mois_feuille-2 + Cellule_jour)=5) Test si VENDREDI
= SELECTIONNER("LC(1)";)
= SI(HDMVendredi=0)
= MOTIFS(17;0;;VRAI)
= FIN.SI()
= FORMULE(HDMVendredi;CELLULE.ACTIVE())
= SELECTIONNER("LC(1)";)
= SI(HFMVendredi=0)
= MOTIFS(17;0;;VRAI)
= FIN.SI()
= FORMULE(HFMVendredi;CELLULE.ACTIVE())
= SELECTIONNER("LC(1)";)
= SI(HDSVendredi=0)
= MOTIFS(17;0;;VRAI)
= FIN.SI()
= FORMULE(HDSVendredi;CELLULE.ACTIVE())
= SELECTIONNER("LC(1)";)
= SI(HFSVendredi=0)
= MOTIFS(17;0;;VRAI)
= FIN.SI()
= FORMULE(HFSVendredi;CELLULE.ACTIVE())
= SELECTIONNER("LC(2)";) Mise à jour horaire journalier
= FORMULE(Horaire_vendredi;CELLULE.ACTIVE())
= SINON.SI(JOURSEM(!Mois_feuille-2 + Cellule_jour)=6) Test si SAMEDI
= SELECTIONNER("LC(1)";)
= SI(HDMSamedi=0)
= MOTIFS(17;0;;VRAI)
= FIN.SI()
= FORMULE(HDMSamedi;CELLULE.ACTIVE())
= SELECTIONNER("LC(1)";)
= SI(HFMSamedi=0)
= MOTIFS(17;0;;VRAI)
= FIN.SI()
= FORMULE(HFMSamedi;CELLULE.ACTIVE())
= SELECTIONNER("LC(1)";)
= SI(HDSSamedi=0)
= MOTIFS(17;0;;VRAI)
= FIN.SI()
= FORMULE(HDSSamedi;CELLULE.ACTIVE())
= SELECTIONNER("LC(1)";)
= SI(HFSSamedi=0)
= MOTIFS(17;0;;VRAI)
= FIN.SI()
= FORMULE(HFSSamedi;CELLULE.ACTIVE())
= SELECTIONNER("LC(2)";) Mise à jour horaire journalier
= FORMULE(Horaire_samedi;CELLULE.ACTIVE())
= SINON.SI(JOURSEM(!Mois_feuille-2 + Cellule_jour)=7) Test si DIMANCHE
= SELECTIONNER("LC(1)";)
= SI(HDMDimanche=0)
= MOTIFS(17;0;;VRAI)
= FIN.SI()
= FORMULE(HDMDimanche;CELLULE.ACTIVE())
= SELECTIONNER("LC(1)";)
= SI(HFMDimanche=0)
= MOTIFS(17;0;;VRAI)
= FIN.SI()
= FORMULE(HFMDimanche;CELLULE.ACTIVE())
= SELECTIONNER("LC(1)";)
= SI(HDSDimanche=0)
= MOTIFS(17;0;;VRAI)
= FIN.SI()
= FORMULE(HDSDimanche;CELLULE.ACTIVE())
= SELECTIONNER("LC(1)";)
= SI(HFSDimanche=0)
= MOTIFS(17;0;;VRAI)
= FIN.SI()
= FORMULE(HFSDimanche;CELLULE.ACTIVE())
= SELECTIONNER("LC(2)";)
= FORMULE(Horaire_dimanche;CELLULE.ACTIVE())
= SINON()
= SELECTIONNER("LC(-1):LC(14)";)
= MOTIFS(17;0;;VRAI)
= FIN.SI()
= SUIVANT()
Changer le nom de la fiche
= MODE.DE.CALCUL(1) On remet le mode de calcul automatique
= SELECTIONNER("L1C1")
= PROTEGER.DOCUMENT(VRAI;FAUX;"SOCIETE";VRAI)
= ECRAN(VRAI)
= ECRAN(FAUX)
= ACTIVER(Nom_ticket)
= FORMULE(Nom;CELLULE.ACTIVE())
=SELECTIONNER("LC(1)";)
= FORMULE(Prénom;CELLULE.ACTIVE())
=SELECTIONNER("LC(1)";)
=POSER.VALEUR(Ticket;"='"&Nom_fiche&"'!Tickets")
=POSER.VALEUR(Heures_sup;"='"&Nom_fiche&"'!Heures_sup")
= FORMULE(Ticket;CELLULE.ACTIVE())
=SELECTIONNER("L(0)C(1)";)
= FORMULE(Heures_sup;CELLULE.ACTIVE())
=SELECTIONNER("L(1)C(-3)";)
= ACTIVER(Nom_liste)
= SUIVANT()
= ACTIVER(Nom_nouveau)
= PROTEGER.DOCUMENT(VRAI;FAUX;"SOCIETE";VRAI)
= ENREGISTRER.SOUS(Nom_classeur;1;;;;)
= ECRAN(VRAI)
=FIN.SI()
=POSER.VALEUR(Nom_classeur;"") effacer les liaisons avec d'autres fichiers
=POSER.VALEUR(Nom_liste;"")
=POSER.VALEUR(Nom_ticket;"")
=POSER.VALEUR(Nom_nouveau;"")
=POSER.VALEUR(Nom_doc;"")
=POSER.VALEUR(Ticket;"")
=POSER.VALEUR(Heures_sup;"")
=RETOUR()
=ENTRER("Pour quel mois faut-il générer les fiches :";1;"QUEL MOIS";TEXTE(AUJOURDHUI();"mmmm aa")) Saisie de la date
=SI(Mois)
= POSER.VALEUR(Premier;FAUX)
= POSER.VALEUR(Nom_liste;LIRE.DOCUMENT(1))
= POSER.VALEUR(Nom_classeur;TEXTE(Mois;"\p\r\_mm\_aa"))
= POSER.VALEUR(N_m;MOIS(Mois))
= POSER.VALEUR(Nb_jours;31+(N_m= 1)-(N_m= 2)*(2-(MOD(ANNEE(Mois);4)=0))+(N_m= 3)+(N_m= 5)+(N_m= 7)+(N_m= 8)+(N_m= 10)+(N_m= 12)) Calcul du nombre de jours
= ECRAN(FAUX)
= POUR.CELLULE("Cellule_nom";!Nom_base;VRAI) Boucle sur la base
= POSER.VALEUR(Jour;1) Init du compteur N° de jour
= SELECTIONNER(Cellule_nom;)
= POSER.VALEUR(Nom;CELLULE.ACTIVE()) Nom
= SELECTIONNER("LC(1)";)
= POSER.VALEUR(Prénom;CELLULE.ACTIVE()) Prénom
= SELECTIONNER("LC(1)";)
= POSER.VALEUR(horaire;CELLULE.ACTIVE()) Type d'horaire
= SELECTIONNER("LC(1)";)
= POSER.VALEUR(HDMLundi;CELLULE.ACTIVE()) Heure matin début lundi
= SELECTIONNER("LC(1)";)
= POSER.VALEUR(HFMLundi;CELLULE.ACTIVE()) Heure matin fin lundi
= SELECTIONNER("LC(1)";)
= POSER.VALEUR(HDSLundi;CELLULE.ACTIVE()) Heure début soir lundi
= SELECTIONNER("LC(1)";)
= POSER.VALEUR(HFSLundi;CELLULE.ACTIVE()) Heure fin soir lundi
= SELECTIONNER("LC(1)";)
= POSER.VALEUR(HDMMardi;CELLULE.ACTIVE()) Heure matin début mardi
= SELECTIONNER("LC(1)";)
= POSER.VALEUR(HFMMardi;CELLULE.ACTIVE()) Heure matin fin mardi
= SELECTIONNER("LC(1)";)
= POSER.VALEUR(HDSMardi;CELLULE.ACTIVE()) Heure début soir mardi
= SELECTIONNER("LC(1)";)
= POSER.VALEUR(HFSMardi;CELLULE.ACTIVE()) Heure fin soir mardi
= SELECTIONNER("LC(1)";)
= POSER.VALEUR(HDMMercredi;CELLULE.ACTIVE()) Heure matin début mercredi
= SELECTIONNER("LC(1)";)
= POSER.VALEUR(HFMMercredi;CELLULE.ACTIVE()) Heure matin fin mercredi
= SELECTIONNER("LC(1)";)
= POSER.VALEUR(HDSMercredi;CELLULE.ACTIVE()) Heure début soir mercredi
= SELECTIONNER("LC(1)";)
= POSER.VALEUR(HFSMercredi;CELLULE.ACTIVE()) Heure fin soir mercredi
= SELECTIONNER("LC(1)";)
= POSER.VALEUR(HDMJeudi;CELLULE.ACTIVE()) Heure matin début jeudi
= SELECTIONNER("LC(1)";)
= POSER.VALEUR(HFMJeudi;CELLULE.ACTIVE()) Heure matin fin jeudi
= SELECTIONNER("LC(1)";)
= POSER.VALEUR(HDSJeudi;CELLULE.ACTIVE()) Heure début soir jeudi
= SELECTIONNER("LC(1)";)
= POSER.VALEUR(HFSJeudi;CELLULE.ACTIVE()) Heure fin soir jeudi
= SELECTIONNER("LC(1)";)
= POSER.VALEUR(HDMVendredi;CELLULE.ACTIVE()) Heure matin début vendredi
= SELECTIONNER("LC(1)";)
= POSER.VALEUR(HFMVendredi;CELLULE.ACTIVE()) Heure matin fin vendredi
= SELECTIONNER("LC(1)";)
= POSER.VALEUR(HDSVendredi;CELLULE.ACTIVE()) Heure début soir vendredi
= SELECTIONNER("LC(1)";)
= POSER.VALEUR(HFSVendredi;CELLULE.ACTIVE()) Heure fin soir vendredi
= SELECTIONNER("LC(1)";)
= POSER.VALEUR(HDMSamedi;CELLULE.ACTIVE()) Heure matin début samedi
= SELECTIONNER("LC(1)";)
= POSER.VALEUR(HFMSamedi;CELLULE.ACTIVE()) Heure matin fin samedi
= SELECTIONNER("LC(1)";)
= POSER.VALEUR(HDSSamedi;CELLULE.ACTIVE()) Heure début soir samedi
= SELECTIONNER("LC(1)";)
= POSER.VALEUR(HFSSamedi;CELLULE.ACTIVE()) Heure fin soir samedi
= SELECTIONNER("LC(1)";)
= POSER.VALEUR(HDMDimanche;CELLULE.ACTIVE()) Heure matin début dimanche
= SELECTIONNER("LC(1)";)
= POSER.VALEUR(HFMDimanche;CELLULE.ACTIVE()) Heure matin fin dimanche
= SELECTIONNER("LC(1)";)
= POSER.VALEUR(HDSDimanche;CELLULE.ACTIVE()) Heure début soir dimanche
= SELECTIONNER("LC(1)";)
= POSER.VALEUR(HFSDimanche;CELLULE.ACTIVE()) Heure fin soir dimanche
= SELECTIONNER("LC(1)";)
= POSER.VALEUR(Section;CELLULE.ACTIVE()) Section
= SELECTIONNER("LC(1)";)
= POSER.VALEUR(Site;CELLULE.ACTIVE()) Site
= SELECTIONNER("LC(1)";)
= POSER.VALEUR(Service;CELLULE.ACTIVE()) Service
= SELECTIONNER("LC(1)";)
= POSER.VALEUR(Société;CELLULE.ACTIVE()) Société
= POSER.VALEUR(Nom_fiche;Nom&" "&Prénom) Constitution du nom de la fiche
= SI(Premier)
= ACTIVER(Nom_nouveau)
= SINON()
= NOUVEAU.DOCUMENT("TICKET";;Premier)
= POSER.VALEUR(Mois_ticket;"&C&28&A&D&14"&TEXTE(Mois;"mmmm aaaa"))
= MISE.EN.PAGE(Mois_ticket)
= SELECTIONNER("Premier")
= POSER.VALEUR(Nom_ticket;LIRE.DOCUMENT(1))
= FIN.SI()
= NOUVEAU.DOCUMENT("PRESENCE";;VRAI)
= POSER.VALEUR(Nom_nouveau;LIRE.DOCUMENT(1))
= NOMMER.CLASSEUR(Nom_nouveau;Nom_fiche)
= POSER.VALEUR(Nom_nouveau;LIRE.DOCUMENT(1))
= POSER.VALEUR(Premier;VRAI)
= MODE.DE.CALCUL(3) On annule de mode de calcul automatique
= POSER.VALEUR(Nom_doc;LIRE.DOCUMENT(1)) Créer la nouvelle fiche
= POSER.VALEUR(Horaire_lundi;HFMLundi-HDMLundi+HFSLundi-HDSLundi) Calcul de l'horaire du lundi
= POSER.VALEUR(Horaire_mardi;HFMMardi-HDMMardi+HFSMardi-HDSMardi) Calcul de l'horaire du mardi
= POSER.VALEUR(Horaire_mercredi;HFMMercredi-HDMMercredi+HFSMercredi-HDSMercredi) Calcul de l'horaire du mercredi
= POSER.VALEUR(Horaire_jeudi;HFMJeudi-HDMJeudi+HFSJeudi-HDSJeudi) Calcul de l'horaire du jeudi
= POSER.VALEUR(Horaire_vendredi;HFMVendredi-HDMVendredi+HFSVendredi-HDSVendredi) Calcul de l'horaire du vendredi
= POSER.VALEUR(Horaire_samedi;HFMSamedi-HDMSamedi+HFSSamedi-HDSSamedi) Calcul de l'horaire du samedi
= POSER.VALEUR(Horaire_dimanche;HFMDimanche-HDMDimanche+HFSDimanche-HDSDimanche) Calcul de l'horaire du dimanche
= FORMULE(Mois;!Mois_feuille) Mise à jour de la date
= FORMULE(Nom;!Nom_feuille)
= FORMULE(Prénom;!Prénom_feuille)
= FORMULE(Section;!Section_feuille)
= FORMULE(Site;!Site_feuille)
= FORMULE(Service;!Service_feuille)
= FORMULE(Société;!Société_feuille)
= FORMULE(horaire;!horaire_feuille)
= POUR.CELLULE("Jour_actif";!Jours_feuille;FAUX) Boucle sur les N°
= SELECTIONNER(Jour_actif;)
= SI(Jour<Nb_jours)
= FORMULE(Jour;Jour_actif) Mise à jour du quantième
= SELECTIONNER("LC(-1)")
= FORMULE(MAJUSCULE(GAUCHE(TEXTE(!Mois_feuille+Jour-1;"jjj");1)))
= POSER.VALEUR(Jour;Jour+1)
= FIN.SI()
= SUIVANT()
= POUR.CELLULE("Cellule_jour";!Jours_feuille;VRAI) Boucle sur les jours
= SELECTIONNER(Cellule_jour;)
= SI(JOURSEM(!Mois_feuille-2 + Cellule_jour)=1) Test si LUNDI
= SELECTIONNER("LC(1)";)
= SI(HDMLundi=0)
= MOTIFS(17;0;;VRAI)
= FIN.SI()
= FORMULE(HDMLundi;CELLULE.ACTIVE())
= SELECTIONNER("LC(1)";)
= SI(HFMLundi=0)
= MOTIFS(17;0;;VRAI)
= FIN.SI()
= FORMULE(HFMLundi;CELLULE.ACTIVE())
= SELECTIONNER("LC(1)";)
= SI(HDSLundi=0)
= MOTIFS(17;0;;VRAI)
= FIN.SI()
= FORMULE(HDSLundi;CELLULE.ACTIVE())
= SELECTIONNER("LC(1)";)
= SI(HFSLundi=0)
= MOTIFS(17;0;;VRAI)
= FIN.SI()
= FORMULE(HFSLundi;CELLULE.ACTIVE())
= SELECTIONNER("LC(2)";) Mise à jour horaire journalier
= FORMULE(Horaire_lundi;CELLULE.ACTIVE())
= SINON.SI(JOURSEM(!Mois_feuille-2 + Cellule_jour)=2) Test si MARDI
= SELECTIONNER("LC(1)";)
= SI(HDMMardi=0)
= MOTIFS(17;0;;VRAI)
= FIN.SI()
= FORMULE(HDMMardi;CELLULE.ACTIVE())
= SELECTIONNER("LC(1)";)
= SI(HFMMardi=0)
= MOTIFS(17;0;;VRAI)
= FIN.SI()
= FORMULE(HFMMardi;CELLULE.ACTIVE())
= SELECTIONNER("LC(1)";)
= SI(HDSMardi=0)
= MOTIFS(17;0;;VRAI)
= FIN.SI()
= FORMULE(HDSMardi;CELLULE.ACTIVE())
= SELECTIONNER("LC(1)";)
= SI(HFSMardi=0)
= MOTIFS(17;0;;VRAI)
= FIN.SI()
= FORMULE(HFSMardi;CELLULE.ACTIVE())
= SELECTIONNER("LC(2)";) Mise à jour horaire journalier
= FORMULE(Horaire_mardi;CELLULE.ACTIVE())
= SINON.SI(JOURSEM(!Mois_feuille-2 + Cellule_jour)=3) Test si MERCREDI
= SELECTIONNER("LC(1)";)
= SI(HDMMercredi=0)
= MOTIFS(17;0;;VRAI)
= FIN.SI()
= FORMULE(HDMMercredi;CELLULE.ACTIVE())
= SELECTIONNER("LC(1)";)
= SI(HFMMercredi=0)
= MOTIFS(17;0;;VRAI)
= FIN.SI()
= FORMULE(HFMMercredi;CELLULE.ACTIVE())
= SELECTIONNER("LC(1)";)
= SI(HDSMercredi=0)
= MOTIFS(17;0;;VRAI)
= FIN.SI()
= FORMULE(HDSMercredi;CELLULE.ACTIVE())
= SELECTIONNER("LC(1)";)
= SI(HFSMercredi=0)
= MOTIFS(17;0;;VRAI)
= FIN.SI()
= FORMULE(HFSMercredi;CELLULE.ACTIVE())
= SELECTIONNER("LC(2)";) Mise à jour horaire journalier
= FORMULE(Horaire_mercredi;CELLULE.ACTIVE())
= SINON.SI(JOURSEM(!Mois_feuille-2 + Cellule_jour)=4) Test si JEUDI
= SELECTIONNER("LC(1)";)
= SI(HDMJeudi=0)
= MOTIFS(17;0;;VRAI)
= FIN.SI()
= FORMULE(HDMJeudi;CELLULE.ACTIVE())
= SELECTIONNER("LC(1)";)
= SI(HFMJeudi=0)
= MOTIFS(17;0;;VRAI)
= FIN.SI()
= FORMULE(HFMJeudi;CELLULE.ACTIVE())
= SELECTIONNER("LC(1)";)
= SI(HDSJeudi=0)
= MOTIFS(17;0;;VRAI)
= FIN.SI()
= FORMULE(HDSJeudi;CELLULE.ACTIVE())
= SELECTIONNER("LC(1)";)
= SI(HFSJeudi=0)
= MOTIFS(17;0;;VRAI)
= FIN.SI()
= FORMULE(HFSJeudi;CELLULE.ACTIVE())
= SELECTIONNER("LC(2)";) Mise à jour horaire journalier
= FORMULE(Horaire_jeudi;CELLULE.ACTIVE())
= SINON.SI(JOURSEM(!Mois_feuille-2 + Cellule_jour)=5) Test si VENDREDI
= SELECTIONNER("LC(1)";)
= SI(HDMVendredi=0)
= MOTIFS(17;0;;VRAI)
= FIN.SI()
= FORMULE(HDMVendredi;CELLULE.ACTIVE())
= SELECTIONNER("LC(1)";)
= SI(HFMVendredi=0)
= MOTIFS(17;0;;VRAI)
= FIN.SI()
= FORMULE(HFMVendredi;CELLULE.ACTIVE())
= SELECTIONNER("LC(1)";)
= SI(HDSVendredi=0)
= MOTIFS(17;0;;VRAI)
= FIN.SI()
= FORMULE(HDSVendredi;CELLULE.ACTIVE())
= SELECTIONNER("LC(1)";)
= SI(HFSVendredi=0)
= MOTIFS(17;0;;VRAI)
= FIN.SI()
= FORMULE(HFSVendredi;CELLULE.ACTIVE())
= SELECTIONNER("LC(2)";) Mise à jour horaire journalier
= FORMULE(Horaire_vendredi;CELLULE.ACTIVE())
= SINON.SI(JOURSEM(!Mois_feuille-2 + Cellule_jour)=6) Test si SAMEDI
= SELECTIONNER("LC(1)";)
= SI(HDMSamedi=0)
= MOTIFS(17;0;;VRAI)
= FIN.SI()
= FORMULE(HDMSamedi;CELLULE.ACTIVE())
= SELECTIONNER("LC(1)";)
= SI(HFMSamedi=0)
= MOTIFS(17;0;;VRAI)
= FIN.SI()
= FORMULE(HFMSamedi;CELLULE.ACTIVE())
= SELECTIONNER("LC(1)";)
= SI(HDSSamedi=0)
= MOTIFS(17;0;;VRAI)
= FIN.SI()
= FORMULE(HDSSamedi;CELLULE.ACTIVE())
= SELECTIONNER("LC(1)";)
= SI(HFSSamedi=0)
= MOTIFS(17;0;;VRAI)
= FIN.SI()
= FORMULE(HFSSamedi;CELLULE.ACTIVE())
= SELECTIONNER("LC(2)";) Mise à jour horaire journalier
= FORMULE(Horaire_samedi;CELLULE.ACTIVE())
= SINON.SI(JOURSEM(!Mois_feuille-2 + Cellule_jour)=7) Test si DIMANCHE
= SELECTIONNER("LC(1)";)
= SI(HDMDimanche=0)
= MOTIFS(17;0;;VRAI)
= FIN.SI()
= FORMULE(HDMDimanche;CELLULE.ACTIVE())
= SELECTIONNER("LC(1)";)
= SI(HFMDimanche=0)
= MOTIFS(17;0;;VRAI)
= FIN.SI()
= FORMULE(HFMDimanche;CELLULE.ACTIVE())
= SELECTIONNER("LC(1)";)
= SI(HDSDimanche=0)
= MOTIFS(17;0;;VRAI)
= FIN.SI()
= FORMULE(HDSDimanche;CELLULE.ACTIVE())
= SELECTIONNER("LC(1)";)
= SI(HFSDimanche=0)
= MOTIFS(17;0;;VRAI)
= FIN.SI()
= FORMULE(HFSDimanche;CELLULE.ACTIVE())
= SELECTIONNER("LC(2)";)
= FORMULE(Horaire_dimanche;CELLULE.ACTIVE())
= SINON()
= SELECTIONNER("LC(-1):LC(14)";)
= MOTIFS(17;0;;VRAI)
= FIN.SI()
= SUIVANT()
Changer le nom de la fiche
= MODE.DE.CALCUL(1) On remet le mode de calcul automatique
= SELECTIONNER("L1C1")
= PROTEGER.DOCUMENT(VRAI;FAUX;"SOCIETE";VRAI)
= ECRAN(VRAI)
= ECRAN(FAUX)
= ACTIVER(Nom_ticket)
= FORMULE(Nom;CELLULE.ACTIVE())
=SELECTIONNER("LC(1)";)
= FORMULE(Prénom;CELLULE.ACTIVE())
=SELECTIONNER("LC(1)";)
=POSER.VALEUR(Ticket;"='"&Nom_fiche&"'!Tickets")
=POSER.VALEUR(Heures_sup;"='"&Nom_fiche&"'!Heures_sup")
= FORMULE(Ticket;CELLULE.ACTIVE())
=SELECTIONNER("L(0)C(1)";)
= FORMULE(Heures_sup;CELLULE.ACTIVE())
=SELECTIONNER("L(1)C(-3)";)
= ACTIVER(Nom_liste)
= SUIVANT()
= ACTIVER(Nom_nouveau)
= PROTEGER.DOCUMENT(VRAI;FAUX;"SOCIETE";VRAI)
= ENREGISTRER.SOUS(Nom_classeur;1;;;;)
= ECRAN(VRAI)
=FIN.SI()
=POSER.VALEUR(Nom_classeur;"") effacer les liaisons avec d'autres fichiers
=POSER.VALEUR(Nom_liste;"")
=POSER.VALEUR(Nom_ticket;"")
=POSER.VALEUR(Nom_nouveau;"")
=POSER.VALEUR(Nom_doc;"")
=POSER.VALEUR(Ticket;"")
=POSER.VALEUR(Heures_sup;"")
=RETOUR()