Discussion :

[telecom_16]

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

[Nicolas JACQUIN]

Bonjour,
juste en commençant par le début

Code :

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

Dim i&, j&, aa, bb, x, Nb_cell_BYT&, Nb_cell_SFR As Variant

??
à lire http://silkyroad.developpez.com/VBA/LesVariables/
Merci d'utiliser les balises codes pour une meilleure lisibilité