Discussion :

[pierrehe]

Bonjour à tous,

Je construis un fichier (pièce jointe) word de synthèse d'évaluation (école). Je voudrais que les utilisateurs (professeurs) puissent, au clic, colorer indépendemment chaque cellule de tableau (échelle d'évaluation). Les couleurs seraient blanc (par défaut), rouge et vert.

J'imagine qu'il faut une macro, mais je suis hypernul dans ce domaine...

L'un des membres peut-il m'aider?

Merci!

[carden752]

Bonjour,

L'évènement clic gauche n'est pas géré directement dans l'application Word contrairement aux évènements double clic et clic droit.
Vous pouvez dans ce cas vous inspirer de cette discussion
Evènements clic droit et double clic

Dans le cas du clic gauche, il faudra passer par une API Windows ce qui complique énormément plus.

[pierrehe]

Merci beaucoup!

Pousseriez-vous la gentillesse jusqu'à me dire où je peux trouver les instructions pour installer les couleurs rouge et verte?

Merci.

Pierre

[carden752]

C'est dans les objets font mais pour pouvoir les manipuler il faudra passer par un objet intermédiaire Range.

Pour la première cellule du premier tableau en bleu, ce sera

Code :

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

ActiveDocument.Tables(1).Rows(1).Cells(1).Range.Font.Color = wdColorBlue

et pour la cellule ou se trouve la sélection

Il faut faire attention toutefois à rajouter une étape de contrôles pour vérifier que la sélection est bien dans un tableau comme ceci, par exemple

Code :

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

1
2
3
If Selection.Information(wdWithInTable) Then
Selection.Cells(1).Range.Font.Color = wdColorBlue
End if

[pierrehe]

Je vais essayer cela ce week-end.

Pierre

[pierrehe]

J'ai essayé le code suivant (Cellule 2 du tableau 1), qui ne fonctionne pas:

Code :

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

1
2
3
4
5
6
7
Private Sub App_WindowBeforeDoubleClick(ByVal Sel As Selection, Cancel As Boolean)
Sel.ActiveDocument.Tables(1).Rows(1).Cells(2).Range.Font.Color = wdColorGreen
If Selection.Information(wdWithInTable) Then
Selection.Cells(2).Range.Font.Color = wdColorGreen
End If
Cancel = True
End Sub

Code :

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

1
2
3
Private Sub Document_Close()
Set App = Nothing
End Sub

Que dois-je modifier?

Merci!

[carden752]

Bonjour,

Il faut utiliser sel et non selection