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:
Mon soucis c'est qui lors que je le lance, il ne fait rien, c'est-à-dire, les formules ne changent pas...
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
Est-ce que je me trompe quelque part?
Merci d'avance pour votre aide
![]()
Partager