Date inversée VBA

[bernaroff]

Bonjour à tous,

J'ai un souci avec ma macro. La Feuil 1 (Points 10) m'est donnée, cependant si vous regarder certaine date lors du lancement de la macro, les jours et les mois sont inversés, et je ne comprends pas pourquoi.

Quelqu'un aurait-il une solution comme copier le texte et non la valeur ou je ne sais trop quoi pour concerver les dates telles qu'elles apparaissent dans la première page

Merci
Bernaroff

 

[Pierrot93]

Re : Date inversée VBA

Bonjour,

vite fait en passant, pas ouvert ton fichier, mais regarde peut être du coté de la fonction "CDate".... touche de fonction F1 dans l'aide vba, te précisera l'utilisation..

bonne journée
@+

 

[job75]

Re : Date inversée VBA

Bonjour Bernaroff, salut Pierrot 🙂

Au lieu de se compliquer la vie avec :

Sheets("Puissance périodisée").Cells(4 + l, 1).Value = Sheets("Points 10").Cells(debut + 2, 1).Text

écrire bêtement :

Sheets("Puissance périodisée").Cells(4 + l, 1).Value = Sheets("Points 10").Cells(debut + 2, 1)

A+

 

[bernaroff]

Re : Date inversée VBA

re:

effectivement ça marche, j'étais parti sur un copié/coller pour résoudre mon problème, ça marchait mais voilà ce que j'obtenais:
Sheets("Points 10").Activate
Range(Cells(debut + 2, 1), Cells(debut + 2, 1)).Select
Selection.Copy
Sheets("Puissance périodisée").Activate
Range(Cells(4 + l, 1), Cells(4 + l, 1)).Select
ActiveSheet.Paste
Sheets("Points 10").Activate
Range(Cells(i - 1, 1), Cells(i - 1, 1)).Select
Selection.Copy
Sheets("Puissance périodisée").Activate
Range(Cells(4 + l, 3), Cells(4 + l, 3)).Select
ActiveSheet.Paste

Merci beaucoup pour la solution
Cordialement
Benraroff