formule visual basic

david.ridelaire · 24 Septembre 2007

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 · 24 Septembre 2007

Re : formule visual basic

Bonjour,

Peurt être avec (non testé)

Code:

 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 · 16 Octobre 2007

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

formule visual basic

david.ridelaire

Guest

Spitnolan08

XLDnaute Barbatruc

david.ridelaire

Guest

Discussions similaires

formule visual basic

david.ridelaire

Guest

Spitnolan08

XLDnaute Barbatruc

david.ridelaire

Guest

Discussions similaires

Privacy & Transparency

Privacy & Transparency