Aller au contenu

Un collègue rale trop ? faite vos paris !


Curlygoth
 Partager

Messages recommandés

Bonjour à vous,

 

Je sais pas si c'est le cas pour tout le monde ici, mais nous : on a un collègue qui râle et qui ne fait que ça... enfin c'est ce qu'on dit...

et bien sur, ça nous fait râler.. qu'il râle... enfin bref... un collègue me demande si je peux faire un programme pour compter le nombre de fois qu'il râle dans la journée !

Si tôt dit, si tôt fait !

 

Les parieurs ont un bouton dans leur ruban excel (oui on est encore dans les années 1980 chez nous) et le matin :

A la première ouverture du jour tous choisissent un nomnbre de fois où le raleur ralera !

chacun pari sur un nombre !

ensuite des qu'il râle la parieur appuis sur leur bouton, le soir on compare les résultats avec nos comptes à tous ! pour être sur que personne n'a oublier de cliquer un râlement ou lors de leur absence... on prend la moyenne et on voit qui est proche ou non !

 

et a chaque fois on suit le nombre qu'on a choisi a la base et le nombre de fois où il râle dans la journée !

 

tout ça pour dire que si à la fin de la journée on a pas notre quota parié on le fais râler un peu plus ^^

 

lisez le code un peu pour comprendre ;-)

il faut un fichier xlsm dans lequel, on a la macro (j'aurais préféré cibler le .bas m'enfin bon)

on ajoute au ruban la macro et c'est fait :

Ajouter un bouton au ruban (si possible cacher le un peu) histoire que le raleur ne le sache pas... en venant à votre pc en ralant XD

https://support.microsoft.com/fr-fr/office/affecter-une-macro-%C3%A0-un-bouton-728c83ec-61d0-40bd-b6ba-927f84eb5d2c

 

le code est dans un module dans un fichier que j'ai appelé "18.xlsm"

 

Sub COMPTEUR()
Dim FICHIER_PARI As String
Dim FICHIER_CPT As String
PARIEUR = Environ("USERNAME")
c = "\\...\" 'chemin du dossier
J = Day(Date)
M = Month(Date)
Y = Year(Date)
DATE_A = Y & "-" & M & "-" & J
FICHIER_PARI = c & DATE_A & "\PARIEUR-" & PARIEUR & ".txt"
FICHIER_CPT = c & DATE_A & "\COMPTEUR-" & PARIEUR & ".txt"
If FichierExiste(FICHIER_PARI) = True Then
   If FichierExiste(FICHIER_CPT) = True Then
       CPT = Trim(LireFichierTexte(FICHIER_CPT))
       CPT = CInt(CPT) + 1
   Else
       CPT = 1
   End If
   Open FICHIER_CPT For Output As #1
       Print #1, CPT
   Close #1
Else
   On Error Resume Next
   MkDir c & DATE_A
   On Error GoTo 0
   Do
   NB_RALE = InputBox("Combien de fois pariez-vous que X rale aujourd'hui ?", "A vos Pari")
   Loop While IsNumeric(NB_RALE) = False
   Open FICHIER_PARI For Output As #1
      Print #1, NB_RALE
    Close #1
    Exit Sub
End If
PARIE = LireFichierTexte(FICHIER_PARI)
CPT = Trim(LireFichierTexte(FICHIER_CPT))
MsgBox ("Nombre de rale ce jour : " & CPT & Chr(10) & "Vous avez parié ce jour : " & PARIE)

Workbooks("18.xlsm").Close

End Sub

Public Function FichierExiste(MonFichier As String)
  If Len(Dir(MonFichier)) > 0 Then
     FichierExiste = True
  Else
     FichierExiste = False
  End If
End Function
Public Function DossierExiste(DOSSIER As String)
On Error GoTo FAUX:
If Len(Dir(DOSSIER, vbDirectory)) > 0 Then
   DossierExiste = True
Else
   DossierExiste = False
End If
Exit Function
FAUX:
DossierExiste = False
End Function
Public Function (ByVal MonFichier As String) As String
Dim intFic As Integer
Dim strLigne As String
intFic = FreeFile
Open MonFichier For Input As intFic
Line Input #intFic, strLigne
Close intFic
LireFichierTexte = strLigne
End Function

 

 

