FORMULE EXCEL renvoyant une date fixe

MOUSSAOUI · 19 Juillet 2014

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 : 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)

R@chid · 19 Juillet 2014

Re : FORMULE EXCEL renvoyant une date fixe

Bonjour et Bienvenue sur XLD,
Tu peux toute fois insérer la date d’aujourd’hui par la combinaison des touches Ctrl+;

@ + +

MOUSSAOUI · 19 Juillet 2014

Re : FORMULE EXCEL renvoyant une date fixe

Merci r@chid mais je cherche une formule qui renvoi cette date

R@chid · 19 Juillet 2014

Re : FORMULE EXCEL renvoyant une date fixe

Re,
On ne peut pas le faire par formule, on peut le faire par macro qui se déclenche une fois la cellule "RESTE" égale à zéro.
Mais du fait que je ne suis pas un spécialiste de macro je laisse les amis faire l'affaire.

@ + +

JCGL · 19 Juillet 2014

Re : FORMULE EXCEL renvoyant une date fixe

Bonjour à tous,
Salut Rachid,

Peux-tu essayer avec ce bout de code dans le module ThisWorkbook de classeur :

VB:

Option Explicit

Private Sub Workbook_Open()
    Dim Lig&
    For Lig = 2 To Range("L" & Rows.Count).End(xlUp).Row
        If Range("L" & Lig) = 0 And Not IsDate(Range("M" & Lig)) Then
            Range("M" & Lig) = Date
        Else
            Range("M" & Lig) = "?"
        End If
    Next Lig
End Sub

ou

VB:

Option Explicit


Private Sub Workbook_Open()
Dim Lig&
    For Lig = 2 To Range("L" & Rows.Count).End(xlUp).Row
        Range("M" & Lig).FormulaR1C1 = "=IF(RC[-1]=0,EDATE(RC[-12],COUNTA(RC[-6]:RC[-2])-1),""?"")"
    Range("M" & Lig) = Range("M" & Lig)
    Next
End Sub

A+ à tous

MOUSSAOUI · 19 Juillet 2014

Re : FORMULE EXCEL renvoyant une date fixe

Bonsoir,
Je suis nul en vba!
Svp qlq1 peut m'expliquer coment crere ce code et le rendre operationnel?
Merci

R@chid · 19 Juillet 2014

Re : FORMULE EXCEL renvoyant une date fixe

Bonsoir,
1) ouvres ton classeur
2) Alt+F11 pour ouvrir le projet VBA
3) fais comme il te l'a expliqué notre ami JCGL
4) enregistres ton classeur sous format *.xlsm
5) à l'ouverture de ton classeur la macro se déclenche pour insérer la date pour tout client ayant solder son compte.

normalement la macro doit se déclencher une fois le reste est égale à 0, JCGL va sûrement passer pour l'adapter.

@ + +

Edit :
Je ne trouve que c'est ce que tu cherches sauf erreur de ma part, ce que j'ai compris c'est que tu veux insérer la date du jour où le client a soldé le montant de la facture et c'est la date de la dernière échéance.

MOUSSAOUI · 22 Juillet 2014

Re : FORMULE EXCEL renvoyant une date fixe

Bonjour jcgl

j'ai essayé avec votre code mais ça ne marche pas

pouvez vous me créer le fichier xlsm et le tester et me l'envoyer en attachement ?

merci infiniment

MOUSSAOUI · 24 Juillet 2014

Re : FORMULE EXCEL renvoyant une date fixe

Bonjour

j'ai essayé avec le code de jcgl mais ça ne marche pas

pouvez vous me créer le fichier xlsm et le tester et me l'envoyer en attachement SVP?

merci infiniment

JCGL · 24 Juillet 2014

Re : FORMULE EXCEL renvoyant une date fixe

Bonjour à tous,

Voir le fichier joint.

A+ à tous

FORMULE EXCEL renvoyant une date fixe

MOUSSAOUI

XLDnaute Nouveau

Pièces jointes

R@chid

XLDnaute Barbatruc

MOUSSAOUI

XLDnaute Nouveau

R@chid

XLDnaute Barbatruc

JCGL

XLDnaute Barbatruc

Pièces jointes

MOUSSAOUI

XLDnaute Nouveau

R@chid

XLDnaute Barbatruc

MOUSSAOUI

XLDnaute Nouveau

MOUSSAOUI

XLDnaute Nouveau

JCGL

XLDnaute Barbatruc

Pièces jointes

Discussions similaires