Bonjour à tous,

J'ai une petite macro qui me génère le planning du mois demandé.
Je génère donc une nouvelle feuille avec le planning.
Ce que j'aimerais c'est de pouvoir ajouter une fonction sur le Worksheet_SelectionChange de cette feuille.
Voici ma fonction
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
 
Sub fillPlanning(zone)
  For Each cellule In zone
    If GetAsyncKeyState(114) <> 0 Then
      cellule.Interior.ColorIndex = 4
      cellule.Value = "x"
    End If
  Next
End Sub
Est ce posible?
Sinon y a t-il une autre façon de pouvoir coloriser les cellules sélectionnées et de modifier leurs valeurs?

Merci d'avance.

Seb