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

F

Flam

Guest
Bonjour le Forum
Merci à PASCAL76
quelqu'un peut il m'aider je coince
MERCI

J'aimerai en utilisant une validation dans une cellule
(pénalités de temps)
ajouter ce temps à une autre cellule ou est déjà indiqué un autre temps
et cela en VBA

Attention au problème si j'enlève cette pénalité
le temps de départ, initial doit revenir comme avant

ou si j'en remet une autre (car je me suis trompé à la saisie)
cela ne doit pas se cumuler ???
mais tenir compte de la valeur rentrée au départ

PASCAL76 m'a déjà bien aidé
ci-joint son fichier

et quelques explications supplémentaires

;) FLAM [file name=penalites_20051113014100.zip size=8726]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/penalites_20051113014100.zip[/file]
 

Pièces jointes

  • penalites_20051113014100.zip
    8.5 KB · Affichages: 10

Hellboy

XLDnaute Accro
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

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

'Private Sub Worksheet_SelectionChange(ByVal Target As Range)

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

Flam

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

Pièces jointes

  • penalites_20051113113423.zip
    8.8 KB · Affichages: 12

Hellboy

XLDnaute Accro
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
 
F

Flam (pas brillant comme Flam!!)

Guest
Merci et sincèrement désolé

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

Mea culpa :eek:

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 :eek: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:
 

Discussions similaires

Statistiques des forums

Discussions
312 878
Messages
2 093 159
Membres
105 642
dernier inscrit
ABDELMAJIDZIANI