manipulation range lourde

Bonjour,
Je fais quelques opérations sur des objets range et je tiens à garder les informations d'adresse des range une fois revenu sous Excel du coup ça donne un code un peu lourd parfois ex:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20

'Lang weihted SD qe With StartCell For i = 1 To qe.Rows.Count .Offset(i).FormulaR1C1 = "=R4C17*R5C17*" & Ce.Cells(i).Address(False, False, xlR1C1, , .Offset(i)) & _ "/(1+R5C17*" & Ce.Cells(i).Address(False, False, xlR1C1, , .Offset(i)) & ")" .Offset(i).NumberFormat = "0.00" .Offset(i, 1).FormulaR1C1 = "=RC[-1]-" & qe.Cells(i).Address(False, False, xlR1C1, , .Offset(i, 1)) .Offset(i, 1).NumberFormat = "0.00E+00" .Offset(i, 2).FormulaR1C1 = "=RC[-1]/" & qe.Cells(i).Address(False, False, xlR1C1, , .Offset(i, 2)) .Offset(i, 2).NumberFormat = "0.00E+00" .Offset(i, 3).FormulaR1C1 = "=(RC[-3]-" & qe.Cells(i).Address(False, False, xlR1C1, , .Offset(i, 3)) & ")^2" .Offset(i, 3).NumberFormat = "0.00E+00" .Offset(i, 4).FormulaR1C1 = "=RC[-1]/" & qe.Cells(i).Address(False, False, xlR1C1, , .Offset(i, 4)) .Offset(i, 4).NumberFormat = "0.00E+00" .Offset(i, 5).FormulaR1C1 = "=Abs(RC[-4])/" & qe.Cells(i).Address(False, False, xlR1C1, , .Offset(i, 5)) .Offset(i, 5).NumberFormat = "0.00E+00" .Offset(i, 6).FormulaR1C1 = "=RC[-3]/" & SD_qe.Cells(i).Address(False, False, xlR1C1, , .Offset(i, 6)) .Offset(i, 6).NumberFormat = "0.00E+00" Next i End With

---

Je ne trouve pas de formulation plus globale pour faire ce genre de calcul, du type:

Code:

---

DestRange.formulaR1C1 = "=3*" & qe.address(false,false,xlR1C1,,DestRange)

---

Est-ce que quelqu'un aurait une idée ?
Bon après-midi

Salut.

Peux-tu détailler un tout petit peu ce que tu souhaites obtenir? Je n'ai pas bien compris le deuxième cadre de code...

En fait le deuxième cadre du code c'est une supposition de code plus simple pour faire des calculs entre deux range ça va chercher loin :king:

Seul le cadre 1 représente un vrai code (qui fonctionne) mais qui est super lourd je trouve. Je parcours cellule par cellule un range pour faire des calculs avec. Je me demandais si on ne pouvait pas faire cela plus simplement en s'inspirant du code qu'il y a en cadre 2 (code qui ne fonctionne pas)

Est-ce plus clair ?

Je suis probablement un peu bouché ce soir, mais si tu pouvais expliquer, avec des références Excel, ce que tu souhaites réaliser, cela nous aiderait davantage...

Ce qui ce conçoit bien... ;)

Soit 'qe' un objet range contenant 6 cellules, DestRange un objet range contenant 6 cellules également.
Je répète le même calcul sur chaque cellule de DestRange à partir de la cellule sur la même ligne de 'qe' ce qui donne par un exemple simple :

Code:

---

1 2 3 4 5

for i = 1 to qe.rows.count DestRange.Cells(i).FormulaR1C1 = "3*" & qe.Cells(i).address _ (false,false,xlR1C1,,DestRange.Cells(i)) next i

---

je me demandais si on pouvait faire cela avec une seule ligne de code et non itérer pour chaque ligne cf le code du post 1

merci :)

bonsoir

Citation:

---

je me demandais si on pouvait faire cela avec une seule ligne de code et non itérer pour chaque ligne cf le code du post 1

---

Tu peux utiliser cette adaptation, sans boucle :

Code:

---

1 2	DestRange.FormulaR1C1 = "=3*" & qe.Cells(1).Address _ (False, False, xlR1C1, , DestRange)

---

bonne soirée
michel

Ok j'essaierai ce code demain et je vous dirais ce qu'il en est

Code:

---

1 2 3

DestRange.FormulaR1C1 = "=3*" & qe.Address _ (False, False, xlR1C1, , DestRange)

---

Bon ça n'est pas assez souple pour ceux que je dois faire, on garde l'itération sur les cellules.