code vba avec variable

TESTE AVANT DE POSER LA QUESTION !!!!!
Arghhhhhhh......

testou wrote:

Bsr
For i= 2006 to 2010
Dim var As Date
var = "31.03.i"

est ce que ce code permet de faire varier la variable i de 2006 à
2010 dans var.

merci

Bonsoir Testou,

'----------------------------------
Sub Test()

'A )Déclaration des variables, constantes
Dim LaDate As Date
Dim Mois As Integer
Dim DernierJour As Integer

'Initialisation des variables au besoin
'Détermine le mois que tu désires
M = 3 'Mois de mars

'Pour tenir compte du fait que le mois de
'Février n'a pas toujours le même nombre
'de jour, la variable "DernierJour" se
'charge de l'évaluer

'La routine elle-même.

For i = 2006 To 2010
DernierJour = Day(DateSerial(i, M + 1, 0))
'"DD/MM/YY" représente le format que prendra
'la date. à toi d'adapter selon tes préférences
'et le séparateur "/" des arguments de dates
'définies dans le panneau de configuration de
'windows (options régionales)...sinon, il se peut
'que tu obtiennes un "mismatch" entre le contenu
'de la variable et son type
LaDate = Format(DateSerial(i, 3, DernierJour), "DD/MM/YY")
Next

End Sub
'----------------------------------


Salutations!



"testou" <testou@discussions.microsoft.com> a écrit dans le message de news:
05419484-444E-426A-BE35-59765CBCDD6F@microsoft.com...
Bsr
For i= 2006 to 2010
Dim var As Date
var = "31.03.i"

est ce que ce code permet de faire varier la variable i de 2006 à 2010 dans
var.

merci

merci

Bonsoir Testou,

'----------------------------------
Sub Test()

'A )Déclaration des variables, constantes
Dim LaDate As Date
Dim Mois As Integer
Dim DernierJour As Integer

'Initialisation des variables au besoin
'Détermine le mois que tu désires
M = 3 'Mois de mars

'Pour tenir compte du fait que le mois de
'Février n'a pas toujours le même nombre
'de jour, la variable "DernierJour" se
'charge de l'évaluer

'La routine elle-même.

For i = 2006 To 2010
DernierJour = Day(DateSerial(i, M + 1, 0))
'"DD/MM/YY" représente le format que prendra
'la date. à toi d'adapter selon tes préférences
'et le séparateur "/" des arguments de dates
'définies dans le panneau de configuration de
'windows (options régionales)...sinon, il se peut
'que tu obtiennes un "mismatch" entre le contenu
'de la variable et son type
LaDate = Format(DateSerial(i, 3, DernierJour), "DD/MM/YY")
Next

End Sub
'----------------------------------


Salutations!



"testou" <testou@discussions.microsoft.com> a écrit dans le message de news:
05419484-444E-426A-BE35-59765CBCDD6F@microsoft.com...
Bsr
For i= 2006 to 2010
Dim var As Date
var = "31.03.i"

est ce que ce code permet de faire varier la variable i de 2006 à 2010 dans
var.

merci