Remplacer des parties d'une formule dans plusieurs cellules

Bonjour,

Novice de chez novice en VBA, je sollicite votre aide (pour info, je suis sur Excel 2007)...

Mon problème: remplacer dans chaque cellule de F5 à F130 la formule
=DROITE(etab2!$A$3;NBCAR(etab2!$A$3)-41) par
=DROITE(GAUCHE(etab2!$A$3;31);2),
sachant que cette formule est celle de la cellule F5, en F6, etab2 sera remplacé par etab3...

Voilà ce que j'ai essayé de faire:

Sub Boucle()
Dim Cellule As Range
Dim Formule As String

For Each Cellule In Range("F5:F135")
Formule = Replace(Cellule.Formula, Right(Cellule, 21), "31);2")
Formule = Replace(Cellule.Formula, "droite(", "droite(gauche(")
Cellule.Formula = Formule
Next Cellule
End Sub

Mais ça ne marche pas... J'ai le message erreur d'execution 13...

Merci pour votre aide

topic déplacé de VB6 vers VBA

J'ai peut-être loupé quelque chose, mais pourquoi ne pas tout simplement écraser les formules par des nouvelles ?

Range("F5:F135").Formula = "=Right(Left(etab2!$A$3,31),2)"

MPi²
Pour ceux qui programment sous Office, n'oubliez pas qu'il existe un forum dédié à ces applications VBA....... ICI

SAlut MPi,

Je peux pas remplacer car chaque cellule fera appel à un nom de feuille différent. Ainsi ça ira de etab2! à etab130!

Tu pourrais essayer comme ceci

    Dim I As Long, Cellule As Range
   
    I = 1  ' si tu veux que les formules commencent avec "etab2"

    For Each Cellule In Range("F5:F135")
        I = I + 1
        Cellule.Formula = "=RIGHT(LEFT(etab" & I & "!$A$3,31),2)"
    Next

En principe, ça devrait fonctionner si la formule est bien la bonne ...

Si tu préfère utiliser les formules en français, change Formula pour FormulaLocal et change les virgules pour des points-virgules.

Désolé si je ne réponds pas rapidement. Mon compte a des problèmes. Je ne reçois plus les courriers de vbFrance (???)