ERREUR EXECUTION '13' : incompatibilité de type. ou ERR '28' : espace pile insufisant

[MICHAEL]

Bonjour,
Est il possible d'écrire un vb cohérent et fonctionnel en reprenant le vb existant, et comment faire?


Merci pour vos réponses.

 

[Dranreb]

Re : ERREUR EXECUTION '13' : incompatibilité de type. ou ERR '28' : espace pile insuf

Il vous a déjà été répondu par plusieurs personnes ici.

 

[Rino702]

Re : ERREUR EXECUTION '13' : incompatibilité de type. ou ERR '28' : espace pile insuf

Bonjour
voici le VB corrigé pour ne pas produire d'erreur:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim xcell As Range
On Error Resume Next
For Each xcell In Target
If Not Intersect(xcell, Range("B6:B145")) Is Nothing Then
Application.EnableEvents = False
xcell.Value = DateSerial(Cells(1, xcell.Column), Month(xcell.Value), Day(xcell.Value))
Application.EnableEvents = True
End If
Next
End Sub

Rino