Bonjour à toutes et à tous,
Nous organisons un loto pour notre sou des écoles et nous allons projeter le tableau des chiffres de 1 à 90 sur rétroprojecteur.
pour cela, j'ai fais un tableau sous excel et j'ai trouver sur internet une macro me permettant d'un clic droit de colorier une case correspondant au numéro sorti.
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, [A1:J9]) Is Nothing Then Exit Sub
Cancel = True
Target.Interior.ColorIndex = 3
End Sub
je voudrais améliorer ce tableau de la façon suivante : le dernier numéro tiré doit avoir une couleur différente des autres.
exemple : en début de partie, le numéro 45 sort, je fais un clic droit sur le 45 dans ma grille et la case devient jaune, puis le numéro 84 sort, je vais un clic droit sur le 84, il devient jaune et le 45 devient vert et ainsi de suite
je ne sais si cela est possible et je n'ai pas les connaissances suffisante pour le faire, c'est pourquoi, je m'adresse à vous.
Bien cordialement
Olivier
Nous organisons un loto pour notre sou des écoles et nous allons projeter le tableau des chiffres de 1 à 90 sur rétroprojecteur.
pour cela, j'ai fais un tableau sous excel et j'ai trouver sur internet une macro me permettant d'un clic droit de colorier une case correspondant au numéro sorti.
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, [A1:J9]) Is Nothing Then Exit Sub
Cancel = True
Target.Interior.ColorIndex = 3
End Sub
je voudrais améliorer ce tableau de la façon suivante : le dernier numéro tiré doit avoir une couleur différente des autres.
exemple : en début de partie, le numéro 45 sort, je fais un clic droit sur le 45 dans ma grille et la case devient jaune, puis le numéro 84 sort, je vais un clic droit sur le 84, il devient jaune et le 45 devient vert et ainsi de suite
je ne sais si cela est possible et je n'ai pas les connaissances suffisante pour le faire, c'est pourquoi, je m'adresse à vous.
Bien cordialement
Olivier
