XL 2016 regroupement des cellules

nouri1 · 27 Juin 2019

bonjour tout le monde

j'ai un tableau qui contient des dates dans une colonne comme suit; 01/05/2019; 01/05/2019; 01/05/2019; 02/05/2019; 02/05/2019; 03/05/2019; 03/05/2019; 03/05/2019; 04/05/2019; 04/05/2019; 04/05/2019; 05/05/2019; 05/05/2019; 05/05/2019 et je veux créer une autre colonne (en me basant à cette colonne) qui contient les dates une seule foie; comme suit : 01/05/2019; 02/05/2019; 03/05/2019; 04/05/2019; 05/05/2019

cordialement

Robert · 27 Juin 2019

Bonjour Nouri, bonjour le forum,

Le code ci-dessous (à adapter) renvoie dans la colonne B la liste des dates de la colonne A sans doublons :

VB:

Sub Macro1()
Dim O As Worksheet
Dim DL As Integer
Dim TV As Variant
Dim D As Object

Set O = Worksheets("Feuil1")
DL = O.Cells(Application.Rows.Count, "A").End(xlUp).Row
O.Columns(2).ClearContents
TV = O.Range("A1:A" & DL)
Set D = CreateObject("Scripting.Dictionary")
For I = 1 To DL
    D(TV(I, 1)) = ""
Next I
O.Cells(1, "B").Resize(D.Count, 1) = Application.Transpose(D.keys)
End Sub

XL 2016 regroupement des cellules

nouri1

XLDnaute Junior

Robert

XLDnaute Barbatruc

Discussions similaires