For i=0 to Ubound(MonTab)-1 For j=i+1 to Ubound(MonTab) If MonTab(i)=MonTab(j) Then 'Doublon Next Next
Set mondico = CreateObject("Scripting.Dictionary") For i = 0 To 30 If mondico.Exists(TabRessources(i)) Then TabRessources(i) = 0 Else mondico.Add TabRessources(i), TabRessources(i) End If Next
Dim TabHeureD as integer Dim TabHeureF as integer Dim TabRessources as integer For u = 1 To 30 If TabHeureD(u + 1) < TabHeureF(u) And TabRessources(u) = TabRessources(u + 1) Then frmRecapAvantOrdo.TextMatrix(u + 1, 2) = (TabHeureF(u) + 0.5) ElseIf TabHeureD(u + 2) < TabHeureF(u) And TabRessources(u) = TabRessources(u + 2) Then frmRecapAvantOrdo.TextMatrix(u + 2, 2) = (TabHeureF(u) + 0.5) ElseIf TabHeureD(u + 3) < TabHeureF(u) And TabRessources(u) = TabRessources(u + 3) Then frmRecapAvantOrdo.TextMatrix(u + 3, 2) = TabHeureF(u) + 0.5 ElseIf TabHeureD(u + 4) < TabHeureF(u) And TabRessources(u) = TabRessources(u + 4) Then frmRecapAvantOrdo.TextMatrix(u + 4, 2) = TabHeureF(u) + 0.5 . . . . ElseIf TabHeureD(u + 30) < TabHeureF(u) And TabRessources(u) = TabRessources(u + 30) Then frmRecapAvantOrdo.TextMatrix(u + 30, 2) = TabHeureF(u) + 0.5 End If Next u
Dim mondico as string Set mondico = CreateObject("Scripting.Dictionary") For u = 0 To 30 If mondico.Exists(TabRessources(u)) And TabHeureD(u + 1) < TabHeureF(u) Then frmRecapAvantOrdo.TextMatrix(u + i, 2) = TabHeureF(u) + 0.5 'Else 'mondico.Add TabRessources(i), TabRessources(i) End If Next u
Dim TabHeureD as integer Dim TabHeureF as integer Dim TabRessources as integer For u = 1 To 30 If TabHeureD(u + 1) < TabHeureF(u) And TabRessources(u) = TabRessources(u + 1) Then frmRecapAvantOrdo.TextMatrix(u + 1, 2) = (TabHeureF(u) + 0.5) ElseIf TabHeureD(u + 2) < TabHeureF(u) And TabRessources(u) = TabRessources(u + 2) Then frmRecapAvantOrdo.TextMatrix(u + 2, 2) = (TabHeureF(u) + 0.5) ElseIf TabHeureD(u + 3) < TabHeureF(u) And TabRessources(u) = TabRessources(u + 3) Then frmRecapAvantOrdo.TextMatrix(u + 3, 2) = TabHeureF(u) + 0.5 ElseIf TabHeureD(u + 4) < TabHeureF(u) And TabRessources(u) = TabRessources(u + 4) Then frmRecapAvantOrdo.TextMatrix(u + 4, 2) = TabHeureF(u) + 0.5 . . . . ElseIf TabHeureD(u + 30) < TabHeureF(u) And TabRessources(u) = TabRessources(u + 30) Then frmRecapAvantOrdo.TextMatrix(u + 30, 2) = TabHeureF(u) + 0.5 End If Next u
Dim mondico as string Set mondico = CreateObject("Scripting.Dictionary") For u = 0 To 30 If mondico.Exists(TabRessources(u)) And TabHeureD(u + 1) < TabHeureF(u) Then frmRecapAvantOrdo.TextMatrix(u + 1, 2) = TabHeureF(u) + 0.5 'Else 'mondico.Add TabRessources(i), TabRessources(i) End If Next u
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionEn fait j'ai un tableau supposons de taille 30 et je souhaite comparer toutes les valeurs de ce tableau afin de repérer les doublons
Dim TabHeureD as integer Dim TabHeureF as integer Dim TabRessources as integer For u = 1 To 30 If TabHeureD(u + 1) < TabHeureF(u) And TabRessources(u) = TabRessources(u + 1) Then frmRecapAvantOrdo.TextMatrix(u + 1, 2) = (TabHeureF(u) + 0.5) ElseIf TabHeureD(u + 2) < TabHeureF(u) And TabRessources(u) = TabRessources(u + 2) Then frmRecapAvantOrdo.TextMatrix(u + 2, 2) = (TabHeureF(u) + 0.5) ElseIf TabHeureD(u + 3) < TabHeureF(u) And TabRessources(u) = TabRessources(u + 3) Then frmRecapAvantOrdo.TextMatrix(u + 3, 2) = TabHeureF(u) + 0.5 ElseIf TabHeureD(u + 4) < TabHeureF(u) And TabRessources(u) = TabRessources(u + 4) Then frmRecapAvantOrdo.TextMatrix(u + 4, 2) = TabHeureF(u) + 0.5 . . . . ElseIf TabHeureD(u + 30) < TabHeureF(u) And TabRessources(u) = TabRessources(u + 30) Then frmRecapAvantOrdo.TextMatrix(u + 30, 2) = TabHeureF(u) + 0.5 End If Next u
For r = 0 To 29 'UBound(MonTab) - 1 For e = r + 1 To 30 'UBound(MonTab) If TabRessources(r) = TabRessources(e) And TabHeureD(r) < TabHeureF(e) Then frmRecapAvantOrdo.TextMatrix(e, 2) = TabHeureF(e) + 0.5 End If Next e Next r