adaptation formule

Sang1 · 28 Avril 2009

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 · 28 Avril 2009

Re : adaptation formule

bonjour Sang1,

voici un code à tester :

Code:

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

a+

RENAUDER · 28 Avril 2009

Re : adaptation formule

Bonjour,

Une autre proposition

Code:

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

Bebere · 28 Avril 2009

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 · 29 Avril 2009

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 !!

adaptation formule

Sang1

Guest

Pièces jointes

mromain

XLDnaute Barbatruc

RENAUDER

Nous a quitté

Bebere

XLDnaute Barbatruc

Sang1

Guest

Discussions similaires

adaptation formule

Sang1

Guest

Pièces jointes

mromain

XLDnaute Barbatruc

RENAUDER

Nous a quitté

Bebere

XLDnaute Barbatruc

Sang1

Guest

Discussions similaires

Privacy & Transparency

Privacy & Transparency