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 : Sélectionner tout - Visualiser dans une fenêtre à part
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