Problème d'évènements

Bonjours à tous,

Aujourd'hui en voulant continué mon développement d'application j'ai remarqué que l'évènement Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range) ne fonctionnait plus.

Voici mon code :

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

ligne = ActiveCell.Row

If ActiveSheets = "En cours" And ActiveCell.Column = 1 And ActiveCell.Row <> 1 And Range("A" & ligne) = "" Then
    Application.EnableEvents = False
    auto_etir_formule
    Application.EnableEvents = True
End If

End Sub

sachant que j'ai déjà essayer de réactiver les évènements par la fenêtre Exécution.

Si quelqu'un a une idée de comment résoudre ce problème je suis preneur .

Cordialement.

Arthur.

Bonjour,

tu utilises activesheets qui est une variable que tu as défini auparavant ?

si tu veux faire référence à la feuille activée par l'événement sheetselectionchange utilise la variable sh. de même pour la cellule sélectionnée, utilise la variable target

If sh.name = "En cours" And target.Column = 1 And target.Row <> 1 And Range("A" & target.row) = "" Then

Merci h2so4,

Cela fonctionne parfaitement.

Pour info je n'utilisait pas de variables c'est juste que j'ai mis un s en trop