Discussion :

[bbouling]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

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

[Pierre Fauconnier]

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

[bbouling]

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

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 ?

[Pierre Fauconnier]

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

[bbouling]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[SilkyRoad]

bonsoir

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

bonne soirée
michel