Boucle sur Worksheet_Calculate qui bug

[gorfil]

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.

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 Sub

Merci d'avance pour votre précieuse aide.

 

[Kotov]

Re : Boucle sur Worksheet_Calculate qui bug

Bonsoir Gorfil,

J'ai copié ta macro dans un fichier Excel 2007 et tout semble fonctionner (j'ai testé avec des valeurs VRAI FAUX les cellules de la colonne H)
et la police des valeurs de la colonne A changent bien de couleur.

A quel code d'erreur es-tu confronté ?

A +
Kotov

 

[job75]

Re : Boucle sur Worksheet_Calculate qui bug

Bonsoir gorfil, Kotov,

La feuille est recalculée quand on entre la valeur False dans Cells(x, 8).

Il faut donc désactiver l'action des évènements.

Par ailleurs, il est plus que souhaitable de regrouper les cellules :

Private Sub Worksheet_Calculate()
Dim x As Integer
[COLOR="Red"]Application.EnableEvents = False[/COLOR]
For x = 10 To 50
If Cells(x, 8) = True Then
Range(Cells(x, 1), Cells(x, 5)).Font.Color = &H5F
Else
Cells(x, 8) = False
Range(Cells(x, 1), Cells(x, 5)).Font.Color = &HFF0000
End If
Next x
Application.EnableEvents = True
End Sub

Edit : perso je préfèrerai, de loin, utiliser ColorIndex au lieu de Color, avec les codes couleur 9 et 5.

A+

 

[gorfil]

Re : Boucle sur Worksheet_Calculate qui bug

Bonjour

Merci beaucoup ça fonctionne
je vais change aussi color.index à la place de color
Merci
A bientôt

 

[gorfil]

Re : Boucle sur Worksheet_Calculate qui bug

Bonjour

Merci infiniment tout fonctionne parfaitement

A bientôt