Rentrer une formule en gardant la macro inactive

Twixman -  
thev Messages postés 1986 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


A voir également:

1 réponse

thev Messages postés 1986 Date d'inscription   Statut Membre Dernière intervention   713
 
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