Discussion :

[Platon93]

Bonsoir mes chers et irremplaçables contemporains et amis d'Excel;

je recherche une fonction qui me calcule les valeurs d'une colonne à partir d'une autre colonne. L'exemple illustrera bien ce que j'arrive pas à vous dire.
Je remplis à la main la colonne B ; Envirions 1500 données à tapper.
Je veux une fonction qui me calcule les valeurs de la colonne C, comme suit:

C7= B7/B5
C8= B9/B7
C9= B11/B9
C10=B13/B11
C11=C15/B13 etc....

Comme vous l'avez vu, les valeur du numérateur et du dénominateurs augmentent de 2 .

Merci de votre contribution intellectuelle.

[fring]

bonjour,

un truc que je pige pas, supposons que les valeurs vont jusque B40, en C40 tu vas avoir =B73/B71 ?

[Platon93]

bonjour,

un truc que je pige pas, supposons que les valeurs vont jusque B40, en C40 tu vas avoir =B73/B71 ?

Bonsoir fring ,
tu l'as bien compris.
C40= B73/B71

On part de C7= B7/B5.. Et à chaque fois que C change augmente d'un indice,
le numérateur et le numérateur augmentent de 2.

Si C7 = B7/B5 ( notre point de départ)
Pour C40, on fait : dénominateur = (40-7)*2 + 7 = 73
numérateur = dénominateur - 2 = 71
D'ou C40=B73/B71

Est ce possible de faire une fonction comme indiquée ci- dessus?
Merci d'avance =)

[fring]

Oui bien sûr c'est réalisable mais tu n'as pas compris où je voulais en venir.
Si les valeurs vont de B5 à B40, en C on va avoir

Code :

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

1
2
3
4
C7=B7/B5
C8=B9/B7
C9=B11/B9
'etc...

mais à partir de C25

Code :

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

1
2
3
4
C25=B43/B41
C26=B45/B43
'...
C40=B73/B71

tu vas avoir une erreur vu qu'il n'y a plus de valeur après B40, c'est normal ?

[Platon93]

Bien vu Fring ! Je n'avais pas pensé à cela.
Il y aura une erreur à partir d'un certain rang, puisqu'il n y aura pas de valeur en B.
Mais comme la colonne B va de B[7] à B[1500], pour éviter l'erreur,
on peut s'arrêter à C[753]

On n'est pas obligé d'aller jusqu'au bout dans la colonne C, on doit se limiter dans la colonne C.

[ouskel'n'or]

(40 - 7) * 2 = 66 et 66 + 7 = 73
Et un truc tout bête comme ça, ça n'irait pas

Code :

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

1
2
3
4
5
    j = 7
    For i = 7 To 40
        Cells(i, 3) = Cells(j, 2) / Cells(j - 2, 2)
        j = j + 2
    Next

[Platon93]

(40 - 7) * 2 = 66 et 66 + 7 = 73
Et un truc tout bête comme ça, ça n'irait pas

Code :

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

1
2
3
4
5
    j = 7
    For i = 7 To 40
        Cells(i, 3) = Cells(j, 2) / Cells(j - 2, 2)
        j = i + 2
    Next

Salut ouskel'n'or !
Ce que tu as fait est un macro non?

Merci de ton aide =)
Merci à toi aussi Frig =)

[ouskel'n'or]

Ou bien

Code :

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

1
2
3
4
5
    j = 7
    For i = 7 To 40
        Cells(i, 3) = Cells(j, 2) / Cells(j , 2).offset(-2,0)
        j = j + 2
    Next

Oui, c'est une macro. Et alors ? Tu l'aimes pas ma macro ?
Donc tu veux une macro mais pour écrire une formule ?
Si c'est ça faut le demander gentiment !

Code :

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

1
2
3
4
5
6
    j = 7
    For i = 7 To 40
        Cells(i, 3).Formula = "=" & Cells(j, 2).Address(0, 0) & "/" & _
        Cells(j, 2).Offset(-2, 0).Address(0, 0)
        j = j+ 2
    Next

Corrige j = i + 2 par j = j + 2

[Montor]

j'ajoute qu'il faut pas farira un autofiller avec toutes ces fonction

Code :

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

1
2
3
4
5
6
7
8
9
 Sub test()
Dim ind, addr As Long
For ind = 7 To 1500
addr = ((ind - 7) * 2 + 7) - ind
With Cells(ind, 3)
.FormulaR1C1 = "=R[" & addr & "]C[-1]/R[" & addr - 2 & "]C[-1]"
End With
Next
End Sub