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"

[m@tix]

En effet ça semble fonctionner ! Merci !
Par contre, je ne saisis pas comment agit la fonction Format().. Quelques explications seraient les bienvenues..
Si par exemple je voulais retourner le mois en toutes lettres ?

[bastou93]

Alors pour cela le plus simple c'est d'aller dans Excel tu prends une cellule au pif et tu test

tu verra que par exemple pour 6 si tu met numberformat="jjj" tu aura vend (vendredi)

pour 06/01/2010 si tu met "jjj" tu auras le jour qui sera différent de 2011 "mmm" janv... etc

Test sur ta cellule clique droit format cellule personnalisé

[AlainTech]

Bonjour à tous,

Que de chipotages alors qu'il existe des fonctions spécifiques pour le traitement des dates dans VBA.

Une petite fonction:

Code :

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

1
2
3
4
Function PreviousMonth(dDate As Date) As String
  ' Returns the month before the one of the date in parameter, formatted as 2 digits
  PreviousMonth = Format(DateAdd("m", -1, dDate), "mm")
End Function

Et un petit test de cette fonction:

Code :

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

1
2
3
4
5
Sub test()
  Dim strMonth As String
  strMonth = PreviousMonth(Date)
  MsgBox strMonth
End Sub

je ne saisis pas comment agit la fonction Format().. Quelques explications seraient les bienvenues..

La touche F1 est ton amie...

[bastou93]

Je me doutais bien qu'il y avait mieux

Merci AlainTech

[m@tix]

Merci pour le complément AlainTech !