For i = 0 To dt1.Rows.Count - 1 For j = 0 To dt2.Rows.Count - 1 If dt1.Rows(i)("Réf1") = dt2.Rows(j)("Réf2") Then If dt1.Rows(i)("Tarif Site HT") IsNot Nothing Then If (dt1.Rows(i)("Tarif Site HT")) <> dt2.Rows(j)("Tarif Site HT") Then dr = dt3.NewRow() dr("Réf2") = dt2.Rows(j)("Référence Site") dr("Désignation") = dt2.Rows(j)("Désignation Site") dr("Tarif Site HT 2") = Math.Round(CDbl(dt2... dr("Tarif Site HT 1") = Math.Round(CDbl... dt3.Rows.Add(dr) End If End If End If Application.DoEvents() Next j Next i
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question