Discussion :

[Rosees]

Bonjour,

J'ai réalisé une macro excel me permettant d'extraire les données d'un tableau (qui ne sont que des chiffres). J'aimerais faire la somme (par client) de tous ces nombres afin de n'avoir qu'une ligne par client. Comment pourrais-je faire ceci?

En résumé j'aurais :

Numéro Client ----------------------------------------- Somme
1 --------------------------------------------------- 10
2 ------------------------------------------------------11
Etc...

[VinceVBA]

Bonjour,

Si tu peux mettre ta macro ou ton fichier excel en PJ, ça serait plus simple pour t'aider.

[Rosees]

Désolé on me dit que fichier n'est pas valide...
Ci-dessous ma macro :

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
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
Sub extract()
Set ws2 = wb.Worksheets(1) 'crée un nouvel onglet
Set onglet2 = Sheets.Add
onglet2.Name = "Récapitulatif" 'nomme l'onglet
' feuille des clients
Set ws1 = Worksheets("Référence")
' i ligne client en cours
i = 4
' première ligne avec numéro de client en cours
plc = 4
' numéro de client en cours
nplc = ws1.Cells(plc, 2)
' on boucle sur les lignes clients
While ws1.Cells(i, 2) <> ""
' si numéro de client trouvé sur la ligne <> numéro de client en cours
If ws1.Cells(i, 2) <> nplc Then
 'on ajoute une nouvelle feuille
Set ws2 = Worksheets.Add
 ws2.Name = nplc
 'on y copie les lignes avec ce numéro de clients
ws1.Rows(plc & ":" & i - 1).Copy ws2.Cells(1, 1)
 ' on prend note du nouveau numéro de client et de son numéro de prmière ligne
plc = i
 nplc = ws1.Cells(i, 2)
End If
' on prend la ligne client suivante
i = i + 1
Wend
' traitement pour le dernier client
If i > plc + 1 Then
  'on ajoute une nouvelle feuille
Set ws2 = Worksheets.Add
 ws2.Name = nplc
 'on y copie les lignes avec ce numéro de clients
ws1.Rows(plc & ":" & i - 1).Copy ws2.Cells(3, 1)
Sheets("Feuil1").Select
 Rows("3:3").Select
    Selection.Copy
    Sheets(1).Select
    Range("A1").Select
    Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=False
    Columns("G:G").Delete Shift:=xlToLeft
    Columns("G:G").Delete Shift:=xlToLeft
    Columns("G:G").Delete Shift:=xlToLeft
    Range("A1").Select
    ActiveCell.Value = ("Applicant / Donneur d'ordre")
    Range("B1").Select
    ActiveCell.Value = ("Applicant name : Nom du donneur d'ordre")
    Range("C1").Select
    ActiveCell.Value = ("Qty IP Trunk / Qté IP Trunk")
    Range("D1").Select
    ActiveCell.Value = ("Service IP Trunk")
    Range("D2").Value = ("3EY98995AA")
    Range("D3").Value = ("3EY98995AA")
    Range("E1").Select
    ActiveCell.Value = ("Qty IP Users / Qté IP Users")
    Range("F1").Select
    ActiveCell.Value = ("Service IP Users")
    Range("F2").Value = ("3EY98994AA")
    Range("F3").Value = ("3EY98994AA")
End If
Set ws1 = Nothing
Set ws2 = Nothing
End Sub