Discussion :

[Cobolfan]

Bonjour,

Nous sommes à "Décomissionner" les BD Notes. Parmi celle-ci, une BD qui faisait l'ordonnancement d'activités. Ex :

- Activité V04242 - Arrêt des instances - Début 8h00 - Fin 8h30

- Activités V04343 - Déploiement Weblogic - Début 8h30 - Fin - 9h00
Prérequis : Activité V04242

Si je change l'activité V04242 et elle se termine à 8h40, par un bouton (ex : consolidation) ou bien automatiquement, le début de l'activité V04343 devra être modifié à 8h40.
Si j'ajoute un prérequis à l'activité V04343, l'heure de début devra être modifié pour le prérequis qui se termine le plus tard

Est-ce que des Macros Excel ou toutes autres solutions permettrait de réponde à ces besoins??

La solution doit être mise en place dans un cours délai alors j'ai besoin de magie !!

Merci !

[ARTURO83]

Bonjour,

Si j'ai bien compris,

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
16
17
18
Sub Consolidation()
    Application.ScreenUpdating = False
    If Selection.Column < 4 Or Selection.Column > 5 Or Selection.Value = "" Or Selection.Row = 1 Then Exit Sub
    If Cells(Selection.Row, "C") <> "" Then 'présence d'un prérequis
        Prerequis = Cells(Selection.Row, "C")
        If Selection.Column = 4 Then 'on a modifié la date de début , donc il faut modifier la date de fin du prérequis
            DateDeb = Cells(Selection.Row, "D")
            'on recherche le prérequis
            Set c = Columns("A").Find(Prerequis, LookIn:=xlValues, lookat:=xlWhole)
            If Not c Is Nothing Then Cells(c.Row, "E") = DateDeb
        ElseIf Selection.Column = 5 Then 'on a modifié la date de fin , donc il faut modifier la date de début du prérequis
            DateFin = Cells(Selection.Row, "E")
            'on recherche le prérequis
            Set c = Columns("A").Find(Prerequis, LookIn:=xlValues, lookat:=xlWhole)
            If Not c Is Nothing Then Cells(c.Row, "D") = DateFin
        End If
    End If
End Sub

Suivre les instructions dans le fichier joint
Pièce jointe 459858

Cdlt

[Cobolfan]

Merci beaucoup, je l’ai envoyé à mon équipe, je te tiens au courant !