bonjour le forum et bon dimanche,
J'ai le code ci-dessous, qui me recopie une listbox à 4 colonnes, dans l'onglet "imprimer" à partir de la cellule A8. ( A8:A65536 = date jj/mm/aaaa)
With ListBox1
If Not .ListCount = 0 Then 'si listbox n'est pas vide
Sheets("imprimer").Range("A8").Resize(.ListCount, .ColumnCount) = .List
End If
End With
Le soucis est qu'une fois copié dans l'onglet :
de A8 à A13 le format est mm/jj/aaaa format cellule = Date
et après A14 le format est bon jj/mm/aaaa format cellule = Standard
Que faire pour obtenir le format jj/mm/aaaa de A8:A65536 ?
Merci.
J'ai le code ci-dessous, qui me recopie une listbox à 4 colonnes, dans l'onglet "imprimer" à partir de la cellule A8. ( A8:A65536 = date jj/mm/aaaa)
With ListBox1
If Not .ListCount = 0 Then 'si listbox n'est pas vide
Sheets("imprimer").Range("A8").Resize(.ListCount, .ColumnCount) = .List
End If
End With
Le soucis est qu'une fois copié dans l'onglet :
de A8 à A13 le format est mm/jj/aaaa format cellule = Date
et après A14 le format est bon jj/mm/aaaa format cellule = Standard
Que faire pour obtenir le format jj/mm/aaaa de A8:A65536 ?
Merci.