Microsoft 365 Afficher plusieurs fois les mêmes valeurs

[moanin]

Bonsoir à tous😉



J’ai une suite de dates, et je voudrais que chacune de ces dates soit affichée trois fois dans cette liste.

Comment pourrais-je faire ?

Merci

17/03/2024
17/03/2024
17/03/2024
16/03/2024
16/03/2024
16/03/2024
15/03/2024
15/03/2024
15/03/2024
14/03/2024
14/03/2024
14/03/2024

 

[mapomme]

Bonjour @moanin 🙂 ,

Si la liste est en colonne A (A1 à A9), une formule pour Excel 365 en C1 :
=TRIER(LET(uniq;UNIQUE(A1:A9);ASSEMB.V(uniq;uniq;uniq));1;-1)

 

[JHA]

Bonjour à tous,

Un essai avec Power Query.
Après modification du tableau d'origine en colonne "A", il faut actualiser le tableau "vert" réalisé avec power query colonne "C".

JHA

 

[moanin]

Bonjour et merci, à tous les deux 😉

-Pour Powerf Query, ce n’est pas possible, car j’ai une version expurgée d’iPad et n’ai pas PowerQuery.
-Pour la formule de mapomme j’ai un souci avec la formule,voir la capture d’écran ci-dessous,:

 

[Efgé]

Bonjour à tous
Ce n'est pas A:58 mais A58 qu'il faut utiliser...
Cordialement

 

[Franc58]

Bonjour, pour le fun, une solution vba. Je considère que la liste démarre en A1 et je copie les valeurs en colonne B, ensuite je trie.

Sub CopierDates3Fois()
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Sheets("Feuil1") 'Remplacez "Feuil1" par le nom de votre feuille

    Dim dict As Object
    Set dict = CreateObject("Scripting.Dictionary")

    Dim i As Long
    For i = 1 To ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
            If Not dict.Exists(ws.Cells(i, "A").value) Then
                dict.Add ws.Cells(i, "A").value, 1
            End If
    Next i
    
    Dim j As Byte
    Dim k As Long
    k = 0

    For i = 0 To dict.Count - 1
        Dim key As Variant
        key = dict.Keys()(i) '
        For j = 1 To 3 'Boucle pour écrire la date trois fois dans la nouvelle colonne
                k = k + 1
                ws.Cells(k, "B").value = key
        Next j
    Next i

    Dim lastRow As Long
    lastRow = ws.Cells(ws.Rows.Count, "B").End(xlUp).Row 'Trouve la dernière ligne remplie dans la nouvelle colonne

    With ws.Sort 'Trie la nouvelle colonne
        .SetRange ws.Range("B1:B" & lastRow)
        .Header = xlNo 'Définit la première ligne comme une ligne de données à trier
        .MatchCase = False
        .Orientation = xlTopToBottom
        .Apply
    End With
End Sub

 

[TooFatBoy]

Bonjour,

pour le fun, une solution vba

Ce ne sera vraiment que pour le fun car il n'a pas de VBA sur son truc...
(https://excel-downloads.com/threads...t-apres-une-recherche.20076489/#post-20586210)

 

[moanin]

Un autre souci malgré la modif conseillée 🙁

 

[TooFatBoy]

Je tente, on ne sait jamais... : mets ta cellule au format date jj/mm/aa.

 

[moanin]

Les 2 colonnes sont au format 14/03/12

 

[TooFatBoy]

J'aurais tenté...

 

[Efgé]

Re
45435 au format Date donne le 23/05/2024, j'dis ça...
Cordialement

 

[mapomme]

Les 2 colonnes sont au format 14/03/12

Si D2 était bien au format date que tu dis, la cellule D2 afficherait bien "23/05/24" et pas "45435"

 

[moanin]

J’ai rectifié mais il y a des erreurs.

 

[TooFatBoy]

J’ai rectifié mais il y a des erreurs.

Il y a des erreurs avant ou après que tu aies rectifié ???

Tu as rectifié quoi ?
Il y a des erreurs où ?