salut,
mon problème vient du fait que je travaille au sein dune boucle et par consequent mes ranges sont variables. Je n'arrive pas à acrire ma Formulalocal somme si sans erreur, ca fait bien 3h que je suis dessus. quelqu'un peut m'aider s'il vous plait?
merci par avance.
Le code sera plus parlant:
Sub ouf()
Dim i As Integer
Dim n As Integer
Dim feuille As Worksheet
Dim rgrange As Range
Dim c As Range
Dim d As Range
For i = 1 To ActiveWorkbook.Worksheets.Count - 3
Set feuille = ActiveWorkbook.Worksheets(i)
With feuille
Set rgrange = .Range("I1" ).CurrentRegion
'.Range("A1:AA1" ).AutoFilter
'.Range("G:H" ).ClearContents
'.Range("G2:G4000" ).FormulaLocal = "=RECHERCHEV(F2;'[sector et note.xls]sector_industry'!$A$14:$D$1375;4;0)"
'.Range("G1" ).Value = "sector"
'moyennes notes sectorielles
n = rgrange.Rows.Count
Set c = Range(Cells(1, 7), Cells(n, 22))
Set d = Range(Cells(2, 9), Cells(n, 9))
[b][b][#ff0e00][b].Cells(rgrange.Cells(1, 9).Row + rgrange.Rows.Count + 8, 9).FormulaLocal="=SOMME.SI(" & c.Address & "; "Services aux consommateurs" ;" & d.Address & " )/NB.SI(" & e.addresslocal &" ).address;""Services aux consommateurs
End With
Next i
End Sub
