G
gorfil
Guest
J'ai une feuil excel sur laquelle il y a 200 checkbox
à chaque click sur checkbox correspond un changement dans les cellules adjacentes.
J'ai créer une sub qui fonctionnent bien avec un bouton.
Je souhaites que la sub fonctionne avec Worksheet_Calculate()
Quand j'essaye j'ai un bug et excel se bloque.
Merci d'avance pour votre précieuse aide.
à chaque click sur checkbox correspond un changement dans les cellules adjacentes.
J'ai créer une sub qui fonctionnent bien avec un bouton.
Je souhaites que la sub fonctionne avec Worksheet_Calculate()
Quand j'essaye j'ai un bug et excel se bloque.
Code:
Private Sub Worksheet_Calculate()
Dim x As Integer
For x = 10 To 50
If Cells(x, 8) = True Then
Cells(x, 1).Font.Color = &H5F
Cells(x, 2).Font.Color = &H5F
Cells(x, 3).Font.Color = &H5F
Cells(x, 4).Font.Color = &H5F
Cells(x, 5).Font.Color = &H5F
Else
Cells(x, 8) = False
Cells(x, 1).Font.Color = &HFF0000
Cells(x, 2).Font.Color = &HFF0000
Cells(x, 3).Font.Color = &HFF0000
Cells(x, 4).Font.Color = &HFF0000
Cells(x, 5).Font.Color = &HFF0000
End If
Next x
End SubMerci d'avance pour votre précieuse aide.