Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11

Recopier cellule de gauche si valeur dans cible

2 réponses
Avatar
crolegoogle
Bonsoir ou Bonjour le groupe,

J'explique ma demande
J'utilise Excel 2007

Dans une colonne "F" j'ai le montant de la facture
Dans la colonne "G" j'ai la date du payement
Dans une cellule "H3"J'ai le total des montant per=E7u =E0 ce jour

Pour cela je souhaiterais conna=EEtre le code VBA =E0 ajouter =E0 la feuille=

pour que:

Lorsque j'introduit une date dans la colonne "G", le montant de la
cellule =E0 gauche (Montant de la facture en F)
soit additionn=E9e en "H3"
Exemple:
Montant 1.425=80 en F13
Re=E7u le 12/04/2008 en G13
Si en "G13" une date est introduite Ajouter la valeur de F13 =E0 H3

Merci pour vos r=E9ponse
Cordialement
Crole

2 réponses

Avatar
Tatanka
Salut Crole,

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 7 Then [H3] = [H3] + Target.Offset(0, -1)
End Sub

Ai-je bien compris ton besoin ?
En tous cas pour savoir si ça te convient, voici un exemple :
http://cjoint.com/?evhJwHHwlH

Serge


a écrit dans le message de news:
Bonsoir ou Bonjour le groupe,

J'explique ma demande
J'utilise Excel 2007

Dans une colonne "F" j'ai le montant de la facture
Dans la colonne "G" j'ai la date du payement
Dans une cellule "H3"J'ai le total des montant perçu à ce jour

Pour cela je souhaiterais connaître le code VBA à ajouter à la feuille
pour que:

Lorsque j'introduit une date dans la colonne "G", le montant de la
cellule à gauche (Montant de la facture en F)
soit additionnée en "H3"
Exemple:
Montant 1.425€ en F13
Reçu le 12/04/2008 en G13
Si en "G13" une date est introduite Ajouter la valeur de F13 à H3

Merci pour vos réponse
Cordialement
Crole
Avatar
crolegoogle
Bonjour,

Excuse moi pour la réponse tardive
C'est exactement ce que je désirais bonne journée à tous

Cordialement
Crole