Discussion :

[Cabrinha]

Bonjour,

Je travaille sur des plannings à 4 niveaux de hiérarchie.

Je voudrais entrer de manière automatique, à l'aide du vba, le mot "travaux" dans toutes les taches de hiérarchie 4. Le mot serait à inscrire dans la colonne "Navisworks Synchronization ID" de châque tache de niveau 4.

Quelqu'un aurait une idée ?

Cordialement.

[Jmichelc-]

Bonjour,

tu peux essayer cette boucle, en choisissant la colonne ou tu souhaites indiquer que le niveau et le niveau 4

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
 
i = 1
For Each T In ActiveProject.Tasks
    If Not (T Is Nothing) Then
        If ActiveProject.Tasks(i).OutlineLevel = 4 Then
            SelectTaskField Row:=i, Column:="Texte2"
            ActiveProject.Tasks(i).Text2 = "Travaux"
        End If
        i = i + 1
    End If
Next

Bonne journée
Jmichelc