IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Macros et VBA Excel Discussion :

sortir un rapport de tache à partir d'une date entrée


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre averti
    Inscrit en
    Juillet 2007
    Messages
    10
    Détails du profil
    Informations forums :
    Inscription : Juillet 2007
    Messages : 10
    Par défaut sortir un rapport de tache à partir d'une date entrée
    bonjour à tous,

    J'ai réalisé un programme pour automatisé des taches de maintenance;
    foctionnement;
    je click sur un bouton d'une feuille 1 tous les lundi et cela m'édite sur cinq pages (lundi au vendredi) les taches à réalisées.
    Je voudrai que le lancement de la macro ne se fait plus par un click mais en rentrant une date précise. Et qu'à partir de cette date les 5 jours s'édite.
    J'ai regardé sur les tutoriels et je n'ai pas trouvé l'aide nécessaire.
    merci de m'accordé un peu de votre temps;

  2. #2
    Membre Expert
    Profil pro
    Inscrit en
    Juillet 2007
    Messages
    2 130
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Juillet 2007
    Messages : 2 130
    Par défaut
    Salut
    àla place de ton bouton, tu choisis une cellule et tu utilise la macro Worksheet_Change kiée à la feuille avec un test du style :
    if target.address(0,0)<> "A1" or isempty(target)then exit sub
    si l'adresse des cellules changées est fifférente de A1, sortir

    après, tu regardes si a1 contient une date épertoriée sur ta feuille, si c'est le 1er jour de la semaine, etc...
    A+

  3. #3
    Expert confirmé Avatar de jfontaine
    Homme Profil pro
    Contrôleur de Gestion
    Inscrit en
    Juin 2006
    Messages
    4 756
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 51
    Localisation : France, Sarthe (Pays de la Loire)

    Informations professionnelles :
    Activité : Contrôleur de Gestion

    Informations forums :
    Inscription : Juin 2006
    Messages : 4 756
    Par défaut
    Si tu veux que ton code fonctionne uniquement si la date rentrée est un lundi

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
     
    '2=lundi
    If Weekday(cdate(target.value)) = 2 Then
     
    'code
     
    End If

  4. #4
    Membre averti
    Inscrit en
    Juillet 2007
    Messages
    10
    Détails du profil
    Informations forums :
    Inscription : Juillet 2007
    Messages : 10
    Par défaut fichier
    Citation Envoyé par jfontaine Voir le message
    Si tu veux que ton code fonctionne uniquement si la date rentrée est un lundi

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
     
    '2=lundi
    If Weekday(cdate(target.value)) = 2 Then
     
    'code
     
    End If
    voilà mon fichier
    Fichiers attachés Fichiers attachés

  5. #5
    Expert confirmé Avatar de jfontaine
    Homme Profil pro
    Contrôleur de Gestion
    Inscrit en
    Juin 2006
    Messages
    4 756
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 51
    Localisation : France, Sarthe (Pays de la Loire)

    Informations professionnelles :
    Activité : Contrôleur de Gestion

    Informations forums :
    Inscription : Juin 2006
    Messages : 4 756
    Par défaut
    Target ne peux pas fonctionner dans ta fonction puisque inexistant en paramètre

    Dans l'exemple que j'ai donnée, je suis partie de la proposition de Gorfael de mettre le code dans le Worksheet_Change ou la, target correspond a la cellule modifiée

  6. #6
    Membre averti
    Inscrit en
    Juillet 2007
    Messages
    10
    Détails du profil
    Informations forums :
    Inscription : Juillet 2007
    Messages : 10
    Par défaut
    Citation Envoyé par jfontaine Voir le message
    Target ne peux pas fonctionner dans ta fonction puisque inexistant en paramètre

    Dans l'exemple que j'ai donnée, je suis partie de la proposition de Gorfael de mettre le code dans le Worksheet_Change ou la, target correspond a la cellule modifiée
    Quand j'ai in troduit target le programme ne se lance plus

  7. #7
    Membre Expert
    Profil pro
    Inscrit en
    Juillet 2007
    Messages
    2 130
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Juillet 2007
    Messages : 2 130
    Par défaut
    Salut tarik847 et le forum

    Pas la peine de passer en MP, Je n'y réponds que quand c'est un message perso qui ne concerne pas directement les problèmes posés sur le forum.

    Ton problème est simple : soit tu donnes des infos précises et tu as une/des réponses précises, soit tu énonces des généralités et tu ne reçois que des généralités en retour

    Comme beaucoup de dépanneurs sur les forums, mon interêt est proportionnel à la possibilité de répondre à la demande, et au sujet.
    S'il faut arracher les infos, autant me consacrer à un autre sujet
    A+

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. Réponses: 5
    Dernier message: 22/05/2013, 15h12
  2. Comment extraire le mois à partir d'une date?
    Par toumoham dans le forum Paradox
    Réponses: 1
    Dernier message: 17/05/2006, 13h37
  3. [vbexcel]trouver le jour a partir d'une date.
    Par Mugette dans le forum Macros et VBA Excel
    Réponses: 3
    Dernier message: 08/12/2005, 16h07
  4. [D7] trouver une semaine partir d'une date
    Par raoulmania dans le forum Langage
    Réponses: 3
    Dernier message: 01/12/2005, 10h36
  5. Réponses: 3
    Dernier message: 19/04/2002, 00h11

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo