Ajouter en VBA une pénalité dans une Cell <>

Bonsoir Flam et a tous

Dis moi, est-ce que ceci répond a ta demande ?

Option Explicit

Private MaPenMemoire()    As Date

Private Sub Worksheet_Change(ByVal Target As Range)
With Target
        If .Column = 10 And .Row > 2 And .Row < 12 Then
                ReDim Preserve MaPenMemoire(8)
                If Not .Value = Empty Then
                        Range('C' & .Row) = Range('C' & .Row) + .Value
                        MaPenMemoire(.Row - 3) = .Value
                Else
                        Range('C' & .Row) = Range('C' & .Row) - MaPenMemoire(.Row - 3)
                End If
        End If
End With
End Sub

Cliquez pour agrandir...

En passant, je ne me sert pas de cette procédure :

'Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Cliquez pour agrandir...

Message édité par: Hellboy, à: 13/11/2005 04:11

BONJOUR et MERCI Hellboy

ton code est encore meilleur que celui que j'avais
un petit problème quand même
si je sélectionne une donée dans ma validation
si je me trompe et en reselectionne une autre sans sortir de ma cellule
cela me rajoute à nouveau et lorsque j'efface je reviens à l'avant dernière valeur et non pas à la valeur initiale

??????

ci-joint le fichier


Bonne journée [file name=penalites_20051113113423.zip size=8980]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/penalites_20051113113423.zip[/file]

re Flam

j'espèrais que tu ne le trouve pas ce petit bug !

Je pense que ceci devrait résoudre le problème que tu fais mention.

Option Explicit

Private MaPenMemoire()&nbsp; &nbsp; &nbsp; &nbsp; As Date

Private Sub Worksheet_Change(ByVal Target As Range)
With Target
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; If .Column = 10 And .Row > 2 And .Row < 13 Then
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Range('C' & .Row) = Range('C' & .Row) - MaPenMemoire(.Row - 3)
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &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; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; ReDim Preserve MaPenMemoire(9)
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Range('C' & .Row) = Range('C' & .Row) + .Value
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; MaPenMemoire(.Row - 3) = .Value
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; End If
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; End If
End With
End Sub

Cliquez pour agrandir...

Merci et sincèrement désolé

Bonsoir le forum
Bonsoir Heliboy et sincèrement désolé

Mea culpa

Ne crois pas que je ne respecte pas les bénévoles qui travaillent dur sur ce Fil tout simplement par passion bien au contraire.
Je ne suis pas trop à l'aise sur un forum et pas très fier de moi mais je t'assure il s'agit plus de maladresses que d'autre chose.
J'apprend énormément avec ce que je reçois et je trouve que le principe est génial.
J'aimerai bien par la suite rendre la pareil dès que je serai prêt !
Tout d'abord je n'ai pas vu ton dernier message!!!! je m'y perds un peu dans ces messages
C'est vrai j'ai envoyé plusieurs Fils ...plus par peur de ne pas trouver de solutions que de me moquer du travail effectué
Tu sais en ce moment entre mon boulot et le programme que j'essaye de mettre en place je ne touche plus les pieds par terre
Je dois le finir pour Mardi au plus tard
En plus de cela j'habite en POLYNESIE et il y a 11h00 de décalage avec la métropole....ça perturbe parfois les réponses
(pourtant ta réponse et datée du 13/11 ?????? je suis nul, je ne l'ai pas vu)

J'apprends également sur le fonctionnement d'un Forum
je ne referai pas les mêmes erreurs
Ce n'est pas si évident quand tu débarques sur le Fil, déjà la première fois involontairement j'ai tchaté en arrivant avec des phrases courtes sans dire bonjour je me suis fais tapé sur les doigts assez sèchement hmy:
Pourtant je t'assure je ne suis pas un voyou
mais plus un novice bien maladroit

Encore mille excuses

et merci pour ta réponse

Capt Flam

:whistle:

Re:Merci et sincèrement désolé

re Flam

Tout étais pardonné avant le début des temps, je voulais juste que tu en sois concient.

En passant, il y avait bien longtemp que je n'avais pas entendu le nom: Capitaine Flam. Tu m'as rappeler de bon vieux souvenir !

http://www.capitaineflam.free.fr/

a+