Transposer des cellules sans doublons

[pierrof]

Bonjour à tous

J'aimerais transposer des cellules contenant des dates avec l'heure, vers une autre feuille en supprimant les doublons de dates (sans tenir compte des heures).

Je laisse un fichier exemple pour plus d'information.

Merci de vos conseils.

Cordialement

 

[JHA]

Bonjour à tous,

Par formules matricielles

JHA

 

[pierrof]

Bonjour JHA,

Merci de ta réponse mais ce n'est pas vraiement ça que j'attends. Je souhaite un code VBA, et ne pas avoir de doublons sur la date (ne pas tenir compte de l'heure dans la suppression des doublons).
Merci quand même.

Cordialement

 

[pierrof]

Bonjour

Malgré mes recherches et différents test je n'arrive toujours pas à trouver un code VBA pour réaliser ma requête.

Merci

Cordialement

 

[chris]

Bonjour à tous

Faisable par PowerQuery, intégré à partir de 2016 en addon sur 2010 et 2013

Il faut évidemment utiliser le format xlsx et non un format périmé depuis 12 ans

 

[pierrof]

Bonjour Chris,

Merci de ta réponse, mais je cherche avec un code VBA...

Cordialement

 

[Dranreb]

Bonjour.
Ceci est possible en utilisant mon complément GigIdx.xlam :

Option Explicit
Private Sub CommandButton1_Click()
   Dim TDon(), TRés(), L&, C&, Sal As SsGr, Dat As SsGr
   TDon = ColUti(Feuil1.[A2:C2]).Value
   For L = 1 To UBound(TDon, 1)
      TDon(L, 2) = Int(CDate(TDon(L, 1))): Next L
   ReDim TRés(1 To 500, 1 To 50)
   L = 0
   For Each Sal In Gigogne(TDon, 3, 2)
      L = L + 1: C = 4
      TRés(L, 1) = Sal.Id
      For Each Dat In Sal.Co
         C = C + 1: TRés(L, C) = Dat.Id
         Next Dat, Sal
   Feuil2.[A2].Resize(500, 50).Value = TRés
   End Sub

 

[pierrof]

Bonjour Dranreb,

Merci beaucoup, cela dépasse mes compétences...je vais essayer de l'adapter.

Cordialement

 

[Dranreb]

Qu'auriez vous à adapter pour le moment ?
La procédure indiquée ne donne-t-elle pas le résultat attendu ?
J'ai oublié de préciser qu'après installation du complément son projet VBA GigIdx doit être coché dans les références du projet de votre classeur.