Discussion :

[Marc_27]

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

[SfJ5Rpw8]

vérifie la formule en l'affichant ..

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
msgbox  Sheets("Cont. Prod. CTP + Col.").Cells(i, 6).Formula

je pense à un problème de localisation .. remplace Formula par FormulaLocal.