Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Microsoft 365 Afficher plusieurs fois les mêmes valeurs

M

moanin

XLDnaute Impliqué
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
 
Trier par date Trier par votes
J

JHA

XLDnaute Barbatruc
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:
Vote positif 0 Vote négatif
M

moanin

XLDnaute Impliqué
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
F

Franc58

XLDnaute Occasionnel
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
Identifiez-vous ou inscrivez-vous pour participer.

Discussions similaires

M
  • Question
Microsoft 365 Problème à une solution de tri erronée
Réponses
2
Affichages
173
TooFatBoy
  • Question
XL 2016 Mise en forme conditionnelle pour une date dépassée de 3 ans par rapport à une autre date
Réponses
1
Affichages
280
JHA
J
M
  • Résolu(e)
XL 2016 VBA - Traitement de données en fonction de plusieurs critères avec Dictionary
2
Réponses
29
Affichages
1 K
Mak_tarmak
M
  • Résolu(e)
Microsoft 365 Masquer des colonnes aux cellules avec valeurs données selon sélection d'une liste déroulante
Réponses
5
Affichages
614
PatFr38
M
  • Question
Microsoft 365 Problème de non-doublons
Réponses
6
Affichages
278
merinos
C
  • Question
XL 2016 rapatrier des informations en "scannant" les onglets d'un fichier excel vers les cellules d'un autre onglet
Réponses
6
Affichages
546
job75
P
  • Question
XL 2013 Comment fusionner plusieurs listes de nombres en un seul classement général
Réponses
4
Affichages
522
pelletim
P
D
  • Question
XL 2016 Extraire plusieurs valeurs avec formule
Réponses
1
Affichages
505
njhub
N
D
  • Question
Microsoft 365 Nombre d’occurrences sur une suite de noms
Réponses
0
Affichages
768
DavidMM
D
O
  • Résolu(e)
XL 2019 Moyenne de valeurs par date à partir d'un tableau
Réponses
4
Affichages
783
Olocsob
O
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…