Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If ActiveCell.Interior.ColorIndex = 5 Then
ActiveCell.Value = "OK"
ElseIf ActiveCell.Interior.ColorIndex = 3 Then
ActiveCell.Value = "ALERTE"
End If
End Sub
Mais .... il il y un mais
Je ne sais pas pourquoi il faut revaliser la cellule pour que la fonction obéisse bien aux instructions
J'attends donc moi aussi une petite réponse. On est dans la même galère !
Ramons !
Echange un S contre un R Tu n'y perds pas !
J'ai tapé revaliser alors qu'il faudrait revalider.
En effet on affecte la couleur à la cellule mais rien ne se produit. Il faut à nouveau se remettre sur la cellule pour que OK ou ALERTE apparaîsse.
En plus ... puisque je te tiens, une couleur Rouge ou Bleue comme ici, mise en Mise en Format conditionnelle ne déclenche rien.... Normal ?
merci pour ton boulot
je pense que cela doit BEAUCOUP m'aider.
je vois cela au repos, d'une part pour comprendre, d'autre part pour appliquer dans ma table