Bonjour à tous,
J'ai une liste de date copiées collées avec la formule Cdate.

Cette liste de date est ensuite mise dans une listview et ensuite copier dans un nouveau classeur via ce code.
Le format du classeur est un format date de type 12-March-17.


Lorsque je mets les valeurs dans la listview, je fais fonctionner ce code.


Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Set Plage1 = Worksheets(Active).Range("A12:A" & LastLig).SpecialCells(xlCellTypeVisible)
       If Plage1.Count > 1 Then
            For Each c In Plage1
               If c.Row > Plage1.Row Then
                   With Me.AffichageSelection.ListItems.Add(, , c.Value)
                        .SubItems(1) = c
                        .SubItems(2) = c.Offset(, 1)
                        .SubItems(3) = c.Offset(, 2)
                        .SubItems(4) = c.Offset(, 3)
                        .SubItems(5) = c.Offset(, 4)
                        .SubItems(6) = c.Offset(, 5)
                        .SubItems(7) = c.Offset(, 6)
                        .SubItems(8) = c.Offset(, 7)
                        .SubItems(9) = c.Offset(, 8)
                End With
               End If
            Next c
        End If
Les valeurs sont considérées comme du texte.

Est ce que quelqu'un connait la modification à apporter ? SVP



En vous remerciant beaucoup