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

[Platon93]

Oh cher et intelligent modérateur,
j'ai beaucoup aimé ta macro super géniale =)
Mais mon amour envers cette macro doublerait si je savais comment l'utiliser.
J'ai copié collé ta formule de macro dans une nouvelle macro, mais rien ne change dans la colonne J de mon Excel..
J'espére que cela marchera , j'ai hâte de cocher le bouton résolu et de te remercier 1000 fois =)

[fring]

J'ai copié collé ta formule de macro dans une nouvelle macro, mais rien ne change dans la colonne J de mon Excel

Dans la colonne J ?
Pour faire simple...si tu nous disais dans quelle colonne sont tes valeurs et dans quelle colonne le calcul doit se faire ?

Bon soit...essaye ceci (l'insertion de la formule s'arrêtera lorsque la valeur de la ligne dépassera la dernière ligne contenant une valeur)

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub test()
Dim i As Integer, x As Integer, DerL As Integer
 
DerL = Cells(Rows.Count, 2).End(xlUp).Row
x = 7
 
For i = 7 To DerL
    If x > DerL Then Exit Sub
    Cells(i, 3).Formula = "=" & Cells(x, 2).Address & "/" & Cells(x - 2, 2).Address
    x = x + 2
Next
 
End Sub

A adapter :
Cells(i, 3) --> 3 étant la 3ème colonne --> colonne des résultats
Cells(x, 2) et Cells(x - 2, 2) --> 2 étant la 2ème colonne --> colonne des valeurs

[Platon93]

Oh très cher modérateur ouskel'n'or et cher rédacteur fring,
je vous remercie beaucoup. C'est super gentil de votre part, je prend et je prendrai toujours l'exemple sur des personnes bien comme vous pour aider les autres...
Oh qu'est ce que c'est bon de trouver une formule grâce aux autres contemporains! Ce soir, je peux fermer mes yeux tranquillement .
Bonne nuit à tous.

Dans la colonne J ?
Pour faire simple...si tu nous disais dans quelle colonne sont tes valeurs et dans quelle colonne le calcul doit se faire ?

Merci beaucoup, au fait, il fallait tapper les valeurs dans la colonne B, et attendre le résultat dans la colonne C.. Je mettais trompé en mettant les valeurs dans la colonne I , et j'espérais sans espoir recevoir les valeurs dans la colonne J..

[fring]

Ooh toi grand Platon, j'ai édité mon message ci-dessus au cas où

[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