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