cellule clignotante Résolu

Question

Bonjour, le Forum

Je suis dans une galère que vous seul pouvez m'en sortir, je gère des agents qui partent en congé sans que ces derniers me donnent leurs feuilles, aussi j'aimerais que sur le planning ou ils sont, leurs noms soit un bouton que quand je clique dessus apparaisse un message leurs demandant leurs feuilles de congé, comme ça je pourrais mieux les gérer,
ou le mieux et ça je ne sais pas, une cellule clignotante me rappelant de les contacter pour leurs rappeler qu'ils n'oublient pas de me donner leurs feuilles sinon ils ne partent pas 

Par avance, merci à vous et o Forum pour votre implication à aider un novice d'excel


Configuration: Windows 7 / Firefox 27.0

narvalot · Answer

j'ai trouvé une solution qui me permets de solliciter les agents mais je trouve que ce n'est pas encore terrible, j'ai mis un bouton sur les noms des agents, ou j'ai mis une couleur leurs disant qu'ils ne peuvent pas prendre de congé, via une petite macro que j'ai trouvé sur le net, mais j'aimerais que que cette macro se concrétise quand les agents appui sur le lien qui leurs permettent d'aller sur leurs planning, or quand je mets un lien sur ma macro, elle  ne réagit pas, je suis dans l'impasse, s'il vous plait, j'ai besoin d'aide

Le Pingou · Answer

Bonjour,
Sans voir comment  vous avez réalisé l'application impossible de formuler une proposition.
Mettre le fichier sur  https://www.cjoint.com/ et poster le lien.

narvalot · Answer

Je vous envois le fichier sur lequel je travaille

https://www.cjoint.com/?DBxaoBrZHgA 

Sur la feuille planning, en cliquant sur le bouton, j'aimerais que le message qui est sur la feuille 'mars14' en cellule B3 apparaisse, est ce que cela est possible ? parce que j'ai beau chercher je n'y arrive pas, j'ai essayé avec un lien mais ça bloque, et comme ça, les chefs sauront ce qu'ils ont à faire parce que je ne peux pas me disperser, j'ai trop de travail aussi je cherche un maximum de solution pour aller plus vite dans mon travail, je suis seul à gérer une centaine d'agents et comme je suis nouveau, ils ne font rien pour arranger les choses, à la limite je pense qu'ils le font exprès mais c'est mon Karma.

En espérant avoir répondu à vos attendes, je vous remercie de l'attention que vous portez à mon soucis.

Mike-31 · Answer

Bonjour le fil,

Fichier après fichier, nous t'aurons informatisé le service, j'espère que tes supérieures nous enverrons la prime.
contrairement aux autres fichiers je ne pense pas que la cellule clignotante soit la mieux adaptée à ton cas.
Il manque un élément déclenchant, si on prend le mois de mars exemple le premier nom KUVEE en colonne C, en colonne B sous une zone de texte avec des chiffres qui correspondent à quoi, et sous cette zone de texte tu as un autre nom GUYTARD, sur quel critère veux tu une action.

Si j'ai bien cerné le problème, je rajouterais une colonne à ton tableau en A brigade, en B le Nom, en C nombre de jours de congé prévu, et une colonne justifié assujetti à la remise de la demande.
Mais combien peut il y avoir de demande de congé dans le mois.

narvalot · Answer

Salut Mike,

Si je vous sollicite autant, c'est que vous êtes super fort sur le Forum, j'essaye de mon côté tant bien que mal de gérer moi même les problème occassionnés par ces agents qui me prennent la tête, j'en ai marre mais vraiment marre de leurs façons de faire à mon égard, ils ont été 20 ans livré à eux même, et ils faisaient ce qu'ils voulaient mais maintenant c'est fini, ils faut qu'ils rentrent dans le rang, il me reste 6 ans à faire et après c'est la retraite, et j'ai pas envie de péter un plomb à cause d'eux, tu comprends.

Sur l'onglet mars, quand tu click en b3, tu as une userform qui s'affiche, si c'est possible et moi je bloque, c'est quand on click sur le bouton de l'onglet planning que cette userform apparaisse sur le fichier mars. j'ai essayé avec un lien hyper texte mais ça ne marche pas, je ne sais pas comment faire c'est pour ça que je demande o Forum, pourtant ce n'est pas faute d'essayer mais là je bloque

