Remplacer des parties d'une formule dans plusieurs cellules

Question

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

PCPT · Answer

topic déplacé de VB6 vers VBA

cs_MPi · Answer

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

lejepie · Answer

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

cs_MPi · Answer

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 (???)

Remplacer des parties d'une formule dans plusieurs cellules

4 réponses

Votre réponse

Discussions similaires