Ajouter la date d'aujourd'hui ds 1 même cell. à côté d'un txt

[Nico]

Bonjour à tous,

J'ai une cellule avec un texte (toujours le même) "NON REGLEE AU" ds la cellule A5.
J'aimerais ajouter à sa droite, la date d'aujourd'hui mais ds la même cellule.

Comment faire ?

Ma question vous semble simple ? Tant mieux car je suis débutnat en Visual Basic.

Merci pour votre aide.

 

[Monique]

Bonjour,

Par formule :
="NON REGLEE AU "&TEXTE(AUJOURDHUI();"jj mmmm aaaa")
="NON REGLEE AU "&TEXTE(AUJOURDHUI();"jj-mm-aa")

 

[andré]

Salut Monique et Nico,

Petite variante à la formule de Monique, qui modifie la date à chaque jour.

Si cette date ne doit pas être modifiée, il y a aussi moyen de le faire par le format de la cellule :

"NON REGLEE AU "jj.mm.aa (ou tout autre format de date).

En tapant Ctrl+; (tenir la touche Ctrl enfoncée pendant que l'on tape on obtient directement, dans la même cellule : NON REGLE AU 29.07.04

Ândré

 

[Nico]

Merci.
Cela ne règle malheureusement pas mon pb car j'aimerais intégrer cette fonction ds une macro qui s'appliquerait à plusieurs documents issus d'une exportation d'une autre appli.

Ne pouvant toucher à l'appli, cette macro est en fait une mise en forme auto du doc xls (mal)exporté.
Autofit des lignes, supression de lignes inutiles
Rajout de NON REGLEE AU ds la cellule A5 avec la date d'aujourd'hui accolée...

Comment faire pour la date, le reste ayant été fait grâce à l'enregistrement de mes acions de mise en forme ds une macro.

Merci pour votre aide.

 

[andré]

Resalut Nico,

Comme quoi une question posée clairement éviterait une perte de temps à pas mal de personnes.
Je crois bien que Monique partagera mon avis.

Dommage de n'avoir pu t'aider.

Ândré

 

[Nico]

Ah bon ? Suis-je une cause perdue ?

 

[Michel_M]

Bonjour Nico André et Monique

Meuuuuh non Nico, tu n'es pas une cause perdue!

Une petite macro (tu vois pour la commande de déclenchement):

Sub dater()
Range("C5") = "Non réglée au " & Date

End Sub

Bonne soirée, ta cause est la bonne (mais si)

Michel

 

[Nico]

Merci beaucoup !!

Ce sont des relances impayés..et y'en a plus d'une centain eà se taper par jour alors la macro qui remet tout en forme c'est peinard...

merci !

 

[@+Thierry]

Bonsoir Monique, Ândré, Michel_M, Nico, le Forum

Et oui si tu vais précisé dans ton Sujet "en VBA", nos spécialistes Es-Formula seraient restés bien tranquille à la Plage !!! (enfin pas vraiment à la Plage !!)

Bon sinon avec VBA on peut s'amuser :

Si tu as admettons dans une cellule la date de de la facture imaginons "A10" on peu faire un truc marrant :

Option Explicit

Sub RelanceFun()
Dim Dep As Date, Arr As Date
Dim TmpD As Long
Dim TmpH As Long
Dim TmpM As Long
Dim TmpS As Double
Dim TheRelance As String

Range("A10") = 38150

Dep = Range("A10")
Arr = Date

TmpD = Arr - Dep
TmpH = TmpD * 24
TmpM = TmpD * TmpH * 60
TmpS = CDbl(CDbl(TmpD * TmpH) * CDbl(TmpM * 60))

TheRelance = Application.UserName & vbTab & vbTab & vbTab & vbTab & Format(Date, "DDDD, DD MMMM YYYY") & vbCrLf & _
"Mooooonsieur" & vbCrLf & vbCrLf & "Imaginez-vous que celà fait exactement" & vbCrLf & _
TmpD & " Jours que notre facture datée du " & Dep & " vous a été expédiée..." & vbCrLf & _
"Soit plus de " & TmpH & " Heures " & vbCrLf & " ou encore " & TmpM & " Minutes " & vbCrLf & _
"Par conséquent veuillez rédiger votre chèque dans les secondes qui suivent" & vbCrLf & _
"et qui viendront s'ajouter aux " & Format(TmpS, "# ### ### ### ### ##0") & " que nous attendons !"

MsgBox TheRelance, vbCritical, "DERNIER RAPPEL avant explosion de votre disque dûr !! lol"


End Sub


Mort de Rire !!! ca fait du bien en quittant le bureau !!
Bonne Soirée
@+Thierry

 

[Lapou]

Hello tout le monde !!!

Trop mdr ce Thierry, j'adore ;-)

SI tu en as d'autres en tête je suis preneur ;-)

Bonne journée
Tchao