Fonction 2

Fermé
2301 - 16 juin 2010 à 18:34
salut


voisi le syntaxe de cette fonction je n'ai pas arrivé à trouver la réponse correcte:


Dim m,n,y,i
For i=1 to 5
Sheets(i).Select
ar=Range("a4").End(xlDown).Address
Range(ar).Sheet
ActiveCell.offset(1,2).Select
n= ActiveCell.offset(-1,0) .Address
m=lefts(ActiveCell.Address(0,0),( ActiveCell.Column<27)+2)
n= ActiveCell.Row-1
y=m &n
ActiveCell.FormulaLocal="somme(c4:"&y &")"
K=Range(« c3 »).End(xltoRight).Address
Range(k).Select
ii=lefts(ActiveCell.Address(0,0),( ActiveCell..Column<27)+2)
jj=n+1
p=m & jj
q=ii & jj
Range(p).Select
Selection.AutoFill Destination := Range(p,q),Type :=xlFillDefault
Next i



qu'est ce qu'elle returne cette function???
aide moi STP
mercid 'avance

A voir également: