Pb avec Événement worsheet_calculate

Bonjour à tous,

J'aurais besoin que l'on m'aide pour la macro suivante.

J'ai un message d'erreur : 'Incompatibilité de type'

Private Sub Worksheet_Calculate()

If Range("I38:I75").Value <> 0 Then

MsgBox ("ok")

End If

End Sub

Merci pour votre aide

tu ne peux pas dire qu'un range avec plusieurs cellules est égal à 0

Par contre tu peux dire que la somme d'un range est égal à 0.

Ou alors que toutes les cellules d'un range sont égales à 0 une à une.

Que veux tu dire ?

comme c'est une vérification alors "Si la somme des cellules est différent de 0 alors" et instruction...

If application.worksheetfunction.sum(Range("I38:I75")) <> 0

Merci la condition fonctionne

dernière chose si cette condition est fausse

comment rendre visible une feuille qui est masquée ?

Sheets.visible???

ne fonctionne pas

Désolé pour mon ignorance!!

Sheets("lenomdetonsheet").visible=true

Géniale ça fonctionne!!!

Merci bien pour ton aide

Bonne fin de journée