Gestion Date 00/01/1900 en VBA

1 pièce(s) jointe(s)

Bonjour,

Dans la macro ci dessous, j'ai un souci dans la gestion de la date #00/01/1900#

Je souhaiterais que dans le cas d'une date #00/01/1900# , le résultat vient mettre "1" dans le mois en cours

Par exemple, aujourd'hui, nous sommes le 08/08/2012 , on a "1" dans la colonne entre "01/08/2012" et "31/08/2012"

Je vous ai mis le fichier excel pour illustrer ma demande

merci d'avance pour aide

-----------------------------------------------
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 Sub suivi_charge_4() Dim Lg As Long Dim LgDer As Long Dim ClDer As Long Dim I As Long Dim J As Long Sheets("Feuil1").Select LgDer = Range("A65536").End(xlUp).Row fin = Range("A" & Cells.Rows.Count).End(xlUp).Row ClDer = Range("IV1").End(xlToLeft).Column Date_MAD_realisee = 10 For I = 4 To fin For J = 13 To 53 If CDate(Cells(I, Date_MAD_realisee)) = "00/01/1900" Then If CDate(Cells(I, Date)) >= CDate(Cells(1, J)) And CDate(Cells(I, Date)) <= CDate(Cells(2, J)) Then Cells(I, J) = 1 End If End If Next J Next I End Sub

Bonjour,

Citation:

CDate(Cells(I, Date))

Tu semble utiliser une variable Date pour déterminer la colonne, il est fortement déconseillé d'utiliser des instructions VBA pour nommer des variables.

dans ton fichier, tu as mis des 1 dans les colonnes Juillet et Aout 2012 alors que je ne vois pas de date dans cette période sur les lignes.

Bonjour,

Citation:

Je souhaiterais que dans le cas d'une date #00/01/1900# , le résultat vient mettre "1" dans le mois en cours

Si tu passes les cellules de la colonne J au format standard, tu t’apercevras que la date du 00/01/1900 correspond en fait au numéro de série 0, ce qui permet de traduire la condition par l’expression

Code:

If .Cells(I, Date_MAD_realisee) = 0

Citation:

aujourd'hui, nous sommes le 08/08/2012 , on a "1" dans la colonne entre "01/08/2012" et "31/08/2012"

Cette deuxième condition se traduit par

Code:

Date >= CDate(.Cells(1, J)) And Date <= CDate(.Cells(2, J))

Ce qui donne pour le code complet
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 Sub suivi_charge_4() Dim Lg As Long Dim DerLig As Long Dim DerCol As Long Dim I As Long Dim J As Long With Worksheets("Feuil1") DerLig = .Range("A" & .Cells.Rows.Count).End(xlUp).Row DerCol = .Range("IV1").End(xlToLeft).Column Date_MAD_realisee = 10 For I = 4 To DerLig For J = 13 To 53 If .Cells(I, Date_MAD_realisee) = 0 Then If Date >= CDate(.Cells(1, J)) And Date <= CDate(.Cells(2, J)) Then .Cells(I, J) = 1 'toto = J - 1 'If toto < 13 Then toto = 13 '.Range(.Cells(I, toto), .Cells(I, J)) = 1 End If End If Next J Next I End With End Sub
Cordialement.

Super merci pour votre aide et vos propositions de solution