zebanx
XLDnaute Accro
Bonjour à tous
J'utilise en Scripting Dictionary ce (super) code très utile de Laetitia90/Job75 ( ) qui fonctionne parfaitement sur une seule feuille de données.
Mais comment faudrait-il SVP le modifier à nouveau pour que le dictionnaire s'incrémente sur plusieurs feuilles sans avoir besoin de compiler sur une feuille tampon les données ?
Merci pour vos remarques et vos suggestions à venir.
Xl-ment
zebanx
J'utilise en Scripting Dictionary ce (super) code très utile de Laetitia90/Job75 ( ) qui fonctionne parfaitement sur une seule feuille de données.
Mais comment faudrait-il SVP le modifier à nouveau pour que le dictionnaire s'incrémente sur plusieurs feuilles sans avoir besoin de compiler sur une feuille tampon les données ?
Merci pour vos remarques et vos suggestions à venir.
VB:
Sub code_SD_1feuilledetravail()
' code transmis par laetitia90 (+ Job75)
Dim t(), i As Long, m As Object, C As Byte, z
Set m = CreateObject("Scripting.Dictionary")
'--constitution
Sheets("FEUILLE1").Select
t = Range("a2:f" & Cells(Rows.Count, 1).End(3).Row).Value2
For i = 1 To UBound(t)
z = t(i, 1) & t(i, 2)
If m.Exists(z) Then
For C = 5 To 6: t(m(z), C - 2) = t(m(z), C - 2) + t(i, C): Next C
t(m(z), 5) = t(m(z), 5) + 1
Else
x = x + 1
For C = 1 To 2: t(x, C) = t(i, C): Next C
For C = 5 To 6: t(x, C - 2) = t(i, C): Next C
m(z) = x
t(x, 5) = 1
End If
Next i
'--restitution
Sheets(1).[A2].Resize(x, 5) = t
End Sub
Xl-ment
zebanx