Mike-31 · Answer

Re,

Bon voyons, tu veux que lorsque tu cliques sur le bouton de la feuille Planning afficher l'userform sur la feuille mars, c'est cela

narvalot · Answer

oui, c'est ça

Mike-31 · Answer

Re,

Comme cela ?

https://www.cjoint.com/?DBxnNeX5nXI

narvalot · Answer

c'est tout a fait ça, donc si je veux pour le mois d'avril et les autres mois je vais dans le code et remplace mars par avril

Mike-31 · Answer

Re,

oui mais tu pourrais créer une liste de validation avec tous les noms d'onglet sur la feuille Planning et lorsque tu clic sur le bouton, la feuille que tu aurais sélectionné s'affiche et l'userform sur cette feuille

narvalot · Answer

j'essaye ce que tu m'écris mais comment sélectionner la feuille par ex juin, j'ai beau essayer je panique, juste une liaison pour pouvoir le faire tout seul

Mike-31 · Answer

Re,

supprime mon dernier code et colle ce code dans la Thisworbook, ce dernier te permettra en cliquant sur la cellule A2 de chaque feuille tu auras la liste des tes feuilles et en cliquant sur le nom d'une feuille, cette dernière s'activera et l'userform s'ouvrira

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
    If Not Intersect(Target, [A2]) Is Nothing Then
    If Target.Address = "$A$2" Then Application.CommandBars("Workbook tabs").ShowPopup
    UserForm1.Show
    End If
End Sub

narvalot · Answer

j'ai mis ton code mais ça rentre en conflit 

Option Explicit

Dim BlinkTime As Date




'BlinkTime = Now() + TimeValue("00:00:02") 'le temps du clignotement
'Application.OnTime BlinkTime, "Alerte"
End Sub
Sub StopAlerte()
On Error Resume Next
Application.OnTime BlinkTime, "Alerte", , False
End Sub

Sub Fermeture()
ActiveWorkbook.Save
ActiveWorkbook.Close
End Sub

et ça m'éloigne de l'origine de ce que tu m'as fait, je préfère rester sur la première impression quitte à changer le nom des mois sur le code que tu m'avais fait parce que je n'ai plus le message de l'userform

merci  à toi le Pingou

Mike-31 · Answer

Re,

