Saisie puis somme

maxwellou · 2 Janvier 2019

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 · 2 Janvier 2019

Bonjour maxwellou,

Code:

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 · 2 Janvier 2019

job75 à dit:

Bonjour maxwellou,

Code:

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 · 2 Janvier 2019

maxwellou à dit:
Mais peut-on pousser encore plus loin ?

Ça ne va pas loin :

Code:

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

maxwellou · 2 Janvier 2019

job75 à dit:
Ça ne va pas loin :

Code:

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 · 2 Janvier 2019

maxwellou à dit:
Est-ce moi qui ne fait pas la bonne manipulation ?

C'est certain.

maxwellou · 2 Janvier 2019

job75 à dit:
C'est certain.

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

Saisie puis somme

maxwellou

XLDnaute Occasionnel

Pièces jointes

job75

XLDnaute Barbatruc

Pièces jointes

maxwellou

XLDnaute Occasionnel

job75

XLDnaute Barbatruc

maxwellou

XLDnaute Occasionnel

job75

XLDnaute Barbatruc

maxwellou

XLDnaute Occasionnel

Discussions similaires

Saisie puis somme

maxwellou

XLDnaute Occasionnel

Pièces jointes

job75

XLDnaute Barbatruc

Pièces jointes

maxwellou

XLDnaute Occasionnel

job75

XLDnaute Barbatruc

maxwellou

XLDnaute Occasionnel

job75

XLDnaute Barbatruc

maxwellou

XLDnaute Occasionnel

Discussions similaires

Privacy & Transparency

Privacy & Transparency