Somme prod en macro

[olive323]

Bonjour à tous

j'ai reussi avec somme prod à faire pratiquement ce que je souhaite SAUF POUR LE PAYS. Quelqu'un a t il une idée pour faire la meme chose en macro en prenant en compte que les lignes qui contiennent FR (colonne G)

Merci de votre aide

Cordialement

Olive323

 

[olive323]

Re : Somme prod en macro

Personne pour une petite piste de VBA ?

 

[Misange]

Re : Somme prod en macro

Bonjour
C'est à dire que si tu EXPLIQUAIS ce que tu cherches à faire au lieu de dire "j'ai reussi avec somme prod à faire pratiquement ce que je souhaite SAUF POUR LE PAYS"....
Pour utiliser une formule matricielle (sommeprod en est une même si elle ne se valide pas par ctril+maj+entrée) utilise la fonction evaluate en VBA
Ce lien n'existe plus

 

[jpb388]

Re : Somme prod en macro

Bonjour a tous
ligne 8 feuille détail paris perte 34 or le 34 se trouve dans vol et pas dans perte
création colonne ou erreur ??

 

[JCGL]

Re : Somme prod en macro

Bonjour à tous,

Il me semble que tu as des erreurs dans tes SOMMEPROD(), ils se référent tous à VOL en $D$1.

A + à tous

 

[olive323]

Re : Somme prod en macro

Bonjour a tous

c'est exact il y a une erreur.

merci

 

[JCGL]

Re : Somme prod en macro

Bonjour à tous,

Voir le fichier joint avec liste de validation pour les pays et format personnalisé pour les 0 (réduction de la formule)

A + à tous

 

[olive323]

Re : Somme prod en macro

MERCI pour ce retour

 

[olive323]

Re : Somme prod en macro

Je souhaite faire exactement ce que fait la formule de JCGL mais en VBA. Je clic un bouton et les données ce transfert dans le tableau recap

Merci a vous

 

[JCGL]

Re : Somme prod en macro

Bonjour à tous,

Un essai basé sur mon dernier fichier déposé : application des formules et un Copier / Coller Spécial Valeurs.

Option Explicit
Sub Test()
     
With Application
        .ScreenUpdating = 0
        .Calculation = xlCalculationManual
    End With

 Range("D3:G100").Formula = _
    "=SUMPRODUCT((Détail!R2C22:R1000C22=RC3)*(Détail!R2C7:R1000C7=R1C1)*(Détail!R2C29:R1000C29=R1C4)*(Détail!R2C12:R1000C12=R2C))"
    Range("H3:H100").Formula = "=SUM(RC[-4]:RC[-1])"
    Range("I3:L100").Formula = _
    "=SUMPRODUCT((Détail!R2C22:R1000C22=RC3)*(Détail!R2C7:R1000C7=R1C1)*(Détail!R2C29:R1000C29=R1C9)*(Détail!R2C12:R1000C12=R2C))"
    Range("M3:M100").Formula = "=SUM(RC[-4]:RC[-1])"
    Range("N3:W100").Formula = _
    "=SUMPRODUCT((Détail!R2C22:R1000C22=RC3)*(Détail!R2C7:R1000C7=R1C1)*(Détail!R2C29:R1000C29=R1C14)*(Détail!R2C12:R1000C12=R2C))"
    Range("X3:X100").Formula = "=SUM(RC[-10]:RC[-1])"
    Range("Y3:Y100").Formula = "=RC[-17]+RC[-12]+RC[-1]"


    With Application
        .ScreenUpdating = 1
        .Calculation = xlCalculationAutomatic
    End With


    Range("A1").CurrentRegion.Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues
    Range("A1").Select
    Application.CutCopyMode = False
End Sub

A + à tous

 

[olive323]

Re : Somme prod en macro

Merci beaucoup JCGL pour cet excellent retour

cordialement

olive323