Aide pour des boucles imbriquees en VBA

[nougitch]

Bonjour,

Je me perds un peu dans quelques boucles imbriquees...
Mon objectif est assez simple. Resumer un tableau en cumulant des montants par vendeur.

Le fichier joint est tres parlant.

Je vous remercie par avance pour votre aide.
Cdt,

 

[Pierrot93]

Re : Aide pour des boucles imbriquees en VBA

Bonjour Nougitch

pourquoi en vba ? un tableau croisé dynamique devrait faire l'affaire, ci joint un essai.

bon après midi
@+

 

[nougitch]

Re : Aide pour des boucles imbriquees en VBA

Salut Pierrot,

Merci pour ta proposition mais justement, j'utilisais avant un tableau dynamique. Comme je le dis dans le fichier, l'exemple reel est bien different, j'ai simplifie pour ne garder que l'essentiel.
Au final, je dois avoir ma variable tableau qui doit contenir les donnees du tableau croise dynamique.

Merci encore.
++

 

[Cousinhub]

Re : Aide pour des boucles imbriquees en VBA

bonjour,

salut Pierrot

peut-être avec ce code :

Sub compta()
With Sheets("Datas")
    .Range("C1:C" & .[C65000].End(xlUp).Row).Name = "vendeurs"
    .Range("C2:C" & .[C65000].End(xlUp).Row).Name = "vendeurs2"
    .Range("B2:B" & .[C65000].End(xlUp).Row).Name = "montants"
On Error Resume Next
    .Range("vendeurs2").Replace What:="#N/A", Replacement:="rien"
On Error GoTo 0
    .Range("vendeurs").AdvancedFilter Action:=xlFilterCopy, CopyToRange:=.Range( _
    "E1"), Unique:=True
    .Range("F2").FormulaR1C1 = "=SUMPRODUCT((vendeurs2=RC[-1])*montants)"
    .Range("F2").AutoFill Destination:=.Range("F2:F" & .[E65000].End(xlUp).Row)
    With .Range("F2:F" & .[E65000].End(xlUp).Row)
        .Value = .Value
        .NumberFormat = "#,##0.00 $"
    End With
End With
End Sub

 

[nougitch]

Re : Aide pour des boucles imbriquees en VBA

Salut Bhbh, Merci pour ta proposition !