Bonjour à tous,

J'ai un fichier Excel avec environ 2000 lignes, et je voudrais remplacer les variables de quelques formules. J'ai donc fait le VBA suivant:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
Sub subst()
 
For i = 15 To 2000
    If Sheets("Cont. Prod. CTP + Col.").Cells(i, 1).Value = "Julho " Then
        Sheets("Cont. Prod. CTP + Col.").Cells(i, 6).Formula = Replace(Sheets("Cont. Prod. CTP + Col.").Cells(i, 6).Formula, "$F$156;6", "$H$156;8")
    End If
Next i
 
End Sub
Mon soucis c'est qui lors que je le lance, il ne fait rien, c'est-à-dire, les formules ne changent pas...


Est-ce que je me trompe quelque part?

Merci d'avance pour votre aide