XL 2010 aide a appliquer un code sur plusieurs cellule 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
 

Marh

XLDnaute Nouveau
bonjour,
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: 2

chris

XLDnaute Barbatruc
Bonjour

Rien n'est clair

Tu utilises un tableau structuré mais tu n'en respectes aucune règle :
  • lignes entièrement vides
  • formules non homogènes par colonne
  • sous-totalisations (dont on ne sait en fonction de quel critère)
Une formule suffirait à remplir la colonne E avec la somme de K2:K4 si 'est cela que tu veux
 

Discussions similaires

Réponses
1
Affichages
98
Réponses
18
Affichages
400
Haut Bas