Formule dans une macro

salut sweat,

essaye ça dans ta macro

i = i + 1
Sheets("feuil1").Cells(2, 1).FormulaLocal = "=B" & Trim(204 + i) & "/CF41-1"

attention, il faut garder en memoire ton indice i entre 2 lancement macro sinon tu recomence toujours sur la meme cellule...

@+
jef

Salut Sweat, Jef, le forum,

Je te propose aussi ça :

Sub Macro1()
x = Mid(Range("A2").Formula, 3, 3) 'récupère la valeur de B dans la formule actuelle
Range("A2").Formula = "=B" & x + 1 & "/CF41-1" 'l'incrémente dans la nouvelle formule
End Sub

Attention la macro va planter dès que tu atteindras la cellule B1000...

À plus,

Robert

Salut Jef,

Merci beaucoup de ton aide, c'est exactement ce que je voulais. Bravo à toi et merci encore, cela m'enlève une belle épine du pied.

A+

Salut Robert,

Merci beaucoup, ta solution est très bien aussi. Je suppose que quand j'attendrai la cellule B1000 je devrai écrire : x = Mid(Range("A2").Formula, 4, 4) ?

Merci à tous les 2.

A+

Re Sweat,

t'as tout compris...

À plus,

Robert

RE SALUT Robert,

Je viens d'essayer ta manière, et cela ne fonctionne pas !!!

La macro beugue sur la ligne :
Range("A2").Formula = "=B" & x + 1 & "/CF41-1"

????

Merci

Re salut Sweat, Jef, le forum,

Je ne comprends pas car au boulot ou chez moi avec Windows XP et Excel 2000 ça fonctionne...
Essaie cette nouvelle version FormulaR1C1 qui couvre toutes des cellules de B100 jusqu'à B65536 :

Sub Macro1()
Dim x As Long
Select Case Len(Range("A2").Formula) 'nombre de caractères de la formule
Case 12 'jusqu'à B999
x = Mid(Range("A2").Formula, 3, 3) 'récupère la valeur de B dans la formule actuelle
Range("A2").FormulaR1C1 = "=R[" & x - 1 & "]C[1]/R[39]C[83]-1" 'l'incrémente dans la nouvelle formule
Case 13 'jusquà B9999
x = Mid(Range("A2").Formula, 3, 4) 'récupère la valeur de B dans la formule actuelle
Range("A2").FormulaR1C1 = "=R[" & x - 1 & "]C[1]/R[39]C[83]-1" 'l'incrémente dans la nouvelle formule
Case 14 'jusqu'à B65536
x = Mid(Range("A2").Formula, 3, 5) 'récupère la valeur de B dans la formule actuelle
Range("A2").FormulaR1C1 = "=R[" & x - 1 & "]C[1]/R[39]C[83]-1" 'l'incrémente dans la nouvelle formule
End Select
End Sub

À plus,

Robert