formule visual basic

[david.ridelaire]

Peut on inserer la formule 2 fois pour une même feuille de calcul
mais avec des destinations de cellules différentes?


Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 And Target.Rows.Count = 1 Then
If Target.Offset(0, 7) = "" Then Target.Offset(0, 7) = Date
End If
End Sub

exemple : si dans cellule A1 il y a quelque chose alors inserer date du jour dans H1

et si dans E1 il y a "C" alors inserer date du jour dans G1

d'avance merci pour tous ceux qui se pencheront sur le problème

DAVID

 

[Spitnolan08]

Re : formule visual basic

Bonjour,

Peurt être avec (non testé)

 Private Sub Worksheet_Change(ByVal Target As Range)
If Not IsEmpty(Intersect(Target, Range("A1"))) then
IF Range("E1")="C" then 
Range("G1").value = Date
else
Range("H1").value = Date
end if
End If
End Sub

Cordialement

 

[david.ridelaire]

Re : formule visual basic

VOILA LE PROG QUI MARCHE BIEN

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Address = "$F$8" Then

If Target.Value <> "" Then
Range("G18") = Date
Else
Range("G18") = ""
End If
End If

End Sub