Discussion :

[Régis08]

Bonjour,

J'ai créé une petite macro recherchant et proposant de supprimer les tâches en double. Elle fonctionne très bien, cependant les tâches sont visuellement supprimées uniquement lorsque la macro est terminée.
J'ai essayé un 'CalculateProject' après chaque validation d'un MsgBox mais rien à faire.

Qqn aurait-il une solution pour forcer la rafraîchissement du projet pendant l'exécution de la macro ?

Par avance merci.

Régis

[jeanjean6]

Bonjour,

J'ai créé une petite macro recherchant et proposant de supprimer les tâches en double. Elle fonctionne très bien, cependant les tâches sont visuellement supprimées uniquement lorsque la macro est terminée.
J'ai essayé un 'CalculateProject' après chaque validation d'un MsgBox mais rien à faire.

Qqn aurait-il une solution pour forcer la rafraîchissement du projet pendant l'exécution de la macro ?

Par avance merci.

Régis

Bonjour,

Voici :

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
19
20
21
22
23
24
25
26
27
28
29
30
Sub deletedouble()
    Dim t As Task
    Dim tt As Task
    Dim resp As String
 
 
 
    For Each t In ActiveProject.Tasks
 
        For Each tt In ActiveProject.Tasks
 
            If t.Name = tt.Name And Not t.ID = tt.ID Then
 
                resp = MsgBox("SUPPRIMER ?", vbYesNo, "Doublon : " & tt.Name & " ! L: " & tt.ID)
 
                If resp = vbYes Then
 
                    tt.Delete
                    GoTo Endsupp
 
                End If
 
            End If
 
        Next tt
 
    Next t
 
Endsupp:
End Sub

A exécuter à chaque suppression