1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53
| Sub tt()
Dim troncon As String
Set f = Feuil1
Set f2 = Feuil2
ligne = 2: col = 1
Set c = f.Cells(ligne, col)
While c.Value <> ""
troncon = c.Value
'c.Parent.Activate
'c.Select
result = Coordonne(f2, troncon, CoordonneMoyenneX, CoordonneMoyenneY)
formuleB = "=MOYENNE(" & f2.CodeName & "!" & CoordonneMoyenneX & ")"
formuleC = "=MOYENNE(" & f2.CodeName & "!" & CoordonneMoyenneY & ")"
c.Offset(, 1).FormulaLocal = formuleB
c.Offset(, 2).FormulaLocal = formuleC
ligne = ligne + 1
Set c = f.Cells(ligne, col)
Wend
f.Activate
End Sub
Function Coordonne(f2, texte As String, CoordonneMoyenneX, CoordonneMoyenneY)
i = 2
j = 2
'f2.Activate
Set c = f2.Cells(i, j)
While f2.Cells(i, j) <> texte
Set c = f2.Cells(i, j)
i = i + 1
Wend
debut = i
fin = i
While f2.Cells(i, j) = texte
Set c = f2.Cells(i, j)
fin = i
i = i + 1
Wend
Set r = f2.Range("B" & debut & ":B" & fin)
CoordonneMoyenneX = r.Offset(, 1).Address(RowAbsolute:=False, ColumnAbsolute:=False)
CoordonneMoyenneY = r.Offset(, 2).Address(RowAbsolute:=False, ColumnAbsolute:=False)
End Function |
Partager