Alerte sonore

Résolu/Fermé
eric2027 - 9 déc. 2013 à 14:04
narvalot Messages postés 117 Date d'inscription lundi 5 septembre 2011 Statut Membre Dernière intervention 24 septembre 2018 - 16 déc. 2013 à 16:25
Bonjour le Forum

Est-il possible de créer une alerte sonore et visuel quand un fichier est ouvert plus d'une heure,

Je travaille en réseau et mes collègues monopolisent des fichiers excel, et c'est très désagréable d'essayer de rattraper le temps

Par avance, merci

Cordialement

Éric 2027

38 réponses

dans l'onglet recap, dimanche, jour férié
0
Mike-31 Messages postés 18318 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 26 avril 2024 5 082
11 déc. 2013 à 18:32
Re,

Pour compter les couleurs, tu as cette fonction personnalisé

Function CompteRouge(Plage As Range)
Application.Volatile True
For Each Cell In Plage
If Cell.Interior.ColorIndex = 3 Then Somme = Somme + 1
Next
CompteRouge = Somme
End Function

que j'ai utilisé sur la ligne 29 de la feuille
recap dim, jour ferie


pour activer la mise à jour de la fonction personnalisé, j'ai ajouté un Calculate dans la Thiswokbook que tu peux utiliser avec ta fonction si tu la conserves

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Excel.Range)
ThisWorkbook.Names("Chrono").Value = 1
Calculate
End Sub

quand au code de fermeture du fichier aucun problème sur Excel 2010

https://www.cjoint.com/c/CLlsGEQoqD4
0
Tu as fait un boulot de fou ça fonctionne à merveille

est ce que mon fichier était trop avec sommecoul ? parce que je pensais que c'était une bonne idée de travailler comme ça

au fait je n'ai plus de beep, est ce normal ?

si je veux que le fichier se ferme dans 30 minutes, je remplace 5 par 30 ?

encore merci Mike pour ce que tu as fait, je vais pouvoir travailler et faire mes stat tranquillement sans angoisse
0
Mike-31 Messages postés 18318 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 26 avril 2024 5 082
12 déc. 2013 à 08:31
Re,

Bizarre que tu n'ai pas le beep, dans la journée je te ferai un petit fichier test pour le tester.
pour moduler la fermeture oui c'est cela tu modifies la constante 5, mais ne le mets pas trop long, c'est le temps d'inactivité sur le fichier, il suffit d'avoir une action sur le fichier pour relancer le chrono

SommeCoul fonctionne très bien, j'ai simplement allégé le code avec CompteRouge et du même la formule qui avec SommeCoul
=SomCoul(fev14!D36:AE36;"rouge")
comparée à mon code
=CompteRouge(fev14!D35:AE35)
si tu la préfères tu peux encore l'alléger en changeant la syntaxe CompteRouge par C_Coul
ce qui te donnera dans la formule
=C_Coul(fev14!D35:AE35) tu gagnes une dizaine d'octets multiplié par x formules cela fait pas mal sur le poids du fichier
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
donc je peux retirer les formules qui sont dans mon fichier recapdim, ce que alegera mon fichier
0
Mike-31 Messages postés 18318 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 26 avril 2024 5 082
Modifié par Mike-31 le 14/12/2013 à 15:35
Re,

Excuse le temps passe vite, oui tu peux réécrire la fonction si tu optes pour cette modif je te dirai point par point la méthode pour les modifier en deux clic.

sur la feuille "recap dim, jour ferie" tu peux suivre provisoirement le déroulement du décomptes avant la fermeture du fichier, je t'ai mis une shape bleu pour te permettre la suspension du décompte que nous amélioreront plus tard.

au départ le fichier est disponible environ 1800 secondes (une 1/2 heure) sans activité, à 30 secondes de la fin de ce temps tu as un Beep et à 0 l'enregistrement et la fermeture du fichier

https://www.cjoint.com/c/CLopIpGwrra

A+
Mike-31

Une période d'échec est un moment rêvé pour semer les graines du savoir.
0
youah, tu fais fort là, c'est génial ce que tu crées et j'aimerais bien faire comme toi mais je suis vraiment novice dans les macros

j'ai laissé une question sur un post ce matin je n"arrive pas à trouvé certain truc sur excel 2010, si tu pouvais le lire et m'orienter, je t'en serai très reconnaissant, j'essaye de me mettre à la macro

merci pour ton investissement
0
Mike-31 Messages postés 18318 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 26 avril 2024 5 082
14 déc. 2013 à 19:25
Re,

j'ai relancé cette discussion, et traite chaque discussion dans la discussion sinon on ne va pas s'y retrouver.

sur quelle feuille sont tes mises en forme conditionnelles ,


pour l'autre discussion, je ne vois pas
0
narvalot Messages postés 117 Date d'inscription lundi 5 septembre 2011 Statut Membre Dernière intervention 24 septembre 2018
14 déc. 2013 à 19:59
apparement ça a été retiré, je ne sais pas par qui, c'est bizarre parce que j'avais mis un lien, et comme il est au travail, je te l'envois lundi

merci encore c'est vraiment sympa de ta part de me sortir de ce tunnel ou je ne voyais pas le bout
0
Mike-31 Messages postés 18318 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 26 avril 2024 5 082
16 déc. 2013 à 10:02
Re,

