Discussion :

[choudoudou15]

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 :

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

=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

[mercatog]

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

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

[choudoudou15]

Super merci c'est exactement ce que je recherchais.

Choudoudou15