Marco pour Trier et regrouper por établir une feuille récap?

Bonjour.
Fais un rapport de tableau croisé dynamique, avec VBA si tu veux.
Cordialement.
Daniel
<fredgarlon@free.fr> a écrit dans le message de news:
1130498215.354077.15480@o13g2000cwo.googlegroups.com...
Bonjour,
J'aimerais avec une macro vb faire une sélection de données sur une
feuil1 vers une feuille récap.
Comment faire pour regrouper par Nom les "réponses justes" et
d'inscrire le total (additionner result et nombre)..) dans la col
nombre de réponses ..."les réponses fausses" par nom et le total...
Les Noms sont aléatoires...et donc variable!
A B C D E F
NOM Niveau Résult nombre Type Erreur
1 gérard 52 12 Réponses justes
2 gérard 44 14 Réponses justes
3 gérard 28 170 Hors limite
4 Martin 40 59 Réponses fausses
5 Martin 47 109 Hors limite
6 Toto 45 5 Réponses fausses
7 Toto 31 2 Réponses fausses

Pour donner :

gérard 124 26 Réponses justes
170 Hors limite
Martin 87 59 Réponses fausses
109 Hors limite
Toto 76 7 Réponses fausses



Merci!

Bon j'ai eu une solution vb sur un autre forum...par porcinet82
Merci à tous!

Sub macro()
Dim i As Byte, j As Byte
Dim Indice As Integer, Nb_rep As Integer
j = 2

Sheets("Feuil1").Select
ActiveSheet.UsedRange.Select
Selection.Sort Key1:=Range("A1"), Order1:=xlAscending, Header:=xlYes, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Selection.Copy
Sheets("RécapFin").Select
Range("A1").Select
ActiveSheet.Paste
Columns("B:C").Select
Selection.Delete

For i = 2 To Range("A65536").End(xlUp).Row
Do While Cells(j, 1).Value = Cells(j + 1, 1).Value
If Cells(j + 1, 1).Value = "" Then Exit Sub
Indice = Cells(j, 2).Value + Indice
Nb_rep = Cells(j, 3).Value + Nb_rep
If Cells(j + 1, 3).Value <> "" Then
Rows(j).Delete
Else
j = j + 1
End If
Loop
Indice = Cells(j, 2).Value + Indice
Nb_rep = Cells(j, 3).Value + Nb_rep
Cells(i, 2).Value = Indice
Cells(i, 3).Value = Nb_rep
Cells(i + 1, 2).Value = ""
Cells(i + 1, 3).Value = ""
Indice = 0
Nb_rep = 0
j = j + 1
i = i + 1
Next i
End Sub

Bonjour,
J'aimerais avec une macro vb faire une sélection de données sur une
feuil1 vers une feuille récap.
Comment faire pour regrouper par Nom les "réponses justes" et
d'inscrire le total (additionner result et nombre)..) dans la col
nombre de réponses ..."les réponses fausses" par nom et le total...
Les Noms sont aléatoires...et donc variable!
A B C D E F
NOM Niveau Résult nombre Type Erreur
1 gérard 52 12 Réponses justes
2 gérard 44 14 Réponses justes
3 gérard 28 170 Hors limite
4 Martin 40 59 Réponses fausses
5 Martin 47 109 Hors limite
6 Toto 45 5 Réponses fausses
7 Toto 31 2 Réponses fausses

Pour donner :

gérard 124 26 Réponses justes
170 Hors limite
Martin 87 59 Réponses fausses
109 Hors limite
Toto 76 7 Réponses fausses



Merci!