Regroupement de date sur une seule cellule

[rodge5895]

Bonjour,
Est il possible de regrouper automatiquement les cellules jaunes mois et annee dans une seule en bleu selon exemple joint ?
merci pour votre aide
Rodge

 

[chris]

Re : Regroupement de date sur une seule cellule

Bonjour

Si le 1er te va

=DATEVAL(D3&"-"&E3)

sinon

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

 

[Modeste geedee]

Re : Regroupement de date sur une seule cellule

Bonsour®

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

 

[R@chid]

Re : Regroupement de date sur une seule cellule

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

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

et pas FIN.MOIS()...

une autre pour le fun,

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

@ + +

 

[chris]

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

 

[R@chid]

Re : Regroupement de date sur une seule cellule

Bonjour @ tous,

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

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

@ + +

 

[Modeste geedee]

Re : Regroupement de date sur une seule cellule

Bonsour®

Bonjour chris
une autre pour le fun,

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

toujours pour le fun alors :

=1*(1&D3&E3)

 

[job75]

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+

 

[chris]

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 ...

 

[job75]

Re : Regroupement de date sur une seule cellule

coucou chris,

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

A+

 

[Modeste geedee]

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 ???

 

[R@chid]

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 ???

@ GD :
Lien1
Lien2

@ + +

 

[Modeste geedee]

Re : Regroupement de date sur une seule cellule

Bonsour® Chris , Job75

Bonjour @ tous,

@ GD :
Lien1
Lien2

@ + +

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 ...

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... ?

 

[job75]

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+

 

[rodge5895]

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