C
Christian
Guest
Bonjour,
J'ai créer une grille de loto comprenant 90 numéros. Je souhaiterais que la couleur de fond de la cellule puisse changer sur click de souris. A chaque click, je voudrais que deux couleurs s'alternent. J'ai lu un peu de code trouvé sur votre site, mais......
J'ai tenté ceci, mais bien entendu, ça ne marche pas:
Private Sub CommandButton1_Click()
If ActiveCell.Interior.ColorIndex = xlNone Then
If ActiveCell.Interior.ColorIndex = xlNone Then
Selection.Interior.ColorIndex = 8
End If
End Sub
Merci de votre aide,
J'ai créer une grille de loto comprenant 90 numéros. Je souhaiterais que la couleur de fond de la cellule puisse changer sur click de souris. A chaque click, je voudrais que deux couleurs s'alternent. J'ai lu un peu de code trouvé sur votre site, mais......
J'ai tenté ceci, mais bien entendu, ça ne marche pas:
Private Sub CommandButton1_Click()
If ActiveCell.Interior.ColorIndex = xlNone Then
If ActiveCell.Interior.ColorIndex = xlNone Then
Selection.Interior.ColorIndex = 8
End If
End Sub
Merci de votre aide,