Workbooks("18.xlsm").Close

qui permet de fermer le classeur si vous mis un bouton dans le ruban

 

 

Profitez en car le jour où il est au courant je pense que je supprimerais ce post !

  • Upvote 1
Lien vers le commentaire
Partager sur d’autres sites

Salut Irb,

Bonjour,Harcèlement moral collectif, "mobbing" : pas terrible...

Bien que tu l'ais fait avec une bonne intention, je trouve ton post un peu terrible:

une phrase lapidaire, un anglicisme, et te voilà jugé.

 

Sur le fond,

tout dépend de l'ambiance qu'il y a dans le bureau, le gens qui râlent, dont je fais partis, savent qu'ils râlent.

si en plus, ils n’acceptent pas que l'on se moque un peu d'eux,

si à la moindre plaisanterie ils se sentent harcelés, finalement, les harceleurs, ce sont eux.

Si l’ambiance est sympa, ce petit jeu ne devrait pas poser d’autre problème qu’une bière due au râleur, parce que ce jour-là, il n’a pas rallé.

Faisons bien attention à ce nouvel ordre moral qui se met en place, ou la moindre plaisanterie potache fait de vous un horrible beauf réac.

Je vous conseille un livre américain très drôle, qui nous montre les dérives « puritaines » de la bien pensance, qui sévient aux états unis depuis les années 2000, et que ces même Américains essayent d’importer en Europe : « les fantômes du vieux pays », très drôle et très intéressant.

a+

gégé

----------------------------------------------------------------------

Site: https://www.g-eaux.fr

Blog: http://g-eaux.over-blog.com

Lien vers le commentaire
Partager sur d’autres sites

si à la moindre plaisanterie ils se sentent harcelés, finalement, les harceleurs, ce sont eux.

 

j'aime bien cette phrase mais c'est un peu fort l'ambiance est bonne,il rale il le sait...

On en rigole, parfois dans des dossiers urgent et stressant la c'est ennuyant car ça nous tape réélement sur le systeme... mais bon on est tous différents

(Moi en premier avec mes idées folles)

on a su justement rendre le truc un peu plus drôle pour dédramatisé en faite ^^

d'ailleurs pas bete le truc de tu n'as pas râler aujourd'hui on te file une bière ! je vais voir avec mes collègue dans le coup a 4 je pense qu'pon pourrais le récompenser en effet et peut etre commencera t'il à moins raler avec le temps !

 

merci de l'idée

ce petit jeu ne devrait pas poser d’autre problème qu’une bière due au râleur
Lien vers le commentaire
Partager sur d’autres sites

tu n'as pas râler aujourd'hui on te file une bière !

 

Rien qu'avec ce genre d'argument, je cesse de râler et je meurs d'un comas élitique dans la journée. laugh.gif

AutoCAD Map 3D 2022 (25.0.45.3) base S.51.0.0
Covadis 17.1f + AutoPiste
Mensura Genius 9.1.0
Windows 10 Famille v.21H1 - 64 bits

Toujours à l'affût des bonnes astuces
Gagner de l'argent sans rien faire ! Astuce de placement rentable à tester ici
L'évolution de mon placement jour par jour visible sur MyFxBook : https://www.myfxbook.com/members/CTZen/usd/7923862

Lien vers le commentaire
Partager sur d’autres sites

Rejoindre la conversation

Vous pouvez publier maintenant et vous inscrire plus tard. Si vous avez un compte, connectez-vous maintenant pour publier avec votre compte.

Invité
Répondre à ce sujet…

×   Collé en tant que texte enrichi.   Coller en tant que texte brut à la place

  Seulement 75 émoticônes maximum sont autorisées.

×   Votre lien a été automatiquement intégré.   Afficher plutôt comme un lien

×   Votre contenu précédent a été rétabli.   Vider l’éditeur

×   Vous ne pouvez pas directement coller des images. Envoyez-les depuis votre ordinateur ou insérez-les depuis une URL.

Chargement
 Partager

×
×
  • Créer...