Discussion :

[le_dabbabi]

Bonjour à tous, forum bonjour,

J'ai un tableau qui se présente ainsi

A090	JL20	C12910	C12910-01N	B75	40
A090	JL20	C12910	C12910-01N	B75	40
A090	JL20	C12910	C12910-01N	B75	40
A090	JL20	C12910	C12910-01N	B75	40
A090	JL20	C12910	C12910-01N	C75	40
A090	JL20	C12910	C12910-01N	C75	40
A090	JL20	C12910	C12910-01N	D75	40
A090	JL20	C12910	C12910-01N	E75	40
A090	JL20	C12910	C12910-01N	E75	40

Je souhaiterais faire la somme et la concaténation de ce tableau afin d'obtenir un autre comme suie :

A090	JL20	C12910	C12910-01N	B75	160
A090	JL20	C12910	C12910-01N	C75	80
A090	JL20	C12910	C12910-01N	D75	40
A090	JL20	C12910	C12910-01N	E75	80

J’en appel à votre aimable soutien si quelqu’un avait la solution
Merci

[a_diard]

Bonjour

Si j'ai bien compris tu devrais avoir un total de 160 pour les 4 premières lignes ??????


Joyaux Noel.

[le_dabbabi]

D'abord merci pour votre réponse,
La 5e colonne indique le nom d'un ouvrier.
La 6e colonne indique la quantité travaillée par ce dernier.
L'idée, c'est de parcourir la 5e colonne, supprimer les doublons et mettre la somme dans la 6e colonne. Autrement dit, c'est d'avoir la quantité totale travaillée par cet ouvrier.

Merci et joyeux noël.

[BENNASR]

sbeh el khir, bonjour à tous
essaye avec :

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
Sub Testtt()
Application.ScreenUpdating = False 'juste pour arrêter affichage écran et améliorer le temps d'exécution du macro
 
'************************************************************************************************************************
Dim unique As New Collection
Dim i As Integer
On Error Resume Next
For Each Cel In Range("E1:E" & [E65000].End(xlUp).Row)
If Cells(Cel.Row, 5) <> "" Then
    unique.Add Cel.Value, CStr(Cel.Value)
    End If
Next Cel
With Sheets("feuil2")
.Activate
On Error GoTo 0
For i = 1 To unique.Count
.Cells(i, 5) = unique(i)
Next i
dernligne = .Range("E" & Rows.Count).End(xlUp).Row
TABLO = Sheets("feuil1").Range("A1", "F" & Sheets("feuil1").Range("F" & Sheets("feuil1").Rows.Count).End(xlUp).Row)
Dim somme As Variant
For j = 1 To dernligne
somme = 0
For i = LBound(TABLO, 1) To UBound(TABLO, 1)
             If .Cells(j, 5) = TABLO(i, 5) Then
                somme = somme + TABLO(i, 6)
                .Cells(j, 6) = somme
                .Cells(j, 1) = TABLO(i, 1)
                .Cells(j, 2) = TABLO(i, 2)
                .Cells(j, 3) = TABLO(i, 3)
                .Cells(j, 4) = TABLO(i, 4)
 
             End If
  Next i
  Next j
 End With
Sheets("feuil2").Select
 
MsgBox ("Regroupement effectué avec succès .... ")
Application.ScreenUpdating = True
End Sub

fichier à tester

[le_dabbabi]

fichier à tester

Tout d'abord ,veillez excusée, je ne suis pas un informaticien , je suis qu'un débutant en VBA
Merci beaucoup ça fonctionne très bien juste un petit détails que j'ai oublié de le dire dé le début.
Le fichier que vous venez de me l'envoyer fonctionner très bien pour un tableau mono référence la 4e colonne, c'est la colonne des références.
Exemple :

Tableau initial

A090	Jl20	C12910	C12910-01N	B75	40
A090	Jl20	C12910	C12910-01N	B75	40
A090	Jl20	C12910	C12910-011	B75	40
A090	Jl20	C12910	C12910-011	B75	40
A090	Jl20	C12910	C12910-011	D75	40
A090	Jl20	C12910	C12910-011	D75	40
A090	Jl20	C12910	C12910-011	E75	40
A090	Jl20	C15710	C15710-011	D75	40
A090	Jl20	C15710	C15710-011	D75	40
A090	Jl20	C15710	C15710-011	D75	40

Tableau final :

A090	Jl20	C12910	C12910-01N	B75	80
A090	Jl20	C12910	C12910-011	B75	80
A090	Jl20	C12910	C12910-011	D75	80
A090	Jl20	C12910	C12910-011	E75	40
A090	Jl20	C15710	C15710-011	D75	120

J’espère que j'ai bien expliqué et que je n'ai rien oublié

[BENNASR]

re

je ne suis pas un informaticien , je suis qu'un débutant en VBA

Moi aussi autodidacte
C15710-011 D75 40
c'est pas 120 ????

La dernière ligne du tableau final normalement 120 non???

[Theze]

Bonjour,

Tu es sûr de ton second tableau, qu'en première ligne le total est 40 plutôt que 160 ?

[le_dabbabi]

Bonjour,

Tu es sûr de ton second tableau, qu'en première ligne le total est 40 plutôt que 160 ?

Oui, vous avez raison, je viens de la corriger merci.

[Patrice740]

Bonjour,

Ne serait-il pas plus simple d'utiliser un TCD ?
Pas besoin de macro ...

[le_dabbabi]

Bonjour,

Ne serait-il pas plus simple d'utiliser un TCD ?
Pas besoin de macro ...

Merci pour votre proposition , malheureusement je ne peux pas utiliser un TDC vu que ce tableau va subir une autre modification .