Copier/coller une date issue de la fonction aujourdhui()

[anthony_unac]

Bonjour,

Je me permets de vous laisser le post d origine :

Forum Excel de www.excel-pratique.com

 

[anthony_unac]

Re : Copier/coller une date issue de la fonction aujourdhui()

Presque bon merci !
Les deux seuls soucis rencontres c est que les n°de commande du jour j sont associes au jour j+1 et que le jour et le mois sont inverses. Mais sinon effectivement en faisant tourner le prog on parvient a obtenir un bel historique

Je crois avoir reussi a corrige le pb de decalage en modifiant ainsi ton code :


Private Sub Workbook_BeforeClose(Cancel As Boolean)
Sheets("Historiques").Range("B" & [B65536].End(xlUp).Row + 1).Value = _
[date_commande].Text
Sheets("Historiques").Range("A" & [B65536].End(xlUp).Row).Value = _
[n_commande].Text
[n_commande].ClearContents
End Sub


Private Sub Workbook_Open()

End Sub

 

[anthony_unac]

Re : Copier/coller une date issue de la fonction aujourdhui()

Je crois avoir reussi a corrige le pb de decalage en modifiant ainsi ton code :


Private Sub Workbook_BeforeClose(Cancel As Boolean)
Sheets("Historiques").Range("B" & [B65536].End(xlUp).Row + 1).Value = _
[date_commande].Text
Sheets("Historiques").Range("A" & [B65536].End(xlUp).Row).Value = _
[n_commande].Text
[n_commande].ClearContents
End Sub


Private Sub Workbook_Open()

End Sub

Reste a present a corriger le probleme de l inversion du jour et du mois mais la je ne vois pas

 

[Staple1600]

Re : Copier/coller une date issue de la fonction aujourdhui()

Re


Une variante

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim NC_DC As Range
Dim Sh1 As Worksheet
Dim Sh2 As Worksheet
Set Sh1 = Sheets("BCommandes")
Set Sh2 = Sheets("Historiques")
Dim Fin As Long
Fin = Sh1.Range("B65536").End(xlUp).Row
Set NC_DC = Sh1.Range(Cells(Fin, 1), Cells(Fin, 2))
If Application.WorksheetFunction.CountA(NC_DC) = 2 Then
Sh2.Range("B" & Sh2.[B65536].End(xlUp).Row + 1) = NC_DC(2).Value
Else
MsgBox "Vous n'avez pas saisi de numéro de commande"
End If
End Sub

PS:
Mieux vaut:

Sh2.Range("B" & Sh2.[B65536].End(xlUp).Row + 1).Value = CDate(NC_DC(2)).Value
ou
Sh2.Range("B" & Sh2.[B65536].End(xlUp).Row + 1) = CDate(NC_DC(2))

que
Sh2.Range("B" & Sh2.[B65536].End(xlUp).Row + 1) = NC_DC(2))

 

[anthony_unac]

Re : Copier/coller une date issue de la fonction aujourdhui()

Re


Une variante

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim NC_DC As Range
Dim Sh1 As Worksheet
Dim Sh2 As Worksheet
Set Sh1 = Sheets("BCommandes")
Set Sh2 = Sheets("Historiques")
Dim Fin As Long
Fin = Sh1.Range("B65536").End(xlUp).Row
Set NC_DC = Sh1.Range(Cells(Fin, 1), Cells(Fin, 2))
If Application.WorksheetFunction.CountA(NC_DC) = 2 Then
Sh2.Range("B" & Sh2.[B65536].End(xlUp).Row + 1) = NC_DC(2).Value
Else
MsgBox "Vous n'avez pas saisi de numéro de commande"
End If
End Sub

Merci beaucoup de vous etes penche la dessus
J ai enfin une solution a mon probleme grace a vous

Cordialement
Anthony

 

[Staple1600]

Re : Copier/coller une date issue de la fonction aujourdhui()

Re


Reste à voir à ce que la formule =AUJOURDHUI() ne puisse pas être effacée

(ou alors on la mets directement par VBA à l'ouverture du classeur)

 

[abcd]

Re : Copier/coller une date issue de la fonction aujourdhui()

Bonjour,

Pour ceux qui l'aurait oublié :
Sélectionner une cellule, touches clavier F2 puis F9, remplace une formule par son résultat.

Donc aussi d'application pour figer une date obtenue par la fonction AUJOURDHUI()

abcd