Date inversée VBA

bernaroff · 29 Juillet 2011

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 · 29 Juillet 2011

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 · 29 Juillet 2011

Re : Date inversée VBA

Bonjour Bernaroff, salut Pierrot

Au lieu de se compliquer la vie avec :

Code:

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

écrire bêtement :

Code:

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

A+

bernaroff · 29 Juillet 2011

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

Date inversée VBA

bernaroff

XLDnaute Junior

Pièces jointes

Pierrot93

XLDnaute Barbatruc

job75

XLDnaute Barbatruc

bernaroff

XLDnaute Junior

Discussions similaires