Assombrire carte bingo

Bonjour a tous

je ne sais pas comment dire si c'est assombrir ou quoi

j'aimerais pouvoir assombrire les numero lorsqu 'il son cocher

voici exemble https://www.excel-pratique.com/~files/doc/G1Jy9bingo.xls

A+

Bonsoir,

tu fais un clic droit sur le nom de l'onglet, et tu colles ce code dans l'éditeur VBE (dans la page blanche qui s'ouvre)

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    Target.Interior.ColorIndex = IIf(Target.Interior.ColorIndex = 44, xlNone, 44)
    Cancel = True
End Sub

pour passer en orangé ta cellule, tu doubles-cliques dedans

Si la cellule est déjà en orangé, elle redevient blanche

Edit :

et pour restreindre la plage de cellules, utilises ce code :

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Range("$D$3:$H$7"), Target) Is Nothing Then
    Target.Interior.ColorIndex = IIf(Target.Interior.ColorIndex = 44, xlNone, 44)
    Cancel = True
End If
End Sub

bonjour a tous

merci beaucoup felix pour la solution

est ce qu'il y a posibilité de le faire avec un simple click

A+

Bonsoir

Essaie

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
With Target
If Not Intersect(Range("$D$3:$H$7"), Target) Is Nothing Then
    Target.Interior.ColorIndex = IIf(Target.Interior.ColorIndex = 44, xlNone, 44)
    Cancel = True
End If
End With
End Sub

Cordialement

Bonsoir a tous

merci Amadéus ça fonctionne très bien

A+