[VBA] Remplacer un caractére dans une formule par une variable (boucle for)

Bonjour à tous, je viens vers vous afin de trouver une solution a mon problème.

Je m'explique, je travail sur un fichier qui doit générer un certain nombre d'onglets par copie d'un onglet existant. Mon problème est qu'il a une formule qui doit légèrement changer en fonction de l'onglet, j'ai essayer d'utiliser la fonction Replace(), mais elle n'accepte pas les variables, comme valeur de remplacement. J 'ai réussi à le coder "en dur" grâce à la fonction Instr() et Mid() mais j'aimerais quelque chose de plus dynamique, qui puisse marcher si la formule est modifié, auriez vous une solution a me proposer ?

Merci d'avance.

Ci-joint le code que j'utilise pour le moment, il est imbriqué dans une boucle for :

Code:

---

1 2 3 4 5 6 7

Sheets("PF1_Global (2)").Range("D5").Select formule1 = Selection.Formula nb = InStr(1, formule1, "PF", vbTextCompare) nb2 = InStr(nb + 3, formule1, "PF", vbTextCompare) Mid(formule1, nb + 2, 1) = i + 1 Mid(formule1, nb2 + 2, 1) = i + 1 Sheets("PF1_Global (2)").Range("D5").Formula = formule1

---

Bonjour,

fourni plutôt la chaine avant et après transformation en précisant les valeurs que ça peut couvrir.

eric

Désolé pour la réponse tardive, le week end est passé par là.

Ma formule à modifier est celle-ci:

=SI('PF1'!D3<>"";RECHERCHEV(A5;'PF1'!$A$2:$D$3;4);"")

=> =SI('PF2'!D3<>"";RECHERCHEV(A5;'PF2'!$A$2:$D$3;4);"")

Ce que je veut modifier à chaque itération est le numéro du "PF", qui peut aller de 1 à 20, le code que j'utilise actuellement fonctionne, mais si on modifie la formule et qu'on rajoute des "PFX" ça ne marchera plus.

Bonjour,

Un peu léger en explication.
Tu dis que tu boucles, on ne sait pas sur quoi.
Tu dis en cas de modification de formule, c'est vague... On ne peut pas prévoir tous les cas possibles et imaginables si tu te contentes de remplacer 2 par 3.

Un exemple qui t'inscrit la formule modifiée avec la valeur de boucle dans les lignes sous D5, tu adapteras à la réalité :

Code:

---

1 2 3 4 5 6 7 8 9 10

Sub test() Dim i As Long, j As Long, formule, feuille As String For i = 1 To 2 formule = Split([D5].Formula, "'") For j = 0 To UBound(formule) If Left(formule(j), 2) = "PF" Then formule(j) = "PF" & i Next j [D5].Offset(i).Formula = Join(formule, "'") Next i End Sub

---