Rentrer une formule en gardant la macro inactive

Twixman -  
thev Messages postés 2011 Date d'inscription   Statut Membre Dernière intervention   -
Bonjour,

Je cherche à entrer une formule (ex:F3 =J3) dans la colonne 6 sans qu’elle n'affecte la macro. Mais lorsque J3 est remplie, la macro s'active.

Voici le code: Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 6 Then If Not (IsEmpty(Target.Value)) Then Range("c" & Target.Row).Value = Now Else Range("c" & Target.Row).ClearContents
End Sub

1 réponse

  1. thev Messages postés 2011 Date d'inscription   Statut Membre Dernière intervention   724
     
    Bonjour,

    Essayer ceci

    Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column = 6 Then If Not Target.HasFormula Then Range("c" & Target.Row).Value = Now Else Range("c" & Target.Row).ClearContents
    End Sub
    --
     
    0