Macro VBA: gestion Date

Version imprimable

07/01/2011, 22h04
choudoudou15

1 pièce(s) jointe(s)

Macro VBA: gestion Date

Bonjour,

Je vous explose ma problèmatique, sur les 3 premières colonnes du classeur excel, j'ai 3 dates : date 1 , date 2, date 3 que je voudrais voir apparaître dans un tableau mensuel en fonction de la date indiqué

Je vous joins la formule excel que j'ai écrite et qui fonctionne pour mieux schématiser le résultat . J'ai mis aussi en pièce jointe un exemple dans un classeur excel.

Voici la formule ci dessous que je voudrais transformer en language VBA

Code:

=SI(ET($A4>DATEVAL(D$1);$A4<DATEVAL(D$2));"A";SI(ET($B4>DATEVAL(D$1);$B4<DATEVAL(D$2));"B";SI(ET($C4>DATEVAL(D$1);$C4<DATEVAL(D$2));"C";0)))

Merci d'avance pour votre aide

yann

La traduction formalisée par code peut se faire comme ceci

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
Sub Test()
Dim LastLig As Long, i As Long
Dim LastCol As Integer, j As Integer
 
Application.ScreenUpdating = False
With Sheets("Feuil1")
   LastLig = .Cells(.Rows.Count, "A").End(xlUp).Row
   LastCol = .Cells(3, .Columns.Count).End(xlToLeft).Column
   For i = 4 To LastLig
      For j = 4 To LastCol
         If DateDiff("d", .Cells(i, 1).Value, .Cells(1, j).Value) < 0 And DateDiff("d", .Cells(i, 1).Value, .Cells(2, j).Value) > 0 Then
            .Cells(i, j).Value = "A"
         Else
            If DateDiff("d", .Cells(i, 2).Value, .Cells(1, j).Value) < 0 And DateDiff("d", .Cells(i, 2).Value, .Cells(2, j).Value) > 0 Then
               .Cells(i, j).Value = "B"
            Else
               If DateDiff("d", .Cells(i, 3).Value, .Cells(1, j).Value) < 0 And DateDiff("d", .Cells(i, 3).Value, .Cells(2, j).Value) > 0 Then
                  .Cells(i, j).Value = "C"
               Else
                  .Cells(i, j).Value = 0
               End If
            End If
         End If
      Next j
   Next i
End With
End Sub

08/01/2011, 08h19
choudoudou15

Super merci c'est exactement ce que je recherchais.

Choudoudou15