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

[jfontaine]

Bonjour,

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.

[gFZT82]

Bonjour,

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 :

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

If .Cells(I, Date_MAD_realisee) = 0

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 :

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

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

Ce qui donne pour le code complet

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
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.

[choudoudou15]

Super merci pour votre aide et vos propositions de solution