Discussion :

[JulienDo]

Bonjour,

Par avance, je vous remercie de votre aide.
J'aimerais sous excel, à partir d'un bouton générer dynamiquement (sur un nouvel onglet) un tableau comportant des valeurs moyennes.
Tableau initial:

item	t1	t2
a	1	2
b	3	3
a	1,5	2,5
b	3	4
c	1	1
b	3	4
...

Tableau généré dynamiquement (sur un nouvel onglet):

item	t1	t2
a	1,25	2,25
b	3	3,67
c	1	1
...

Merci
Julien

[BENNASR]

bonsoir
du bricolage d'un débutant VBA à tester

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
27
28
29
30
31
32
33
34
35
36
37
38
39
40
Sub test()
Application.ScreenUpdating = False
With Sheets("Feuil2")
.Cells.ClearContents
.Cells(1, 1).Resize(1, 3) = Array(Sheets("feuil1").Range("A1").Value, Sheets("feuil1").Range("B1").Value, Sheets("feuil1").Range("C1").Value)
End With
Dim T
Set dico = CreateObject("Scripting.dictionary")
With Sheets("Feuil1")
        dernl = .Range("A" & .Rows.Count).End(xlUp).Row
                For j = 2 To dernl
                 x = .Range("A" & j)
                 dico(x) = dico(x)
                Next j
End With
With Sheets("feuil2")
.Activate
.Range("A2").Resize(dico.Count) = Application.Transpose(dico.keys)
 dernligne = .Range("A" & .Rows.Count).End(xlUp).Row
 Set plage = Sheets("feuil1").Range("A2: A" & Sheets("feuil1").Range("A" & .Rows.Count).End(xlUp).Row)
 L = 0
 For i = 2 To dernligne
 For Each cel In plage
 If .Cells(i, "A") = cel.Value Then
 Total = Total + Sheets("feuil1").Cells(cel.Row, 2)
 Total2 = Total2 + Sheets("feuil1").Cells(cel.Row, 3)
 L = L + 1
  .Cells(i, "B").Value = Total / L
  .Cells(i, "C").Value = Total2 / L
End If
Next cel
 
Total = 0
Total2 = 0
L = 0
Next i
 End With
  Application.ScreenUpdating = True
  MsgBox ("well done  !!!")
End Sub

[JulienDo]

Bonjour Abdou,

Merci beaucoup pour ton aide et ton code.
Il fonctionne. La fonction CreateObject fonctionne bien sous Windows, et pas sous MacOS.
Bonne journée.

[mercatog]

Bonjour,
Un TCD est fait pour ça. sans une ligne de code.

C'est Excel

[JulienDo]

Bonjour mercatog,

Tu as raison. Merci.

Julien