Code vba renvoyant une date du jour lorsque une condition est satisfaite

Bonjour,

je souhaiterais dans les cellules de la colonne M "date d'encaissement" insérer une formule qui renvoie la date du jour au moment de laquelle le reste à la charge de mon client est devenu = 0 (au lieu de la saisir manuellement).

sachant que mes clients règlent leurs dettes en plusieurs versements (jusqu'à 5 versements mensuels) , je vous prie donc de me proposer une solution automatique qui me permet à chaque consultation de mon fichier de savoir à quel jour exactement mon client a solder sa situation comptable.

N.B :
- Je suis nul en vba
- J'ai déjà poster le problème sur un autre forum mais j'ai pas encore résolu mon problème
- La formule =si(L2=0;aujourdhui;"") ne m'est pas utile du moment qu'elle renvoie la date du jour de chaque consultation de mon fichier (donc variable) Pièce jointe 151873

Bonjour,

Effectiment c'est un problème. Donc manuellement, tu bloques ta date avec "CTRL ;".

Sinon, tu mets un module vba dans ta feuille. Le code suivant va agir quand tu indiques dans la plage A1:A5 une valeur égale à 0 > ajout de la date dans la colonne B même ligne.

Code:

---

1 2 3 4 5 6 7 8 9

Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("A1:A5")) Is Nothing Then If Target = 0 Then Target.Offset(0, 1) = Date Else Target.Offset(0, 1) = "" End If End If End Sub

---

Citation:

---

Envoyé par moussaouiassur

Je suis nul en VBA

---

Etant donné les tutoriels de qualité qu'on trouve sur ce site, c'est un handicap qui peut être corrigé en quelques heures.