validation et VBA

[Flam]

Bonjour le FORUM
Bonne journée à tous

Quelqu'un peut-il venir au secours de Capitaine Flam
un petit Hic coince ma validation
Au secours SVP

Les explications sont sur le fichier

MERCI par avance


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

 

[_Thierry]

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

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

 

[Flam]

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

 

[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]