tu peux m'en dire un peu plus sur ton fichier, je pense que semaine 50 la cellule en bleu dont tu parles est la E30 et G30,
que veux tu faire créer une mise en forme conditionnelle si par exemple tu saisie dans une cellule Upe elle se met en jaune, ou veux tu compter les cellules de toutes tes semaines par couleur et pourquoi pas les deux ?
0
narvalot Messages postés 117 Date d'inscription lundi 5 septembre 2011 Statut Membre Dernière intervention 24 septembre 2018
16 déc. 2013 à 10:17
ce que j'aimerais c'est que quand les cellules dépassent 0 par exemple "brigade centre en i34, il y a 3 agents qui sont venu, donc en semaine 50 en colonne AA, elles deviennent bleu comme cette mfc, ='Brigade centre '!$I$34>0

c'est à dire que quand les agents viennent au sport ils soit comptabilisés et que le résultat s'inscrivent en couleurs
0
Mike-31 Messages postés 18318 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 26 avril 2024 5 082
Modifié par Mike-31 le 16/12/2013 à 10:45
Re,

Le principal avant de se lancer est de bien cerner le problème.
si feuille "Brigade centre" tu saisis une valeur exemple en I34, elle se reporte feuille semaine 50 cellule AA6 et la cellule se colorise si j'ai bien compris cellule AI6 devrait se coloriser de la même manière ?

tu devrais uniformiser tes feuilles Brigade centre, Vtt centre etc de sorte à avoir les critères sur les mêmes cellules

A+
Mike-31

Une période d'échec est un moment rêvé pour semer les graines du savoir.
0
narvalot Messages postés 117 Date d'inscription lundi 5 septembre 2011 Statut Membre Dernière intervention 24 septembre 2018
16 déc. 2013 à 11:36
oui c'est ça,

j'ai fait ce tableau en vitesse, qu'entends tu par uniformiser ?

le résultat en i34, est du fait d'une formule nb.si, et elle se reporte en colonne AA
et ce, sur tout les jours des semaines, lundi = AA, mardi = AE, mercredi = AI etc...

donc le résultat de J33 ira sur semaine 50, AE
le résultat de K33 ira sur semaine 50, AI etc...
0
Mike-31 Messages postés 18318 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 26 avril 2024 5 082
16 déc. 2013 à 12:20
Re,

Uniformiser, que tous les tableau soient identiques, que les colonnes comme les lignes soit semblable, mais je n'avais pas remarqué que feuille Cvo les colonnes étaient masquées.

regarde feuille Brigade centre en J2 le format personnalisé, il suffit de saisir le numéro semaine exemple 50
automatiquement en I5 tu as une formule qui te donne le premier jour semaine sans passer par la date en K4, il suffit de sélectionner l'année dans une cellule nommée que j'ai mis en feuille Couleurs C1

en F3 j'ai mis une formule qui n'utilise pas la cellule nommée et prends l'année en cours

regarde tes mises en forme si elles répondent à tes attentes

https://www.cjoint.com/c/CLqmuuLWFlO
0
narvalot Messages postés 117 Date d'inscription lundi 5 septembre 2011 Statut Membre Dernière intervention 24 septembre 2018
16 déc. 2013 à 13:16
C'est exactement ce que je voulais, par contre il ne me prend pas pour les semaines suivantes.

Comme je vais continuer à gérer ces agents sur l'année 2014, je voulais faire 52 semaines avec ces formules, mais après des tests, il reste que la semaine 50,
parce qu'on me demande des stats sur les mois, trimestres, semestres et annuelle.
Donc je voulais faire une formule en somme, comme ça je pourrais préparer mes tableaux et camenberts sans stress
0
Mike-31 Messages postés 18318 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 26 avril 2024 5 082
16 déc. 2013 à 13:30
Re,

Si tu crées un fichier par an, en feuille Couleurs C1 tu sélectionnes 2014 et feuille Brigade centre en J2 tu saisis la semaine et tu as automatiquement la date du lundi en feuille Brigade centre en I4

si tu travaille sur le même fichier, feuille Brigade centre en I4 utilise cette formule

=SI(ESTNUM(I2);7*I2+DATE(2013;1;3)-JOURSEM(DATE(2013;1;3))-5;"")

à adapter pour les autres semaines, et pour passer en 2014 il suffit de changer simplement l'année

=SI(ESTNUM(I2);7*I2+DATE(2014;1;3)-JOURSEM(DATE(2014;1;3))-5;"")
0
narvalot Messages postés 117 Date d'inscription lundi 5 septembre 2011 Statut Membre Dernière intervention 24 septembre 2018
16 déc. 2013 à 14:04
Mike,

Un grand grand merci à toi, pour mes stats, c'est le top de chez top.

Merci pour ton investissement et ta rapidité, tu me sors d'une souffrance, parce que sans toi et tes formules, je n'aurais pu finir les stats pour la fin d'année.

Encore merci à toi et o Forum,
je mets en résolu
0
Mike-31 Messages postés 18318 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 26 avril 2024 5 082
16 déc. 2013 à 14:17
Re,

Merci à toi et bonne fête
0
narvalot Messages postés 117 Date d'inscription lundi 5 septembre 2011 Statut Membre Dernière intervention 24 septembre 2018
16 déc. 2013 à 16:25
Bonnes fêtes à toi et o forum
0