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 :

Déplacer des données à l'aide d'une date T0 [XL-2007]


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre averti
    Homme Profil pro
    Ingénieur qualité méthodes
    Inscrit en
    Avril 2011
    Messages
    17
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations professionnelles :
    Activité : Ingénieur qualité méthodes
    Secteur : Transports

    Informations forums :
    Inscription : Avril 2011
    Messages : 17
    Par défaut Déplacer des données à l'aide d'une date T0
    Bonjour à tous, je vais essayer d'etre plus clair que mon titre rassurez vous

    J'ai une charge de travail qui représente 50h le premier mois, 80h le deuxième...(la charge peut s'étaler sur de nombreux mois). Ces charges de travail sont soumises à l'acceptation d'un contrat à partir d'une date T0 fixé au 01/09/2011 par exemple.

    En fonction de diverses réflexions, négociations... le T0 est susceptible de changer.

    Je souhaiterais pouvoir représenter dans un tableau puis dans un graphe la charge du service en fonction de différentes hypothèse de T0.

    J'imaginai une feuille ou je mettrai la date T0 prévu et ensuite le profil de la charge mois par mois et une deuxième feuille qui positionnerai la charge dans un espèce de "calendrier" en fonction du T0. Le but étant de déplacer toute la charge juste en changeant le T0.

    J'attend vos suggestions avec impatience...
    Par avance Merci

  2. #2
    Expert confirmé
    Avatar de Qwazerty
    Homme Profil pro
    La très haute tension :D
    Inscrit en
    Avril 2002
    Messages
    4 120
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 45
    Localisation : France

    Informations professionnelles :
    Activité : La très haute tension :D
    Secteur : Service public

    Informations forums :
    Inscription : Avril 2002
    Messages : 4 120
    Par défaut
    Salut
    Pour l'espece de calendrier, pourquoi pas un diagramme de Gantt?

    A mon avis ta question étant donnée l'avancement de ton projet, tu devrais demander a un modo de la basculer dans le forum Conception.

    [Edit]
    Tu as aussi ça, c'est un calendrier perpétuel que j'avais mis en Contribution.
    Je l'ai refait au format 2007 il faudrait que je mette a jour le post.

    ++
    Qwaz

    MagicQwaz := Harry Potter la baguette en moins
    Le monde dans lequel on vit
    Ma page perso DVP
    Dernier et Seul Tutoriel : VBA & Internet Explorer
    Dernière contribution : Lien Tableau Structuré et UserForm
    L'utilisation de l’éditeur de message

  3. #3
    Membre averti
    Homme Profil pro
    Ingénieur qualité méthodes
    Inscrit en
    Avril 2011
    Messages
    17
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations professionnelles :
    Activité : Ingénieur qualité méthodes
    Secteur : Transports

    Informations forums :
    Inscription : Avril 2011
    Messages : 17
    Par défaut
    Citation Envoyé par Qwazerty Voir le message
    Salut
    Pour l'espece de calendrier, pourquoi pas un diagramme de Gantt?
    Merci pour ta réponse, j'ai jeté un oeil à ce diagramme de gant, mais ce n'est pas un diagramme de gantt que je veux. C'est plutot une courbe de charge. En fait, j'ai plusieurs taches avec des T0 que je veux faire varier et ensuite je compte faire la somme pour chaque mois afin d'avoir le profil de la charge complète du service.
    A+

  4. #4
    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
    Bonjour,

    Un bon exemple vaut mieux qu'un ...

  5. #5
    Membre averti
    Homme Profil pro
    Ingénieur qualité méthodes
    Inscrit en
    Avril 2011
    Messages
    17
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations professionnelles :
    Activité : Ingénieur qualité méthodes
    Secteur : Transports

    Informations forums :
    Inscription : Avril 2011
    Messages : 17
    Par défaut
    Voici l'exemple. Mon souhait est de pouvoir déplacer la charge en marron (sur la feuille 2) des contrats dont le début est Janvier 2012 pour le contrat 1 et Avril 2012 pour le contrat 2.

    Ex : Si je remplace janvier 2012 par Mars 2012, la charge du contrat 1 doit se décaler de 2 mois sur la droite...

    J'espère que cette fois je suis compréhensible
    Fichiers attachés Fichiers attachés

  6. #6
    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
    Voici une proposition

    Ajout dans Feuil 1 d'une colonne entre après la colonne B(Date)
    Cette nouvelle colonne retourne premiere colonne de destination de la feuil2
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    =EQUIV(B2;Feuil2!$1:$1;0)
    Ensuite dans l’événement Worksheet_Change de la Feuil1
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    Private Sub Worksheet_Change(ByVal Target As Range)
     
    Dim rg As Range
     
     
    'Test si colonne > C
    If Target.Column > 3 Then
        Set rg = Sheets("Feuil2").Range("A:A").Find(Range("A" & Target.Row).Value)
        If rg Is Nothing Then Exit Sub
        Target.Copy Sheets("feuil2").Cells(rg.Row, 10 + Target.Column - 4)
     
    End If
     
     
    End Sub
    Le fichier avec tout ca
    Copie de Courbe-Charge.xls

    Me dire si ca te convient

  7. #7
    Expert confirmé
    Avatar de Qwazerty
    Homme Profil pro
    La très haute tension :D
    Inscrit en
    Avril 2002
    Messages
    4 120
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 45
    Localisation : France

    Informations professionnelles :
    Activité : La très haute tension :D
    Secteur : Service public

    Informations forums :
    Inscription : Avril 2002
    Messages : 4 120
    Par défaut
    Salut
    Peux tu expliquer comment sont saisis les charge? tu les rentre manuellement? Les valeur de charge pour chaque mois sont déterminées comment?

    ++
    Qwaz

    MagicQwaz := Harry Potter la baguette en moins
    Le monde dans lequel on vit
    Ma page perso DVP
    Dernier et Seul Tutoriel : VBA & Internet Explorer
    Dernière contribution : Lien Tableau Structuré et UserForm
    L'utilisation de l’éditeur de message

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

Discussions similaires

  1. Réponses: 7
    Dernier message: 24/01/2012, 18h55
  2. Réponses: 18
    Dernier message: 26/06/2008, 10h10
  3. [Formulaire] Rechercher des données à l'aide d'une zone de texte
    Par rantanplan81 dans le forum VBA Access
    Réponses: 4
    Dernier message: 14/06/2007, 14h25
  4. [VBA-E]Transfere des données d'Excel dans une table Access
    Par flo83 dans le forum Macros et VBA Excel
    Réponses: 7
    Dernier message: 07/04/2006, 09h22
  5. Création requete besoin d'aide pour une date
    Par royrremi dans le forum MS SQL Server
    Réponses: 2
    Dernier message: 14/07/2004, 22h03

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