Discussion :

[duplaly]

Bonjour
je joins mon fichier et ce que je cherche à faire, c'est d'écrire une macro pour extraire par prénom et nom les lignes corresonpondantes et faire le total pour chaque personne.
je voudrais que la macro puisse me calculer le montant total de chaque personne sur ma liste automatiquement et renvoyer le résultat sur une autre feuille.
toute aide sera appréciée.
Merci

[ben_ghost]

Désolé mais j'ai essayé de voir ce que tu essaye de faire mais ... je ne vois pas.

Ton titre est Recherche et faire la somme...

Tu ne parle pas de recherche dans ton sujet, mais simplement d'un calcul réalisable en formule. Mais je pense que c'est plus complexe non?

[duplaly]

Je suis désolé si ce n'est pas clair. En cliquant sur la macro, j'aimerais avoir le montant total de chaque employé affiché dans une feuille.
Merci

[casefayere]

Bonsoir,

je ne peux pas ouvrir ton fichier mais sur un fichier bidon, essaies ce code.
Tu mets des noms en col A feuil1, des chiffres en col B execute la macro et vois le résultat en feuille 2 (pense à en créer une, si besoin)

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
Option Explicit
Public derlg As Long
Private Sub CommandButton1_Click()
With Sheets("feuil1")
   derlg = .Range("a" & .Rows.Count).End(xlUp).Row
   construire .Range("A2:B" & derlg)
End With
End Sub
'___________________________________________________________
Sub construire(plg As Range)
Dim recup As Collection, tb(), cel As Range, i As Long
Set recup = New Collection
On Error Resume Next
With Sheets("feuil1")
   For Each cel In .Range("A2:A" & derlg)
      If cel <> "" Then
         recup.Add cel, CStr(cel)
         If Err = 0 Then
            ReDim Preserve tb(i)
            tb(i) = recup(i + 1)
            i = i + 1
         End If
            'Efface toutes les valeurs de l'objet Err.
         Err.Clear
      End If
   Next cel
End With
Set recup = Nothing
For i = 0 To UBound(tb)
   Sheets("feuil2").Range("A" & i + 2) = tb(i)
   Sheets("feuil2").Range("B" & i + 2) = Application.WorksheetFunction.SumIf(plg, tb(i), plg.Columns(2))
Next i
End Sub

[mercatog]

Bonsoir
Un tableau croisé dynamique est fait pour ça.

[casefayere]

Un tableau croisé dynamique est fait pour ça.

sauf que personnellement, j'évite les TCD qui prennent de la place en taille, suivant ce qui est demandé. J'ai déjà remplacé sur des fichiers, mes TCD par une macro et ceux-ci etaient bien allégés (plus de la moitié), maintenant je pense que c'est à duplaly de faire son choix.

bonne soirée