Discussion :

[vincedu74]

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

[joe.levrai]

Bonjour,


utilises la fonction Format(MaDate, LeFormat)

Ici, je formate la date pour afficher uniquement l'année sur deux chiffres

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub UserForm_Initialize()
    Me.ListView1.ListItems.Add , , Format("11/01/2016", "dd/mm/yy")
End Sub

Voici une excellente publication sur la fonction Format()
http://jpcheck.developpez.com/tutori...rmat-dans-vba/

Et un rappel sur la gestion des dates et des problématiques qu'on peut rencontrer quand on n'est pas au fait du fonctionnement
http://didier-gonard.developpez.com/...-excel-et-vba/

[vincedu74]

Merci Joe.levrai

J'ai tenté ton code et ça ne fonctionne pas...
Il me fait change le formalisme jusqu'à supprimer toute la ligne...

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
19
20
21
22
23
24
25
26
27
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
          Me.AffichageSelection.SubitemsItems (6), , Format("11/01/2016", "dd/mm/yy")
 
                   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(8) = c.Offset(, 7)
                        .SubItems(9) = c.Offset(, 8)
                       ' Me.ListView1.ListItems.Add , , Format("11/01/2016", "dd/mm/yy")
                       '.ListSubItems.Add , , FormatNumber("[$-409]d-mmm-yy;@")
                        '.SubItems(6) = NumberFormat = "[$-409]d-mmm-yy;@"
                        '.SubItems(7) = NumberFormat = "[$-409]d-mmm-yy;@"
                        .SubItems(6) = c.Offset(, 5)
                        .SubItems(7) = c.Offset(, 6)
 
                End With
               End If
            Next c
        End If

[joe.levrai]

Quel est la partie de ton code où tu effectues la copie vers un nouveau classeur ?

C'est lors de cette copie qu'il faudrait plutôt utiliser Format()

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Private Sub ListView1_Click()
    ' au clic dans ListView1
    ' on copie le premier élément dans la cellule active
    ActiveCell.Value = Format(Me.ListView1.ListItems(1), "dd-mmmm-yy")
End Sub

[vincedu74]

Je pense que si je respecte le bon formalisme pour le code suivant, j'aurai résolu mes problèmes.


Est ce que quelqu'un peut m'aider ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
With Me.AffichageSelection.ListItems.Add(, , c.Value)
                       .SubItems(1) = c
 
 
                        .SubItems(6).Add , , Format(c.Offset(, 5), "[$-409]d-mmm-yy;@")

[joe.levrai]

Le format que j'ai utilisé dans mon dernier message n'était pas celui que tu avais spécifié dans ton premier message ?

01/02/2017 devient 01-Février-17

[vincedu74]

Oui bien sur que ca doit etre le bon format... Mon souci c'est que je n'arrive pas à insérer ce formalisme dans mon code. Mon code crash à chaque fois...

Si je l'insère au niveau du collage il interprète la valeur comme du texte et ca ne fonctionne pas.

[joe.levrai]

Je ne vois toujours pas le code de ton "collage vers une feuille" comme je l'ai abordé au message #4

[vincedu74]

Je colle ainsi

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
  For i = 1 To AffichageSelection.ListItems.Count
 Cells(i + 3, 1).Value = AffichageSelection.ListItems(i) '-->> la valeur en première colonne
  For j = 1 To AffichageSelection.ColumnHeaders.Count - 1
  Cells(i + 3, j).Value = AffichageSelection.ListItems(i).SubItems(j)  ' -->> les valeurs en colonnes suivantes
    Next

[joe.levrai]

Je maintiens, il y a donc le code qu'il te faut (tout du moins sa mécanique) dans le message #4

[Docmarti]

Bonjour Joe.

C'est pas certain que VBA reconnaisse une date americaine dans "10-janvier-17" avec

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ActiveCell.Value = Format(Me.ListView1.ListItems(1), "dd-mmmm-yy")

Par contre, avec

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ActiveCell.Value = Format(Me.ListView1.ListItems(1), "yyyy-mm-dd")

VBA reconnaitra une date americaine dans "2017-01-10" (Salut Robert) et pourra la convertir en valeur numerique de type Date.

[Invité]

Bonjour

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Me.AffichageSelection.ColumnCount=Plage1.Columns.Count
Me.AffichageSelection.liste =Plage1

[unparia]

Bonjour
Je n'interviens que pour signaler que la seconde ligne de ces deux lignes de code (message n° 3)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
If c.Row > Plage1.Row Then
          Me.AffichageSelection.SubitemsItems (6), , Format("11/01/2016", "dd/mm/yy")

ne correspond à rien. Format est une fonction et non une méthode.