Discussion :

[andri2]

Bonjour,
je demande votre aide pour créer un userform avec des checkbox sur ms project.
Je voudrais avoir plusieurs checkbox qui me permette de selectionner une tâche et de la colorier en rouge.
J'ai écrit le code suivant:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Private Sub CheckBox1_Click()
If UserForm1.CheckBox1.Value = True Then
For Each tache In ActiveProject.Tasks
        If tache.Name = "chantier" Then
           SelectRow row:=tache.ID, RowRelative:=False
           SelectTaskField row:=tache.ID, Column:="Nom", RowRelative:=False
           Font Color = 1
        End If
Next
End If
End Sub

et il m'apparaît immédiatement:

erreur de compilation: utilisation incorrecte de la propriété

merci de votre aide

Andri

[jeanjean6]

Bonjour,
je demande votre aide pour créer un userform avec des checkbox sur ms project.
Je voudrais avoir plusieurs checkbox qui me permette de selectionner une tâche et de la colorier en rouge.
J'ai écrit le code suivant:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Private Sub CheckBox1_Click()
If UserForm1.CheckBox1.Value = True Then
For Each tache In ActiveProject.Tasks
        If tache.Name = "chantier" Then
           SelectRow row:=tache.ID, RowRelative:=False
           SelectTaskField row:=tache.ID, Column:="Nom", RowRelative:=False
           Font Color = 1
        End If
Next
End If
End Sub

et il m'apparaît immédiatement:

erreur de compilation: utilisation incorrecte de la propriété

merci de votre aide

Andri

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Private Sub CheckBox1_Click()
If UserForm1.CheckBox1.Value = True Then
For Each tache In ActiveProject.Tasks
        If tache.Name = "chantier" Then
           SelectRow row:=tache.ID, RowRelative:=False
           SelectTaskField row:=tache.ID, Column:="Nom", RowRelative:=False
           Font Color = 1
        End If
Next tache
End If
End Sub

Pour Font Color = 1 essaye aussi Color = RGB(197, 217, 241), en remplacant les 3 octets par les valeurs correspondant au rouge