adaptation formule

[Sang1]

Re re bonjour,

Je cherche a faire s adapter la formule a une liste de datas plus ou moins longue 😱. Les datas étant les colonnes A et B, et la C étant les résultats.

Merci 😀

 

[mromain]

Re : adaptation formule

bonjour Sang1,

voici un code à tester :

Range("C1").Formula = "=A1*B1"
Range("C1").AutoFill Destination:=Range("C1:C" & Cells(Rows.Count, 1).End(xlUp).Row)

a+

 

[RENAUDER]

Re : adaptation formule

Bonjour,

Une autre proposition

Range("C1").Formula = "=A1*B1"
Range([C1], [A65536].End(xlUp).Offset(0, 2)).Select
Selection.FillDown

 

[Bebere]

Re : adaptation formule

bonjour Sang,Renauder,Mromain
une autre pour ta doc

Range("C1:C" & Cells(Rows.Count, 1).End(xlUp).Row).Formula = "=A1*B1"

à bientôt

 

[Sang1]

Re : adaptation formule

Merci beaucoup pour vos réponse, sa m apprend énromement sur VBA 😉.
J ai encore un petit soucis (pour changer...).
Il faut que j'adapte encore une formule qui s adapte au nombre de datas rentrées.
Voici le code a adapter :

ActiveChart.SeriesCollection(1).XValues = "=traitement!R3C1:R33C1"
ActiveChart.SeriesCollection(1).Values = "=traitement!R3C2:R33C2"

Mon pb c'est l'écriture !R3C1:R33C1", quand je remet la meme formule que precedemment sa bug...
J ai tout de mm cerné mon pb, en faite il faut un code qui adapte le "R33" a la derniere cellule ayant une valeure.

Merci d avance pour vos réponses !!