validation et VBA

Bonjour Captain !, le Forum

J'essaierai comme ceci :

Option Explicit

Dim LastValue As Variant

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Application.Intersect(Target, Columns('J')) Is Nothing Then Exit Sub
LastValue = ActiveCell.Offset(0, -7)
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
Dim MaPenMemoire() As Date
With Target
&nbsp; &nbsp; &nbsp; &nbsp; If .Column = 10 And .Row > 2 And .Row < 13 Then
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; ReDim Preserve MaPenMemoire(9)
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; If Not .Value = Empty Then
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Range('C' & .Row) = LastValue + .Value
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; MaPenMemoire(.Row - 3) = .Value
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Else
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Range('C' & .Row) = LastValue - MaPenMemoire(.Row - 3)
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; End If
&nbsp; &nbsp; &nbsp; &nbsp; End If
End With
End Sub

Cliquez pour agrandir...

Bonne Journée
[ol]@+Thierry[/ol]

Bonjour tout le FORUM

Salut thierry

Je te remercie pour ton code thierry
c'est de mieux en mieux par rapport à ce que j'aimerai obtenir

une fois dans ma cellule je peux changer comme je veux ma validation ou effacer et ma valeur initiale revient
c'est génial, ça fonctionne

mais par contre si je quitte la cellule pour une autre et que je reviens dessus je n'obtiens plus la valeur de départ

Comment modifier STP

If Application.Intersect(Target, Columns('J')) Is Nothing Then Exit Sub
LastValue = ActiveCell.Offset(0, -7)

AMICALEMENT

Capt Flam

Re bonjour le Fil


Pardon j'ai oublié de mettre la pièce jointe

[file name=penalites1.zip size=9471]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/penalites1.zip[/file]