Discussion :

[m@tix]

Bonjour,

Je cherche à récupérer l'indice du mois précédent l'actuel, mais sous la forme xx. Par exemple, aujourd'hui, je souhaiterais récupérer 06. Avec Month (Date) ou Month (Now), on parvient à récupérer 7 (aujourd'hui), mais pas 07 (et pas 06 évidemment). Auriez-vous une astuce pour parvenir à cela ?

Merci d'avance.

[bastou93]

Bonjour,

J'ai deux idée a voir pas testé:

1) Tu récupère le jour + le mois et ensuite tu met au format "mm"

(tester sous excel: une cellule = 01/06 puis format>>personnaliser "mm" sa donne bien 06)

2) si test si ta valeur ici 6 < 10 si oui alors tu rajoute un 0 devant.

Voila je vois que sa de mon coté mais ya sans doute mieux

Si tu choisis une d'elle et tu as des problèmes n'hésites pas

Bastien

[m@tix]

Merci pour tes conseils Bastou93 !

Concernant ta première méthode, sais-tu quelle est la commande VBA pour mettre au format mm stp ?

[bastou93]

Merci pour tes conseils Bastou93 !

Concernant ta première méthode, sais-tu quelle est la commande VBA pour mettre au format mm stp ?

Oui sans soucis tiens:

Code :

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

1
2
Range("A1").value = Cdate("01/06")
Range("A1").NumberFormat = "mm"

[m@tix]

Merci je vais tester !

Perso j'avais testé:

Code :

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

1
2
3
Dim c As String
c = Month (Date)
c = Format (c, "mm")

Et curieusement, cela me renvoie 01 ! Alors qu'en faisant du pas à pas, c vaut bien 7 après l'exécution de la première ligne... Comment ça se fait ?

Au passage aussi, pour obtenir le mois d'avant (ce que j'aimerais), on fait comment ?

Edit: je viens d'essayer ta technique, erreur avec Objet requis sur

Code :

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

c.NumberFormat = "mm"

[bastou93]

Enfaite il passe à 01 car il prend 06 comme le jour voici ce que j'ai trouvé c'est du bidouillage

Code :

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

1
2
Range("A1") =  month(Cdate("01/06/2010"))
Range("A1").NumberFormat = "dd"