XL 2010 traçabilité du cumulé Excel VBA

Marh

XLDnaute Nouveau
Bonjour s'il vous plait quelqu'un peut m'aider j'essaye d'appliquer ce code de cumul avec traçabilité des valeurs d'une cellule sur plusieurs cellule mais je suis nouvelle au vba Excel je vous serai reconnaissante


---------------------------------------------------------------------------

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
'Ti 07/03/21
Dim LastLigne As Range, LastDate As Date
Dim Message As String, Reponse

If Target.Address <> "$H$28" Then Exit Sub

'recherche de la dernière date dans la colonne P
Set LastLigne = Range("P65536").End(xlUp)
If LastLigne.Row > 1 Then LastDate = LastLigne
Message = "Dernière saisie le " & _
Format(LastDate, "dd/mm/yy ""à"" hh ""h"" mm ""min""") & vbCr _
& "Valider ?"
Reponse = MsgBox(Message, vbYesNo, "Saisie")
'si accepte
If Reponse = vbYes Then
Set LastLigne = LastLigne.Offset(1, 0)
With LastLigne
'ajoute cette dernière saisie
.Value = Now
.Offset(0, 1) = Target.Value
End With
End If

'remet la formule dans la cellule A1
Application.EnableEvents = False
Target.Formula = "=SUM(Q2:Q" & LastLigne.Row & ")"
Application.EnableEvents = True
End Sub

voila pour la colonne du cumulé E j'aimerai avoir le même code pour toute les cellules que celui sur la cellule E28 et que les saisie soit transcrit comme sur les colonnes K ET J pour chacune
est-ce possible?
 

Pièces jointes

  • EXO.xlsm
    101.7 KB · Affichages: 20

Rouge

XLDnaute Impliqué
Bonjour,

Comment voulez-vous qu'on réponde à votre demande? ça n'a aucun sens?

-Que représentent les valeurs en K2:K4? d'où sortent-elles? Idem pour les dates en J2:J4?
-Quels liens avec le tableau de données?
-Pourquoi la somme en E28?

Mettez-vous dans la peau d'une personne étrangère à votre problème et essayez de répondre à ce que vous avez écrit.
 

Marh

XLDnaute Nouveau
je comprend, en gros j'essaye d'avoir sur la colonne des quantités cumulés un cumulé automatique a la saisie tout en ayant la traçabilité des saisies ailleurs ceci est pour le suivi de chantier vu qua chaque fois je dois saisir la quantité faite .
k2:k4 et j2: j4 recoit automatiquement la valeur saisie sur la cellule E28 (lheure de la saisie et la quantité saisie )
et jai besoin dappliquer le meme principe a la collonne E en entier
 
Dernière édition:

sylvanu

XLDnaute Barbatruc
Supporter XLD
Bonjour Marh, Rouge,
"Ce qui se conçoit bien s’énonce clairement, et les mots pour le dire arrivent aisément" N. Boileau :)
Mettez l'attendu dans votre fichier que l'on puisse comprendre.
En J:K ce sont les relevés ? Et en E28 la quantité réalisée ?
Pourquoi en E28 ?
Le tableau J:K est appelé à grandir avec les nouveaux relevés ?
Alors pourquoi pas simplement la somme en L ?
1620140649258.png
 

Marh

XLDnaute Nouveau
jessaye de faire un truc simple pour les chefs chantier avec lexemple de la cellule E28 qui fait le cumule automatique et qui transcrit les quantites saisis a chaque fois sur dautre tableau KJ dans cette exemple
mon but cest essayer dapplique ce meme code sur toutes les cellules de la collonne E
merci
 

Discussions similaires

Réponses
7
Affichages
404

Statistiques des forums

Discussions
311 716
Messages
2 081 848
Membres
101 826
dernier inscrit
dododu89