Alors supprime mes codes et colle ce code dans les propriétés de la feuille planning (clic droit sur l'onglet de la feuille/visualiser le code

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
On Error Resume Next
    If Not Intersect(Target, [A2]) Is Nothing Then
    If Target.Address = "$A$2" Then Application.CommandBars("Workbook tabs").ShowPopup
    
    If ActiveSheet.Name = ("recap absenteisme") Or ActiveSheet.Name = ("planning") Then Exit Sub
    UserForm1.Show
    End If
End Sub 

pour activer le code double clic en A2 de la feuille planning

quelle ligne de ton code se met en erreur (se surligne en jaune)
 
A+
Mike-31

Une période d'échec est un moment rêvé pour semer les graines du savoir.

narvalot · Answer

Là plus rien ne répond, mais ce que tu m'as fait , le 1er code est parfait, je vais garder ce dernier qui est génial, je vais même agrandir mon userform pour la mettre sur tout l'écran en espérant qu'ils faut qu'ils me respectent et ce que je leurs demande ce n'est pas moi mais la Hiérarchie.

Encore merci à toi, Mike et a Pingou et o Forum.

Le Pingou · Answer

Bonjour,
Juste pour voir : https://www.cjoint.com/?3Bxv3MQ3YBF

narvalot · Answer

C'est vraiment génial ce que tu as fait, mais tel que je les connait, il leurs faut une Autorité, donc ils n'iront pas voir sur le menu déroulant tandis qu'avec le premier jet de Mike, ils sont obliger de tomber sur l'userform, de me donner les informations que je leurs demande, sinon pas de vacances

Encore mille merci à vous et o forum, sans vous je ne pourrais jamais gérer cette bande de gens qui n'ont aucun respect.

Bien à vous

Le Pingou · Answer

Bonjour,
Merci. Si vous pensez qu'ils n'iront pas voir le menu alors pour la solution de Mike-31 c'est idem ils passeront  par-dessus car rien ne les obliges à cliquer sur le bouton.
Eh bien il faut mettre une secrétaire entre le dossier et les fonctionnaires....!
Bonne chance.

narvalot · Answer

Salut Mike,

ca ne fonctionne plus peut être parce que ton code est sur la même feuille, j'ai complètement oublier de préciser que le bouton était sur une autre feuille, et que pour aller sur le planning, c'etait avec un lien hypertexte

Mike-31 · Answer

Re,

Tu n'as pas souhaité utiliser la proposition de Le Pingou que je salue, pourtant elle me semble correspondre pleinement à tes attentes, enfin c'est ton choix.

alors à la place de créer un bouton avec la barre formulaire, choisi un bouton activeX et tu colle le code dans les propriétés du bouton

Private Sub CommandButton1_Click()
Beep
Sheets("mars14").Activate
UserForm1.Show
End Sub

narvalot · Answer

cette phrase 

Sheets("mars14").Activate

ce mets en jaune et me mets en debogage

Le Pingou · Answer

Bonjour,
C'est dur la vie, eh oui si la macro se trouve sur le module de la feuille alors la commande d'activer une autre feuille n'est pas possible.
En conséquence la macro doit se trouver sur le module principal.

narvalot · Answer

Vous n'êtes pas cool M Le Pingou,

J'essaye avec les 2 version en mettant vos codes sur sur mon fichier d'origine, et il me met en jaune

Sheets(mois).Activate

???? c'est à ni rien comprendre et vous?

Mike-31 · Answer

Re,

Il faut faire attention à la rédaction du nom de la feuille, qui doit être impérativement identique dans le nom de l'onglet et dans le code ou on utilise le numéro de position de l'onglet

	https://www.cjoint.com/?DByrPoXXlCo

narvalot · Answer

Re

Apparement ce que je cherche à faire n'est pas possible, c'est faire dans un dossier 2 feuilles, dont une ou il y aurais un bouton "planning" qui irait sur une autre feuille avec les mois avec un lien hypertexte, je cherche mais à chaque fois il me mets en debogage sur Sheets("mars14").Activate

Mike-31 · Answer

Re,

Pour activer une feuille dont la position ou le nom peut évoluer, il faut l'écrire dans un langage qu'Excel comprend, Le pingou t'a proposé une possibilité avec une liste déroulante qui me parait la mieux adaptée et peut être perfectionnée,

 pour ma part tout en VBA une proposition qu'il suffisait de cliquer en cellule A2 de la feuille planning et un clic sur la feuille souhaitée, la liste des feuilles s'actualisait automatiquement. 
le principe du bouton peut être complété, par exemple tu clic sur le bouton, une userform s'ouvre pour choisir la feuille et enclencher les codes, mais on complique le code pour rien. 

Tu me dira pourquoi faire simple lorsqu'il est possible de faire compliqué et si en plus tes loulous ne sont pas capable de faire autre chose que de cliquer sur un bouton, cela va devenir difficile et je ne pourrai pas suivre trop longtemps la discussion, je prépare un séjour au ski

narvalot · Answer

Je n'avais pas vu la subtilité de Le Pingou, c'est pour ça que j'avais bidouille avec tes codes mais hélas ça ne fonctionne pas, ton idée me parait idéale.

Mes loulous sont malhonnètes, on ne peut rien contre ça, l'Homme est ainsi fait

Je te remercie Mike

Mike-31 · Answer

Re, supprime tous mes codes, lorsque tu nommes tes onglets exemple mars14 sépare le mois et l'année par le tiret du 8 exemple mars_14 cela évitera que le nom d'onglet soit considéré comme une date ensuite colle ces codes dans les propriétés de la feuille planning (clic droit sur l'onglet/visualiser le code) ce code créera une liste de validation en cellule E5 dans la liste les noms de feuilles "recap absenteisme" et "planning" seront absent puisque l'affichage de l'userform ne les concerne pas Private Sub Worksheet_Activate() Dim Liste As String For Each sh In ThisWorkbook.Sheets If sh.Name <> "recap absenteisme" And sh.Name <> "planning" Then Liste = Liste & sh.Name & "," Next Liste = Left$(Liste, Len(Liste) - 1) With Sheets("planning").Range("E5").Validation .Delete .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:=xlBetween, Formula1:=Liste End With End Sub Private Sub Worksheet_Change(ByVal Target As Range) On Error Resume Next If Not Intersect(Target, [E5]) Is Nothing Then Sheets(Range("E5").Value).Activate UserForm1.Show End If End Sub https://www.cjoint.com/?DByvDq9GZUt A+ Mike-31 Une période d'échec est un moment rêvé pour semer les graines du savoir.

narvalot · Answer

Je crois que l'on ne se comprend pas,

je te mets les fichiers sur cijoint

http://cjoint.com/?DByxcxoyxAu 
http://cjoint.com/?DByxdBDUs8G 

est ce qu'il est possible de faire des liens hypertexte qui m'oriente du fichier planning quand on click dessus et qui va directement sur le planning 2014 via tes codes

je suis conscient que je te demande c'est un truc de fou, parce que c'est un truc de fou sachant que ces 2 fichiers sont dans un même dossier parce que les liens ne dissocie pas si j'ai compris le principe d'excel

Encore 1000 merci à toi et ton investissement qui depuis plusieurs mois m'aide beaucoup à concrétiser mon bien être professionnel

Mike-31 · Answer

Re,

Nous sommes loin de la demande initiale ou effectivement je n'ai rien compris.

Il n'a jamais été question de fichier Open Office qui ouvrirait un fichier Excel. Pourquoi deux fichiers de type différent et de deux fichiers.

n'est il pas possible d'utiliser soit des fichiers open office ou Excel

et maintenant je comprends pourquoi les codes ne fonctionnaient pas 
 
A+
Mike-31

Une période d'échec est un moment rêvé pour semer les graines du savoir.

Le Pingou · Answer

Bonsoir,
Juste une remarque, pourquoi tout d'un coup un classeur Excel (MSO) et un classeur ODS de OpenOffice Calc ?
Qu'elle est le lien entre les deux ?

narvalot · Answer

oupss, mille excuses, j"ai mal enregistré les fichiers c'est du excel, la fatigue

Mike-31 · Answer

Re,

Sort le dossier du Zip, si tes fichiers sont dans le même répertoire, ouvre le classeur2 et soit tu clic sur ton bouton soit tu utilise le bouton activex que j'ai créé

https://www.cjoint.com/?DBziiIix4GM

narvalot · Answer

re

Est ce que je remets tes codes pour avoir l'userform ?

Mike-31 · Answer

Re,

Oui dans le code, comme cela

Workbooks.Open Filename:=ThisWorkbook.Path & "	est_2014-2.xls"
UserForm1.Show

narvalot · Answer

Re

l'avertissement de l'userform ne s'active pas, il me ramène directement sur le planning

Mike-31 · Answer

Re,

Es ce que l'userform existe dans le fichier dans lequel tu utilises le code 

	https://www.cjoint.com/?DBznT2uoA3d

narvalot · Answer

oui, c'est l'userform et les codes que tu as 

J'ai fait coller ou deplacer la feuille mais rien n'y fait, je n'ai que le planning sans l'userform

Mike-31 · Answer

Re,

https://www.cjoint.com/?DBzqSwfpnGT

narvalot · Answer

Je ne comprends plus rien sur ton travail ça fonctionne mais dès que je veux mettre mes éléments, le planning, je n'est plus l'userform, pourtant je change l'hyperlien vers le planning mais rien n'y fait

Mike-31 · Answer

Re,

Il faut que l'userform soit sur le fichier contenant le code, pas dans le fichier que tu dois ouvrir, contrôle le nom de l'userform, dans mon code il s'agit de l'Userform1

narvalot · Answer

holala, que ça été fou pour moi de trouver l'erreur que je faisais, il fallait simplement que je change le nom "test2014" par "planning2014", excel est vraiment un logiciel FOU, Mike, toi et le Forum, vous êtes vraiment Géniaux

Encore mille merci à toi et bonnes vacances de ski, si tu es aussi bon sur excel qu'au ski, tu dois déchirer

Merci encore

Mike-31 · Answer

Re,

je me défend pas mal merci, parfois ça décoiffe mais bon il faut rester prudent

narvalot · Answer

Alors fait attention bonne neige

Cellule clignotante - Page 3

Discussions similaires

Newsletters