Extraction Valeurs ListBox dans Nouveau Classeur Excel

[Jo]

Bonjour !

Vous m'avez déjà beaucoup aidé dans le passé sur divers projets sous VBA et je vous en remercie.

Je ne parviens pas à réaliser un code qui me parait assez simple mais je bloque juste à la fin.

C'est assez simple :

1/ J'ai un UserForm avec une ListBox alimentée
2/ J'ai créé un bouton "Extraction Feuille Excel"
3/ Je souhaite réaliser ces tâches lors du clic sur ce bouton :

- Copier toutes les valeurs de la ListBox (12 Colonnes / 1200 lignes)
- Ouverture d'un nouveau fichier Excel vierge (Juste ouvert pas enregistré)
- Coller toutes les valeurs de la ListBox sur les 12 premières colonnes de ce fichier ouvert

Pas compliqué non ?

Là où je bloque de mon côté, c'est que je veux que cela soit un fichier temporaire vierge juste ouvert et pas sauvegardé. L'utilisateur pourra ensuite s'il le souhaite sauvegarder ce fichier...

Merci pour votre aide précieuse !

Bonne journée à tous,

 

[thebenoit59]

Re : Extraction Valeurs ListBox dans Nouveau Classeur Excel

Bonjour Jo.
Pourrais-tu fournir un fichier afin de travailler dessus ?

 

[Jo]

Re : Extraction Valeurs ListBox dans Nouveau Classeur Excel

Bonjour Benoit,

Je viens de créer celui-ci.

Merci !

 

[thebenoit59]

Re : Extraction Valeurs ListBox dans Nouveau Classeur Excel

Ce code fonctionne :

Private Sub CommandButton1_Click()
Dim WkNouveau As Workbook, ShNouveau As Worksheet
Set WkNouveau = Workbooks.Add
Set ShNouveau = WkNouveau.Sheets(1)
ShNouveau.Name = "Base"
With ShNouveau
    .Cells(1, 1).Resize(ListBox1.ListCount, 1).Value = ListBox1.List
End With
End Sub

 

[Jo]

Re : Extraction Valeurs ListBox dans Nouveau Classeur Excel

Super merci beaucoup ça fonctionne parfaitement !

Il y a juste un petit problème de copier/coller de date.
Ma ListBox est alimentée sur une colonne de Dates.
Lors du copier/coller dans la feuille Excel il me copie des dates en format standard (OK) et d'autres en format date (Erronnées). (Voir fichier joint)

Comment faire pour lui dire de me copier/coller le tout en format standard ?

Merci bcp !!

 

[thebenoit59]

Re : Extraction Valeurs ListBox dans Nouveau Classeur Excel

Peux-tu fournir la colonne alimentant ton UF ?

 

[Jo]

Re : Extraction Valeurs ListBox dans Nouveau Classeur Excel

Il s'agit de la 6ème colonne.
Cela vient de la conversion du format date Excel/VBA en français/américain.
Il convertit les dates en format américain jusqu'au 12 du mois puis en format français au delà puisque pas possible.

Merci beaucoup pour ton aide !!

 

[Jo]

Re : Extraction Valeurs ListBox dans Nouveau Classeur Excel

Je cherche du coup la ligne de commande qui permet de copier la 6ème colonne en format "valeur"
Ou
Une commande qui force le format de date pour le conserver en format dd/mm/yyyy

Merci !

 

[thebenoit59]

Re : Extraction Valeurs ListBox dans Nouveau Classeur Excel

Je dois perdre la vue ... mais je ne trouve pas de 6ème colonne dans les fichiers du fil.

 

[Jo]

Re : Extraction Valeurs ListBox dans Nouveau Classeur Excel

Bonjour Benoit,

Merci pour ton attention et ton aide ...

Tu as résolu mon 1er problème de suite !

Voici mon 2ème souci (Cf fichier joint) :
- Lors de l'extraction des dates de la ListBox sur la feuille Excel
- Les dates du 1 au 12 du mois sont au format américain mm/dd/yyyy
- Les dates du 13 au 31 du mois sont au format français dd/mm/yyyy

Comment tout faire apparaître en format français ?
J'avais pensé :
- Faire une commande pour "forcer" le copier/coller des dates en "dur"
- Faire une commande qui traduit le format américain en format français

Merci de ton aide !

Bonne journée à tous,

 

[ChTi160]

Re : Extraction Valeurs ListBox dans Nouveau Classeur Excel

Bonjour Jo
le fil ,Le Forum
peut être comme ceux ci une possibilité parmi d'autres

Private Sub CommandButton1_Click()

Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
Dim x As Integer
Dim WkNouveau As Workbook, ShNouveau As Worksheet
Set WkNouveau = Workbooks.Add
Set ShNouveau = WkNouveau.Sheets(1)
ShNouveau.Name = "BASE"
With Me.ListBox1 
For x = 1 To Me.ListBox1.ListCount
ShNouveau.Cells(x, 1) = Format(.List(x - 1, 0), "00000")
Next x
End With
ShNouveau.Columns(1).NumberFormat = "dd/mm/yyyy"
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True

Unload Me

End Sub

bonne journée
Amicalement
Jean Marie

 

[thebenoit59]

Re : Extraction Valeurs ListBox dans Nouveau Classeur Excel

Bonjour Jo.

Tu peux essayer ainsi :

 .Cells(x, 1) = CDate(Me.ListBox1.List(x - 1, 0))

Edit: Bonjour Chti.

 

[Jo]

Re : Extraction Valeurs ListBox dans Nouveau Classeur Excel

Un grand merci à vous 2 !!!
A bientôt sur le forum