Remplacer texte d'une formule par VBA

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:

---

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
:ccool:

vérifie la formule en l'affichant ..

Code:

---

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

---

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

Bon, le MsgBox donne la même formule (l'ancienne), et lors que je mets

Code:

---

Sheets("Cont. Prod. CTP + Col.").Cells(i, 6).FormulaLocal = Replace...

---

j'ai un erreur deffinie par l'application ou par l'objet...

Bonjour,
Quelle est la formule complète qui se trouve en Cells(i, 6)
Voici un petit test fait avec le même principe que toi et cela fonctionne.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Sub subst() Dim i As Single Dim sht As Worksheet Set sht = ThisWorkbook.Worksheets("Feuil1") With sht For i = 2 To 9 If .Cells(i, 1).Value = "Julho" Then .Cells(i, 6) = Replace(.Cells(i, 6).Formula, "$C$1,2", "$D1,3") End If Next i End With End Sub

---

Merci corona,
:ccool:

la formule est:

Code:

---

=(RECHERCHEV(356;'[Produção Mensal.xls]jul'!$A$2:$F$156;6;FAUX))/100

---

EDIT: Je viens d'essayer ton code corona (en changeant les valeurs), mais il ne marche pas non plus pour moi.
Je fais pas-à-pas, et je vois qu'il y a quelque chose que tourne lors qu'il arrive à la celule, mais après je vais regarder la formule et elle reste inchangé...
:(

Bonjour,
Je n'ai pas vérifier tout ta syntaxe, en tout les cas mon code fonctionne.
Il te suffit de l'adapter en modifiant le nom de la feuille, les adresses de cellules et la valeur de la boucle,

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Sub subst() Dim i As Single Dim sht As Worksheet Set sht = ThisWorkbook.Worksheets("Feuil1") With sht For i = 2 To 9 If .Cells(i, 1).Value = "Julho" Then .Cells(i, 6) = Replace(.Cells(i, 6).Formula, "A$2:H$19,6", "A$2:H$19,8") End If Next i End With End Sub

---

Merci encore une fois, mais malhereusement il ne marche pas pour moi...
:?

J'ai la formule:

Code:

---

=(RECHERCHEV(356;'[Produção Mensal.xls]jul'!$A$2:$F$156;6;FAUX))/100

---

et le code:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Sub subst2() Dim i As Single Dim sht As Worksheet Set sht = ThisWorkbook.Worksheets("Cont. Prod. CTP + Col.") With sht For i = 2 To 2000 If .Cells(i, 1).Value = "Julho " Then .Cells(i, 6) = Replace(.Cells(i, 6).Formula, "$F$156;6", "$H$156;8") End If Next i End With End Sub

---

Peut-être il soit quelque chose avec les configurations de mon classeur? Je vais continuer à chercher...

Bonjour,
J'ai refais un test en modifiant la le F en H et cela fonctionne

Code:

---

.Cells(i, 6) = Replace(.Cells(i, 6).Formula, "A$2:F$19,6", "A$2:H$19,8")

---

Je vois deux possibilités d'erreurs.
1 - Tu recherches "Julho " moi "Julho" If .Cells(i, 1).Value = "Julho"
C'est toujours dangereux de chercher des mots avec des espaces avant et/ou après.
Tu peux éviter ce genre d'erreur par If Trim(.Cells(i, 1).Value) = "Julho" Then
Cette fonction supprime les espaces avant et après le string.
Tu peux également et j'adopte souvent cette méthode comparer en forcant les majuscules

Code:

---

If UCase(Trim(.Cells(i, 1).Value)) = "JULHO" Then

---

La deuxième possibilité aux lignes "Julho" la fonction Replace ne trouve pas la chaîne.
Place cette ligne que t'a suggéré bbil

Code:

---

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

---

J'ai mis les UCase et Trim, ils ne changent rien (avec le F8 j'avais vu déjà que le condition If marchait même avec l'espace...).

Mais si je mets:

Code:

---

.Cells(i, 6) = Replace(.Cells(i, 6).FormulaLocal, "$F$156;6", "$H$156;8")

---

J'ai un "erreur de l'application ou de l'objet" dans cette ligne...
:(

Bonjour,
C'est curieux.
S'il n'est pas confidentiel, une copie du classeur ou une partie de ce classeur ne serait pas un luxe.

Désolé mais je crois que je ne peux pas le copier... :roll:

En regardant le fonctionement de la macro, je crois qu'il ne trouve pas la chaine...

Des idées sur pourquoi le FormulaLocal ne marche pas?

Bonjour tout le monde,

Marc, essai avec cette ligne :

Code:

---

1 2	.Cells(i, 6).FormulaLocal = Replace(.Cells(i, 6).FormulaLocal, "$F$156;6", "$H$156;8")

---

Tes formules sont en français et il te faut préciser que c'est la formule que tu veux modifier :
.Cells(i, 6).FormulaLocal = ...

Hervé.

Merci Theze

ça marche!
:D

Encore une fois, merci à tous pour des idées
:ccool: