Espace pile insuffisant

Bonjour

j'essaye de mettre cette événement en place

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

If Range("O11").Value <> "" Then

Range("P11").Value = Range("G5").Value

else

Range("P11").Value = ""

End If

Application.EnableEvents = True

End Sub

J'ai regardé des cas similaires sur le forum , il a été conseillé d'utiliser (Application.EnableEvents = False) à la fin du code.

Chose que j'ai faite, mais ca bug toujours.

Auriez-vous une idée SVP??

Merci d'avance

Bonjour,

Essaye comme cela

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
    Application.EnableEvents = False
    If Range("O11").Value <> "" Then
        Range("P11").Value = Range("G5").Value
    Else
        Range("P11").Value = ""
    End If
    Application.EnableEvents = True
End Sub

Cordialement.

Merci pour la réponse rapide

Ca fonctionne

Bonne journée

Cordialement

Bonjour,

Cà me fait Super plaisir ... de pouvoir ... en passant ...

faire un à Leo MESSI ...

James007 a écrit :

Bonjour,

Cà me fait Super plaisir ... de pouvoir ... en passant ...

faire un à Leo MESSI ...

mdrrrrr

Un grand merci à tous mes fans dans ce forum