none
MS Project - Insertion automatique ligne VBA RRS feed

  • Question

  • Bonjour à tous,

    Je cherche à insérer de manière automatique un nombre de ligne sous MS Project, (qui correspondrait au nombre de jours d'une tâche). Ceci dans le but de détailler de manière précise la rotation d'un niveau.

    Quel fonction VBA utiliser ?

    Est ce que la macro peut démarrer au double clic, comme sous Excel ?

    Merci d'avance pour vos réponses.

    Cdl
    mardi 21 mars 2017 10:42

Réponses

  • Bonjour,

    Une procédure VBA qui ferait cela pourrait être la suivante :

    Sub Insert()
    Dim Nbr As String, i As Integer, NbRows As Integer

    Nbr = InputBox("Nombre de tâches à insérer au dessus de la ligne sélectionnée", "Insertion automatique de tâches", 1)
    If Nbr = "" Then Exit Sub

    NbRows = CInt(Nbr)
    Do While i < Nbr
        i = i + 1
        EditInsert
    Loop
    End Sub

    Cordialement


    Gérard Ducouret [Project MVP], Certifié Project 70632, Certifié ITIL

    mardi 4 avril 2017 16:33

Toutes les réponses

  • Bonsoir Cabrinha_FX

    Oui, vous pouvez crée des macros. vous trouvez cela dans l'onglet développeur. 

    voici comment faire pour ajouter l'onglet dev. 

    https://support.office.com/fr-fr/article/Afficher-l-onglet-D%C3%A9veloppeur-e1192344-5e56-4d45-931b-e5fd9bea2d45

    Merci, a+


    S'il vous plaît n'oubliez pas de =Marquer comme réponse= les réponses qui ont résolu votre problème. C'est une voie commune pour reconnaître ceux qui vous ont aidé, et rend plus facile pour les autres visiteurs de trouver plus tard la résolution. Héritier KANDOLO. http://www.rootandadmin.com/

    mercredi 29 mars 2017 20:34
  • Bonjour,

    Une procédure VBA qui ferait cela pourrait être la suivante :

    Sub Insert()
    Dim Nbr As String, i As Integer, NbRows As Integer

    Nbr = InputBox("Nombre de tâches à insérer au dessus de la ligne sélectionnée", "Insertion automatique de tâches", 1)
    If Nbr = "" Then Exit Sub

    NbRows = CInt(Nbr)
    Do While i < Nbr
        i = i + 1
        EditInsert
    Loop
    End Sub

    Cordialement


    Gérard Ducouret [Project MVP], Certifié Project 70632, Certifié ITIL

    mardi 4 avril 2017 16:33