XL 2016 VBA format date

Damien0507

XLDnaute Nouveau
Bonjour,

J'aurais besoins de vos lumières pour un petit truc qui me chagrine:

Je copie des infos d'une listbox dans une feuille excel.
Soucis: ma date se transforme en texte...... alors qu'à la base elle est bien en Date

Pouvez-vous m'aider SVP?

Merci d'avance.

Damien.

Ci-dessous la macro:


Private Sub CommandButtonEXP_Click()

Dim i As Integer
Dim x As Integer

For i = 0 To ListBox1.ListCount - 1
x = Range("a500000").End(xlUp).Row + 1



If Me.ListBox1.Selected(i) = True Then

Sheets("Planning").Cells(x, 3) = ListBox1.List(i, 0)
Sheets("Planning").Cells(x, 4) = ListBox1.List(i, 1)
Sheets("Planning").Cells(x, 5) = ListBox1.List(i, 2)
Sheets("Planning").Cells(x, 6) = ListBox1.List(i, 3)
Sheets("Planning").Cells(x, 7) = ListBox1.List(i, 4)
Sheets("Planning").Cells(x, 8) = ListBox1.List(i, 5)
Sheets("Planning").Cells(x, 9) = ListBox1.List(i, 6)
Sheets("Planning").Cells(x, 10) = ListBox1.List(i, 7)
Sheets("Planning").Cells(x, 11) = ListBox1.List(i, 8)
Sheets("Planning").Cells(x, 12) = ListBox1.List(i, 9)
Sheets("Planning").Cells(x, 13) = ListBox1.List(i, 10)


End If
Next i


End Sub
 

vgendron

XLDnaute Barbatruc
Hello

pour le pb de formule qui ne se recopie pas automatiquement sur toute la colonne, il faut aller dans les options d'excel
Options Excel.png
 

Damien0507

XLDnaute Nouveau
Hello

pour le pb de formule qui ne se recopie pas automatiquement sur toute la colonne, il faut aller dans les options d'excelRegarde la pièce jointe 1174389
Oups, ça ne fonctionne pas. Car le code VBA renseigne seulement le résultat du calcul de la cellule quand je clique sur le bouton importer le personnel de l'onglet calendrier

Je me permets de poser également 2 autres questions:
Dans le planning quand on fait exporter la date s'affiche nickel grâce à vous, par contre lorsque je fais ajouter personnel dans le planning, j'ai le même soucis qu'auparavant au noveau de la date. J'ai essayé de copier le code du bouton exporter que vous aviez retravaillé dans le code du bouton ajouter personnel et bien comme je ne suis pas doué... ça ne marche pas....

J'aurais besoin également d'un bouton imprimer sur les feuilles calendrier et fiches présence qui permet de générer un PDF avec rappel des 5 premières lignes pour les fiches présences sur chaque feuille et de l'entête de colonne pour le calendrier.

J'en demande beaucoup.... je sais...
 

Pièces jointes

  • TEST (2).xlsm
    153.6 KB · Affichages: 3

vgendron

XLDnaute Barbatruc
pour mettre une formule dans une cellule, il faut utiliser
Cellule.formula=formule

regarde en PJ

PS: je rentre de vacances.. et .. je ne suis plus du tout dans l'esprit du fichier: je ne sais plus à quoi il sert et ce qu'il fait..
si tu as des questions, précises bien sur quelle feuille tu veux travailler, les actions etc etc....
PS2: j'ai repris le dernier fichier dans lequel j'avais modifié les noms de controles.
et j'ai repris ta nouvelle feuille "Acceuil"
 

Pièces jointes

  • TEST Damien V2.xlsm
    149.7 KB · Affichages: 7

Discussions similaires

Réponses
4
Affichages
417

Statistiques des forums

Discussions
315 088
Messages
2 116 089
Membres
112 658
dernier inscrit
doro 76