Discussion :

[bert35]

Bonjour,

Dans la réalisation de ma première macro, je souhaite à un moment, créér autant de feuilles de calcul que j'ai de mois de mesure.
Je m'exxplique: si dans ma feuille de mesures, ma mesure commence le 10 mai et s'arrete le 20 septembre de la même année, je souhaite ouvrir 5 feuilles qui correspondront aux mois de mai-juin-...-septembre.
J'utilise la fonction DateDiff mais j'arrive à 4 mois au lieu de 5. Comment procéder?
Pour l'instant, comme je suis complètement novice en VBA, j'ai procédé comme ceci:

Code :

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

1
2
3
4
5
6
7
8
Sub zone_test()
Dim date1 As Date
Dim date2 As Date
date1 = InputBox("Indiquez le mois et l'année du début d'acquisition sous la forme MM/AAAA")
date2 = InputBox("Indiquez le mois et l'année de fin d'acquisition sous la forme MM/AAAA")
MsgBox DateDiff("m", date1, date2)
 
End Sub

[bert35]

J'ai fait cette bidouille. Ca marche mais au point de vue "beauté", je ne sais pas si c'est top

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
Sub zone_test()
Dim date1 As Date
Dim date2 As Date
Dim dureeacq As Long
date1 = InputBox("Indiquez le mois et l'année du début d'acquisition sous la forme MM/AAAA")
date2 = InputBox("Indiquez le mois et l'année de fin d'acquisition sous la forme MM/AAAA")
dureeacq = DateDiff("m", date1, date2) + 1
MsgBox ("La durée d'acquisition est de " & dureeacq & " mois ")
 
End Sub