Contenu récent par Dafaka7

  1. D

    XL 2013 Envoyer par mail selon condition

    Bonjour, Sur ce fichier j'ai mis en place une macro pour la feuille "Plan d'Action" qui permet d'envoyer la page par mail. Sauf que cette macro prend toute la page, j'aimerais qu'elle prenne seulement les lignes ou la colonne N "Statut" est vide. Est-ce possible ? Cordialement
  2. D

    XL 2013 Fermeture du fichier en cas d'inactivité

    Merci JM pour ta réactivité. J'ai essayé, ça ne fonctionne toujours pas, j'ai réussi à détecter quand arrive le problème. C'est quand tu clique sur la croix pour fermer, puis "enregister", alors ça ferme et ouvre à nouveau le fichier. Quand j'appuie sur "Ne pas enregister" alors le fichier ne...
  3. D

    XL 2013 Fermeture du fichier en cas d'inactivité

    Bonjour le forum, bonjour @jm.andryszak , J'ai un problème de temps en temps lorsque je ferme le fichier il s'ouvre directement en boucle, je suis obligé d'aller dans le gestionnaire de tache pour pouvoir fermer le fichier. Savez-vous ce que je peux faire ?
  4. D

    XL 2013 Fermeture du fichier en cas d'inactivité

    Merci beaucoup, cela fonctionne.
  5. D

    XL 2013 Fermeture du fichier en cas d'inactivité

    Bonjour jm, C'est en effet ce que je voulais, cependant je n'arrive pas à l'adapter à mon fichier. Pourriez-vous jeter un coup d'oeil ?
  6. D

    XL 2013 Fermeture du fichier en cas d'inactivité

    Bonjour, Toujours d'actualité : Je cherche à faire la fonctionnalité suivante : Fermeture du fichier en cas d'inactivité au bout de 10 minutes A 2 minute de la fermeture un UserForm s'ouvre en prévenant la fermeture du fichier. Merci, le fichier ce trouve sur le message ci-dessus...
  7. D

    XL 2013 Fermeture du fichier en cas d'inactivité

    J'ai récupérer un userForm via des anciennes conversations, mais je n'arrive pas à l'adapter. J'ai une erreur à ce niveau : Private Sub Minuterie(Milliseconde As Long) Dim Arret As Long Arret = GetTickCount() + Milliseconde Do While GetTickCount() < Arret DoEvents Loop End Sub
  8. D

    XL 2013 Fermeture du fichier en cas d'inactivité

    Mais j'ai une question il n'y a t'il pas possibilité que lorsque tu scroll le compteur recommence à 0 ? Ou mettre un message au bout de temps de temps pour prévenir l'utilisateur que le fichier va se fermer.
  9. D

    XL 2013 Fermeture du fichier en cas d'inactivité

    Merci beaucoup, J'ai réussi à l'adapter. Bonne journée
  10. D

    XL 2013 Fermeture du fichier en cas d'inactivité

    Bonjour le forum, Aprés avoir regarder vos solutions pour fermer le fichier en cas d'inactivité je n'arrive toujours pas à l'adapter sur mon fichier. J'aimerais simplement que le fichier se ferme au bout de x temps si il n'y a pas : - De clic - De changement de page - De défilement de page (je...
  11. D

    XL 2013 Copier/Coller vers un autre classeur

    Bonjour, j'aimerais faire un copier/coller d'un classeur vers 4 autres selon une condition Quand la colonne "Statut" est rouge alors dans la colonne "Niveau2" selon le choix que l'on fait ça ce colle sur un autre classeur. Les colonnes copiées seront de la colonne 1 à 10. Merci d'avance...
  12. D

    XL 2013 Copier/coller vers d'autre classeur

    Bonjour @Robert , J'ai réussi tous le reste mais toujours pas la partie de mon message du dessus, je vous transmet le fichier à jour.
  13. D

    XL 2013 Worksheet_change copier/coller sur un autre classeur

    Bonjour @Koko74 , RESOLU
  14. D

    XL 2013 Worksheet_change copier/coller sur un autre classeur

    Bonjour @job75 , Je travail avec elle donc je vais mieux l'expliquer, Toutes les cases entourés en rouge et colorier sont à reporter sur l'autre tableau, cette action doit se produire quand on rempli la colonne E à partir de la ligne 15 (la colonne est fusionné jsp si cela pose problème) Les...
  15. D

    XL 2013 Concatener avec condition

    @sylvanu Parfait, mais il y a toujours les abréviations dans la liste déroulantes, comment je pourrais modifier ce code pour dire que Service = [Liste_Service] Colonne 1 ? Private Sub UserForm_Initialize() Dim ligne As Long Dim Service As Variant ligne = ActiveCell.Row Me.TB_Num =...