Erreur pile insuffisante

Bonjour à tous,

J'ai deux applications qui fonctionnent très bien indépendamment mais je n'arrive pas à les assembler. Sinon j'ai un message d'erreur de pile insuffisante. Je sèche un peu à cause de ma faible activité en VBA.

Merci d'avance

1ere application:

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)

Dim cell As Range

For Each cell In Range("F3:F300")

Select Case cell.Value

Case Is = "0"

cell.Font.ColorIndex = 3

Case Is > "0"

cell.Font.ColorIndex = 0

End Select

Next

End Sub

2ème application:

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)

Range("J2").Value = Application.WorksheetFunction.Sum(Range("F3:F300"))

End Sub

Bonsoir,

Pour la 2ème partie, bloquer les événements (cf exemple en PJ, à tester) :

Application.EnableEvents = False
Range("J2").Value = Application.WorksheetFunction.Sum(Range("F3:F300"))
Application.EnableEvents = True

Autre solution : la première partie peut être remplacée par une mise en forme conditionnelle

3ème solution : la deuxième partie peut être remplacée par une formule directement dans Excel

Bonne soirée

Bouben

Merci beaucoup c'est parfait.

Bonne soirée