checkbox?

[Nico]

XLDnaute Nouveau
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]
 

Dull

XLDnaute Barbatruc
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


@+
 

Statistiques des forums

Discussions
312 816
Messages
2 092 360
Membres
105 378
dernier inscrit
y07