Regroupement de date sur une seule cellule

chris

XLDnaute Barbatruc

• 24 Mars 2013

• #2

Re : Regroupement de date sur une seule cellule

Bonjour

Si le 1er te va

Code:

=DATEVAL(D3&"-"&E3)

sinon

Code:

=FIN.MOIS(DATEVAL(D3&"-"&E3);0)

 

Vote positif 0 Vote négatif

Modeste geedee

XLDnaute Barbatruc

• 24 Mars 2013

• #3

Re : Regroupement de date sur une seule cellule

Bonsour®

=DATEVAL(D3&" " &E3)
format de cellule selon besoin : mmmm-aa

 

Vote positif 0 Vote négatif

R@chid

XLDnaute Barbatruc

• 24 Mars 2013

• #4

Re : Regroupement de date sur une seule cellule

Bonjour @ tous,
Salut Chris, Salut GD,
@ Chris,
C'est peut-être,

Code:

=MOIS.DECALER(DATEVAL(D3&"-"&E3);0)

et pas FIN.MOIS()...

une autre pour le fun,

Code:

=DATE(E3;MOIS(1&D3);1)

@ + +

 

Vote positif 0 Vote négatif

chris

XLDnaute Barbatruc

• 24 Mars 2013

• #5

Re : Regroupement de date sur une seule cellule

Bonjour

R@chid : je maintiens que si rodge5895 veut le dernier jour du mois comme sur son exemple c'est bien FIN.MOIS d'où ma remarque sur le 1er (du mois)
Bise sans rancune

 

Dernière édition: 24 Mars 2013

Vote positif 0 Vote négatif

R@chid

XLDnaute Barbatruc

• 24 Mars 2013

• #6

Re : Regroupement de date sur une seule cellule

Bonjour @ tous,

La ravissante Chris à dit:

d'où ma remarque sur le 1er (du mois)

Cliquez pour agrandir...

Ahhhhhhh je suis devenu fou peut-être, j'ai compris que tu parles du 1er code (formule) et pas le 1er du mois.
Désolé pour le dérangement

@ + +

 

Vote positif 0 Vote négatif

Modeste geedee

XLDnaute Barbatruc

• 24 Mars 2013

• #7

Re : Regroupement de date sur une seule cellule

Bonsour®

R@chid à dit:

Bonjour chris
une autre pour le fun,

Code:

=DATE(E3;MOIS(1&D3);1)

Cliquez pour agrandir...

toujours pour le fun alors :

Code:

=1*(1&D3&E3)

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 24 Mars 2013

• #8

Re : Regroupement de date sur une seule cellule

Bonsoir,

Pour info :

1*(D3&E3) => 15 octets, durée d'exécution 13 µs

DATEVAL(D3&E3) => 13 octets, durée d'exécution 15 µs

--(D3&E3) => 13 octets, durée d'exécution 12 µs

A+

 

Vote positif 0 Vote négatif

chris

XLDnaute Barbatruc

• 24 Mars 2013

• #9

Re : Regroupement de date sur une seule cellule

Bonsoir
Coucou Job

On s'amuse bien mais on ne sais toujours pas si le demandeur veut le 1 ou le 31 ou même du texte ...

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 24 Mars 2013

• #10

Re : Regroupement de date sur une seule cellule

coucou chris,

=D3&"-"&E3 "pèserait" quand même 15 octets...

A+

 

Vote positif 0 Vote négatif

Modeste geedee

XLDnaute Barbatruc

• 25 Mars 2013

• #11

Re : Regroupement de date sur une seule cellule

Bonsour®

il manque :

0+(D3&E3)
(D3&E3) /1
(D3&E3)^1

et aussi
(D3&E3)*ESTREF(JOB75) ' excel 2007 et +
sinon
(D3&E3)*ESTREF(AN2013)

Tréfle de plaie sans tri ...
Comment trouves-tu le temps d'exécution d'une formule ???

 

Dernière édition: 25 Mars 2013

Vote positif 0 Vote négatif

R@chid

XLDnaute Barbatruc

• 25 Mars 2013

• #12

Re : Regroupement de date sur une seule cellule

Bonjour @ tous,

Tréfle de plaie sans tri ...
Comment trouves-tu le temps d'exécution d'une formule ???

Cliquez pour agrandir...

@ GD :
Lien1
Lien2

@ + +

 

Dernière édition: 25 Mars 2013

Vote positif 0 Vote négatif

Modeste geedee

XLDnaute Barbatruc

• 25 Mars 2013

• #13

Re : Regroupement de date sur une seule cellule

Bonsour® Chris , Job75

R@chid à dit:

Bonjour @ tous,

@ GD :
Lien1
Lien2

@ + +

Cliquez pour agrandir...

j'ai quelques difficultés à appréhender les résultats...
l'utilisation de Timer (précision 1 seconde)
ou bien l'utilisation de GetTickCount(précision 1 ms)
ne permet pas à mon sens un résultat fiable à la microseconde ...

VB:

Option Explicit
Declare Function GetTickCount& Lib "kernel32" ()

Sub TpsCalc()
Dim ret1 As Double, ret2 As Double
 Application.Calculation = xlCalculationManual
 ' ----Range("Laplage") contient X fois strictement la meme formule
 Application.ScreenUpdating = False
   ret1 = GetTickCount&
   ActiveSheet.Range("Laplage").Calculate
   ret2 = GetTickCount&
   [A1] = ret1
   [B1] = ret2
Application.ScreenUpdating = True
 MsgBox "par cellule " & Chr(10) & Format((ret2 - ret1) / Range("Laplage").Cells.Count, "0.000000") & " millisec", , Range("Laplage").Cells.Count & "cellules"
End Sub

aprés essais sur des plages de dimensions variables (X fois la même formule)
procure des résultats quelque peu erratiques... ?

 

Pièces jointes

• Capture.JPG

  58.2 KB · Affichages: 83
• Capture.JPG

  58.2 KB · Affichages: 88

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 25 Mars 2013

• #14

Re : Regroupement de date sur une seule cellule

Bonjour le fil,

@ Modeste geedee : pour calculer la durée d'exécution ma macro sur le Lien1 fait 100000 boucles...

Pour le nombre d'octets, le fichier sur ce fil est d'un emploi plus simple :

https://www.excel-downloads.com/threads/nombre-doctets-dune-formule-calcule-par-macro-vba.148601/

A+

 

Vote positif 0 Vote négatif

rodge5895

XLDnaute Occasionnel

• 25 Mars 2013

• #15

Re : Regroupement de date sur une seule cellule

bonsoir et merci pour vos réponses,
celle qui me convenait parfaitement s'agissant d'une fin d mois dans l'exemple est =FIN.MOIS(DATEVAL(D3&"-"&E3);0)
merci chris !!

Rodge

 

Vote positif 0 Vote négatif