Discussion :

[maximedeflines]

Je suis débutant en macro ;( J'ai un tableau dans une colonne il y a des noms (un nom peut revenir plusieurs fois dans la colonne) .Dans une autre colonne j'ai des nombres . Je cherche une macro qui me permettrai d'afficher dans un autre tableau le nom de chaque équipe avec son cumul de montant Suis-je assez clair ??
merci d'avance

[Krovax]

Bonjour,
A adapter il te donnera le principe
Et non tu n'est pas clair du tout enfin je crois avoir compris que tu voulais que l'on fasse tout a ta place alors voila

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
 
Dim c As Range
Dim cherche As String, firstAddress As String
Dim somme As Long
cherche = InputBox("On cherche quoi?")
With Worksheets("Feuil1").Range("a1:a500")
    Set c = .Find(cherche)
    If Not c Is Nothing Then
        firstAddress = c.Address
        Do
            somme = c.Offset(0, 1) + somme
            Set c = .FindNext(c)
        Loop While Not c Is Nothing And c.Address <> firstAddress
    End If
End With
With Worksheets("feuil2")
.Cells(Range("A65536").End(xlUp).Row + 1, 1) = cherche
.Cells(Range("A65536").End(xlUp).Row + 1, 2) = somme
End With

[laetitia]

bonjour maximedeflines l 'ami Krovax le forum
suppose les données en colonne A valeur en colonne B copy en colonne E & F a adapter a tes besoins.

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
Sub Essai()
 Dim c, d, x As Variant, M As Object
Application.ScreenUpdating = False
Set M = CreateObject("Scripting.Dictionary")
For Each c In Range("A2", [a65000].End(xlUp))
M(c.Value) = IIf(M.exists(c.Value), M(c.Value) + 1, 1)
Next c
[e2].Resize(M.Count, 1) = Application.Transpose(M.keys)
For Each c In Range("e2", [e65000].End(xlUp))
For Each d In Range("a2", [a65000].End(xlUp))
If c = d Then x = x + d.Offset(0, 1).Value
Next d: Range("f65536").End(xlUp)(2) = x: x = 0: Next c
'ligne ci dessous pour mettre dans l'ordre
'[e2:f65536].Sort Key1:=Range("e2"), Order1:=xlAscending, Header:=xlGuess
End Sub

[Antoniom]

Hello tout le monde,

Entièrement d'accord avec toi Krovax !

Donc, ai aussi fait un truc au pif, comme ça tu auras l'embarra du choix Maximedeflines.

Si l'une de ces méthodes ne te convient pas, suis sûr que tu vas revenir en disant un truc genre :

"Ca ne joue pas, car je voulais que blablabla..."

Pour ça, tu dois comprendre qu'en déposant un fichier joint avec des demandes précises, non seulement tu auras de l'aide plus rapidement, mais aussi des réponses plus adéquates !

T'inquiète, la majorité des gens, c'est pareil. (Y compris moi, ça m'eut sans doute arrivé)

Cdt, Antoniom.