Microsoft 365 Alimentation d'un compte

[Michest94]

Bonjour le forum, 🙂

Je vous sollicite sur mon fichier en complément.
A savoir je souhaite alimenté un compte X en B2 la source d'apprivoisement se fait par la cellule B1.

Merci pour votre aide

 

[Michest94]

Bonjour le forum, 🙂

Je vous sollicite sur mon fichier en complément.
A savoir je souhaite alimenté un compte X en B2 la source d'apprivoisement se fait par la cellule B1.

Merci pour votre aide

En fait ce que j'injecte en b1 se cumule
mais en b2 j'ai que la valeur injectée

 

[fanch55]

Salut Michel ou Esteban,
Tu as supprimé ton classeur ?

 

[Michest94]

Mauvaise manip.

 

[Phil69970]

Bonjour @Michest94, fanch55

Je te propose ceci issue de cette discussion

XL 2016 - SOMME CELLULE

Bonjour Je voudrais savoir si il est possible d'avoir un calcul automatique dans une cellule. Exemple dans une cellule je tape 1 ensuite dans cette même cellule je mets 5. Je voudrais que ma cellule indique 6 : (5+1) ensuite je saisie 2 et là la cellule indique 8 etc Je vous remercie par...

www.excel-downloads.com

@Phil69970

 

[Michest94]

Bj Phil69670, fanch55🙂

Ta solution proposée convient parfaitement.👍
Merci beaucoup.

 

[fanch55]

Bonjour @Michest94 ,@Phil69970

Code fourni fonctionnel et conforme à la demande, mais :
Ne pas oublier de tester si la valeur entrée est numérique .

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Application.Intersect(Target, Range("B1")) Is Nothing Then
        If Target <> "" Then
            Application.EnableEvents = False
            valsaisie = Target
            Application.Undo
            If IsNumeric(valsaisie) Then
                If Left(Target.Formula, 1) = "=" Then
                    Target.Formula = Target.Formula & "+" & Trim$(Str$(valsaisie))
                Else
                    Target.Formula = "=" & Trim$(Str$(valsaisie))
                End If
            End If
            Application.EnableEvents = True
        End If
    End If
End Sub