Saisie puis somme

[maxwellou]

Bonjour à tous,

Alors j'ai une question assez dingue.

Pensez vous qu'il soit possible (par formule ou VBA) de saisir une donnée dans une cellule mais que cette même cellule fasse aussi un total des lignes dessous en intégrant la saisie initiale dans cette cellule.

Je sais, difficile à comprendre.

Je vous joins un tableau en espérant que cela soit plus clair.

Merci de votre aide

 

[job75]

Bonjour maxwellou,

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$D$7" Then _
With Application: .EnableEvents = False: [D7] = .Sum([D:D]): .EnableEvents = True: End With
End Sub

A+

 

[maxwellou]

Bonjour maxwellou,

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$D$7" Then _
With Application: .EnableEvents = False: [D7] = .Sum([D:D]): .EnableEvents = True: End With
End Sub

A+

Merci bcp job75.

Ca marche parfaitement merci.

Mais peut-on pousser encore plus loin ?

Par exemple : Si on saisit en D7 "510". est ce que cette valeur (510) peut s'incrémenter dans la cellule D8 (en s'additionnant au montant déjà présent en D8) ?

Merci

 

[job75]

Mais peut-on pousser encore plus loin ?

Ça ne va pas loin :

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$D$7" Then [D8] = Application.Sum([D7:D8])
End Sub

 

[maxwellou]

Ça ne va pas loin :

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$D$7" Then [D8] = Application.Sum([D7:D8])
End Sub

Oups, j'ai pas compris.

En appliquant ce code, cela change rien à votre solution précédente. Est-ce moi qui ne fait pas la bonne manipulation ?

 

[job75]

Est-ce moi qui ne fait pas la bonne manipulation ?

C'est certain.

 

[maxwellou]

C'est certain.

Merci beaucoup Mon problème est réglé !