checkbox?

[[Nico]]

Bonjour a tous,
Suis nouveau et j'ai un p'tit probleme:
J'ai une feuille avec plusieures checkbox; il y a une case avec une somme qui se calcule automatiquement. J'aimerai que quand la somme fait '3', une croix apparaisse dans ma checkbox, donc j'ai une macro (nico):
Sub nico()
If [d58] = '3' Then
Sheets(Feuil1).CheckBox8.Value = True
Else
Sheets(Feuil1).CheckBox8.Value = False
End If

End Sub
Cette macro est executée ainsi:
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Call nico
End Sub

j'ai toujours un message d'erreur 'Incompatibilité de type' qui vient :angry:
Vous avez une solution?

Merci

[Nico]

 

[PascalXLD]

Bonjour

il te manque des guillemets

Sheets('Feuil1').CheckBox8.Value = True

Bon courage

 

[Dull]

Salut nico

il y a une petite erreur dans ta macro (petite mais Ô combien Importante):woohoo:

Sub nico()
If [d58] = '3' Then
Sheets('Feuil1').CheckBox8.Value = True
Else
Sheets('Feuil1').CheckBox8.Value = False
End If

End Sub
Cette macro est executée ainsi:
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Call nico
End Sub


@+

 

[Dull]

Salut Pascal76

Lol! trop tard

 

[[Nico]]

t'ain chuis bluffe, vous etes trop rapide... ca marche nickel maintenant!!! merci beaucoup
@+