Sub Worksheet_Activate()
Dim DL%
Range("A2:E" & Range("A65500").End(xlUp).Row).ClearContents
Application.ScreenUpdating = False
DL = Sheets("Export").Range("A65500").End(xlUp).Row
Sheets("Export").Columns("A:B").Copy
[A1].Select: ActiveSheet.Paste
Application.CutCopyMode = False
ActiveSheet.Range("$A$1:$B$" & DL).RemoveDuplicates Columns:=Array(1, 2), Header:=xlYes
DL = Range("A65500").End(xlUp).Row
Range("C2:C" & DL).FormulaR1C1 = "=SUMIFS(Export!C3,Export!C1,RC1,Export!C2,RC2)"
Range("D2:D" & DL).FormulaR1C1 = "=SUMIFS(Export!C5,Export!C1,RC1,Export!C2,RC2)"
Range("E2:E" & DL).FormulaR1C1 = "=SUMIFS(Export!C6,Export!C1,RC1,Export!C2,RC2)"
[A1].Select
End Sub
merci bcp. Est ce que ca fonctionne si le nb de colonne ou de lignes varient dans export.Bonjour,
Et pour compléter une solution par formules
Cordialement
merci avec les formules, ca fonctionne correctement, par contre serait-il possible de redimensionner le tableau automatiquement, sachant que le nb de lignes peut varier?Bonjour,
Et pour compléter une solution par formules
Cordialement
également ajuster automatiquement le nb de ligne du tableau ds Feuill1. Merci par avancemerci avec les formules, ca fonctionne correctement, par contre serait-il possible de redimensionner le tableau automatiquement, sachant que le nb de lignes peut varier?