Erreur regroupement
Bonjour,
quand je suis sur la feuil1 et je lance la macro àa fonctionne, et quand je suis sur la feuil2 ça fonctionne mal.
sachant que le output dois etre afficher sur la feuil2
voici mon code :
Sub regroupement()
Set d1 = CreateObject("Scripting.Dictionary")
a = Sheets("feuil1").Range("A2:E" & [a65000].End(xlUp).Row)
j = 0
For i = LBound(a) To UBound(a)
If Not d1.exists(a(i, 1)) Then j = j + 1: d1(a(i, 1)) = j
Next i
Dim b(): ReDim b(1 To d1.Count, 1 To UBound(a, 2))
For ligne = LBound(a) To UBound(a)
p = d1(a(ligne, 1))
b(p, 1) = a(ligne, 1)
b(p, 2) = a(ligne, 2)
b(p, 3) = a(ligne, 3)
b(p, 4) = b(p, 4) + a(ligne, 4)
b(p, 5) = b(p, 5) + a(ligne, 5)
Next ligne
Sheets("feuil2").Range("A2").Resize(UBound(b), UBound(b, 2)) = b
End Subet merci d'avance
Bonjour,
quand je suis sur la feuil1 et je lance la macro àa fonctionne, et quand je suis sur la feuil2 ça fonctionne mal.
Quand tu dis un phrase comme ça, ça veut dire qu'il faut préciser sur quelle feuille sont tes plages de cellules Range, car si tu ne le précises pas, ça prend les plages sur la feuille actuelle, c'est comme pour une formule dans la barre de formule, si tu écris B1 en Feuil1, ça mettra la valeur de B1 sur la Feuil1, si tu mets Feuil2!B1, ça renverra la cellule B1 de la Feuil2.
Pour ton code, c'est pareil
ton problème vient de la ligne:
a = Sheets("feuil1").Range("A2:E" & [a65000].End(xlUp).Row)car tu veux faire une plage de cellule sur la feuille 1, mais tu utilise un range [a65000] sur lequel tu ne précises pas la feuille, du coup la ligne vient de la feuille 2, il faut par exemple écrire:
a = Sheets("feuil1").Range("A2:E" & Sheets("feuil1").Range("a" & rows.count).End(xlUp).Row)