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
Partager