Microsoft 365 Afficher plusieurs fois les mêmes valeurs

mapomme

XLDnaute Barbatruc

Supporter XLD

• 19 Mars 2024

• #2

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)

 

Pièces jointes

• moanin- 3 fois les mêmes dates- v1.xlsx

  11.6 KB · Affichages: 6

Vote positif 0 Vote négatif

J

JHA

XLDnaute Barbatruc

• 19 Mars 2024

• #3

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

 

Pièces jointes

• Date Moanin.xlsx

  17 KB · Affichages: 1

Dernière édition: 19 Mars 2024

Vote positif 0 Vote négatif

M

moanin

XLDnaute Accro

• 19 Mars 2024

• #4

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,:

 

Vote positif 0 Vote négatif

Efgé

XLDnaute Barbatruc

• 19 Mars 2024

• #5

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

 

Vote positif 0 Vote négatif

F

Franc58

XLDnaute Occasionnel

• 19 Mars 2024

• #6

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.

VB:

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

 

Vote positif 0 Vote négatif

TooFatBoy

XLDnaute Barbatruc

• 19 Mars 2024

• #7

Bonjour,

Franc58 à dit:

pour le fun, une solution vba

Cliquez pour agrandir...

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)

 

Dernière édition: 20 Mars 2024

Vote positif 0 Vote négatif

M

moanin

XLDnaute Accro

• 19 Mars 2024

• #8

Un autre souci malgré la modif conseillée

 

Vote positif 0 Vote négatif

TooFatBoy

XLDnaute Barbatruc

• 19 Mars 2024

• #9

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

 

Dernière édition: 19 Mars 2024

Vote positif 0 Vote négatif

M

moanin

XLDnaute Accro

• 19 Mars 2024

• #10

Les 2 colonnes sont au format 14/03/12

 

Vote positif 0 Vote négatif

TooFatBoy

XLDnaute Barbatruc

• 19 Mars 2024

• #11

J'aurais tenté...

 

Vote positif 0 Vote négatif

Efgé

XLDnaute Barbatruc

• 19 Mars 2024

• #12

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

 

Vote positif 0 Vote négatif

mapomme

XLDnaute Barbatruc

Supporter XLD

• 19 Mars 2024

• #13

moanin à dit:

Les 2 colonnes sont au format 14/03/12

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif

M

moanin

XLDnaute Accro

• 19 Mars 2024

• #14

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

 

Vote positif 0 Vote négatif

TooFatBoy

XLDnaute Barbatruc

• 19 Mars 2024

• #15

moanin à dit:

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

Cliquez pour agrandir...

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

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

 

Vote positif 0 Vote négatif