Bonjour a tous,
Mon code ne fonctionne pas ?
Sub couleur()
Application.OnKey "&", "couleurvert"
Application.OnKey "é", "couleurbleu"
Application.OnKey "'", "couleurrouge"
End Sub
Sub couleurvert()
ActiveCell.Select
Selection.Interior.ColorIndex = 10
End Sub
Sub couleurbleu()
ActiveCell.Select
Selection.Interior.ColorIndex = 5
End Sub
Sub couleurrouge()
ActiveCell.Select
Selection.Interior.ColorIndex = 3
End Sub
Why that ?
Merci Pour l'aide 🙂
++
Mon code ne fonctionne pas ?
Sub couleur()
Application.OnKey "&", "couleurvert"
Application.OnKey "é", "couleurbleu"
Application.OnKey "'", "couleurrouge"
End Sub
Sub couleurvert()
ActiveCell.Select
Selection.Interior.ColorIndex = 10
End Sub
Sub couleurbleu()
ActiveCell.Select
Selection.Interior.ColorIndex = 5
End Sub
Sub couleurrouge()
ActiveCell.Select
Selection.Interior.ColorIndex = 3
End Sub
Why that ?
Merci Pour l'aide 🙂
++