Rentrer une formule en gardant la macro inactive

Fermé
Twixman - 12 avril 2017 à 09:20
thev Messages postés 1851 Date d'inscription lundi 7 avril 2008 Statut Membre Dernière intervention 15 avril 2024 - 12 avril 2017 à 12:15
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 1851 Date d'inscription lundi 7 avril 2008 Statut Membre Dernière intervention 15 avril 2024 681
12 avril 2017 à 12:15
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