condition Max d'une boucle vba excel
Bonjour,
Je me permets d’écrire afin de demander l'aide sur mon code vba excel.
Je cherche à ajouter une condition de max d'une colonne dans une boucle :
tableau 1 : T1_colonne 1 T1_colonne 2
tableau 2 : T2_colonne 1 T2_colonne 2 (date)
résultat : ajouter une 3e colonne dans le tableau 1 avec condition si (T1_colonne 1 =T2_colonne 1 ) avec la dernière date de T2_colonne 2 (max des dates )
Merci par avance.
mon code actuel
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
| Sub calcul_test()
Dim i&, j&, aa, bb, x, As Variant
fin = 1000
fin1 = 5000
aa = Feuil1.Range("A2:L" & fin)
bb = Feuil7.Range("A2:N" & fin1)
For i = 1 To UBound(aa)
x = 0
If aa(i, 2) <> "" Then
For j = 1 To UBound(bb)
If (UCase(aa(i, 2)) Like UCase(bb(j, 14))) And (bb(j, 1) Like "*test*") Then x = bb(j, 15)
Next j
Feuil1.Cells(i + 1, 15) = x
End If
Next i
End Sub |
