Discussion :

[misterjuicelink]

Bonjour tout le monde,

je me permets de vous solliciter car j'ai un souci que je n'arrive pas à résoudre car je n'arrive même pas à comprendre le problème...

je souhaite générer une liste de dates de manière un peu artificielle
en gros, je génère un nouveau fichier à partir d'un fichier existant, et je remplace la liste de date en fonction du mois que l'utilisateur souhaite créer

donc j'ai des msgbox qui demandent le mois et l'année souhaitée, ça pas de souci

ensuite, j'execute cette macro

(pour simplifier l'exemple, j'ai figé les valeurs de mois et d'année dans la macro)
j'ai déclaré mes variables, Mois, Année et JourLigneDate en long

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
Sub test()
 
Range("A4:a34").ClearContents
Range("A4").Select
 
 
Mois = 12
Année = 2019
 
JourLigneDate = 1
For LigneDate = 1 To 31
ActiveCell.Value = JourLigneDate & "/" & Mois & "/" & Année
ActiveCell.Offset(1, 0).Select
JourLigneDate = JourLigneDate + 1
Next LigneDate
Range("A4").Select
End Sub

la macro en fait fonctionne correctement dans ce sens que ma liste se génère correctement
en revanche, elle me fait la liste suivante :
12/01/2019 au format date *jj/mm/aaaa
12/02/2019 au format date *jj/mm/aaaa
12/03/2019 au format date *jj/mm/aaaa
12/04/2019 au format date *jj/mm/aaaa
12/05/2019 au format date *jj/mm/aaaa
12/06/2019 au format date *jj/mm/aaaa
12/07/2019 au format date *jj/mm/aaaa
12/08/2019 au format date *jj/mm/aaaa
12/09/2019 au format date *jj/mm/aaaa
12/10/2019 au format date *jj/mm/aaaa
12/11/2019 au format date *jj/mm/aaaa
12/12/2019 au format date *jj/mm/aaaa
13/12/2019 au format standard
14/12/2019 au format standard
15/12/2019 au format standard
16/12/2019 au format standard
...

donc pour résumer, les 12 premieres lignes sont au bon format (car date) mais pas dans le bon ordre (pourquoi il me mets le mois avant le jour alors que le format est le bon???)
et les lignes suivantes sont dans le bon ordre mais pas au bon format...

là je sèche...

si vous avez une méthode plus orthodoxe pour générer une liste de dates en fonction des variables mois et année, je suis preneur

merci beaucoup de votre aide,
julien

[spepok]

Bonjour,

J'écrirai plutot:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ActiveCell.Value = Mois & "/" & JourLigneDate & "/" & Année

Cordialement

[misterjuicelink]

Ben oui, tout simplement...
et là, plus de problème de format !

merci beaucoup !
julien