Macro pr cumuler saisies dans cellule, avec historique...

[Christian0258]

Bonjour à tout le forum,

Je souhaiterais votre aide sur une macro, qui a pour but de cumuler les saisies faites dans des cellules, tout en gardant l'historique des saisies effectuées au fil du temps...

voir fichier...

Merci pour votre aide si précieuse.

Bien amicalement,
Christian

 

[phlaurent55]

Re : Macro pr cumuler saisies dans cellule, avec historique...

Bonjour Christian,

voir fichier joint

à+
Philippe

 

[job75]

Re : Macro pr cumuler saisies dans cellule, avec historique...

Bonjour Christian, Philippe,

Private Sub Worksheet_Change(ByVal Target As Range)
 If Not Intersect([D10:W10], Target) Is Nothing And Target.Count = 1 Then
   If Target <> "" Then
     Application.EnableEvents = False
     valsaisie = Target.Text
     Application.Undo
     If Target.HasFormula Then
       Target.Formula = Target.Formula & "+""" & valsaisie & """"
     Else
       Target.Formula = "=""" & valsaisie & """"
     End If
     Application.EnableEvents = True
   End If
 End If
End Sub

A+

 

[Christian0258]

Re : Macro pr cumuler saisies dans cellule, avec historique...

Re, le forum, phlaurent, job75,

C'est avec bonheur que je découvre vos solutions.
Je vous remercie infiniment.

Bonjour à toute la Belgique, alors dis-moi job75, Venise...

Bien à vous,
Christian