Discussion :

[Soph70]

Bonjour,

J'utilisais le code ci-dessous avec Excel 2003 sans problème, mais avec Excel 2010 j'ai toujours l'erreur d'exécution '28' Espace pile insuffisante:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
[H4] = Date
End Sub

Lorsque je click sur déboguer le code [H4] = Date est en jaune.

Merci d'avance pour votre aide,

Sophie

[Duddy]

Bonjour le forum,

As-tu regardé dans l'aide VBA d'EXCEL, j'ai demandé "erreur 28" et il a donné une solution?

Tu es peut-être dans le cas proposé par l'aide.

[Soph70]

Bonjour,

J'ai modifié la procédure pour:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Static Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
 
Static date_facture As Date
 
date_facture = Date
Range("h4") = date_facture
End Sub

Et ça fonctionne très bien maintenant.

Merci beaucoup pour votre aide,

Sophie