Discussion :

[choudoudou15]

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 :

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

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