Bonjour
J'utilise le code suivant pour affecter une couleur en fonction du texte saisie.
Le code fonctionne parfaitement pour remplir cette tache
.
Par contre, il m'est plus possible de faire un retablir (crtl+Z)
ou annuler une saisie (crtl+Y)
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
For Each Cell In Target
Select Case Cell.Value
Case "GAME1"
Cell.Font.ColorIndex = 3
Case "GAME2"
Cell.Font.ColorIndex = 4
Case "GAME3"
Cell.Font.ColorIndex = 5
Case Else
Cell.Font.ColorIndex = 56
End Select
Next
End Sub
Merci pour votre aide
Gibtoul
J'utilise le code suivant pour affecter une couleur en fonction du texte saisie.
Le code fonctionne parfaitement pour remplir cette tache
.
Par contre, il m'est plus possible de faire un retablir (crtl+Z)
ou annuler une saisie (crtl+Y)
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
For Each Cell In Target
Select Case Cell.Value
Case "GAME1"
Cell.Font.ColorIndex = 3
Case "GAME2"
Cell.Font.ColorIndex = 4
Case "GAME3"
Cell.Font.ColorIndex = 5
Case Else
Cell.Font.ColorIndex = 56
End Select
Next
End Sub
Merci pour votre aide
Gibtoul
Pièces jointes
Dernière édition: