Re : etirer formule sur ligne et colonnes
Bonjour à tous,
Je vois votre réponse seulement maintenant. Grâce aux différents forum j'ai la solution je vous la communique pour que d'autres comme moi en profite :
' *** la dernière colonne pleine ; admis la ligne [1]
deco = Cells(1, Rows(1).Cells.Count).End(xlToLeft).Column' ***Idem pour la dernière ligne pleine ; admis la colonne [A]
deli = Cells(Columns(1).Cells.Count, 1).End(xlUp).Row
Range("B5").Select
ActiveCell.FormulaR1C1 = "=SUMPRODUCT((Feuil1!R1C1:R2499C1=RC1)*(Feuil1!R1C3:R2499C3=R1C)*(NOT(ISERROR(FIND(Feuil1!R1C4:R2499C4,R4C)))))"
Range("B5").AutoFill Destination:=Range(Cells(5, 2), Cells(5, deco)), Type:=xlFillDefault
Range(Cells(5, 2), Cells(5, deco)).AutoFill Destination:=Range(Cells(5, 2), Cells(deli, deco)), Type:=xlFillDefault
Merci encore à tous pour votre précieuse aide
Bonne journée