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.

[Marc_27]

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

Code :

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

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

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

[Philippe Tulliez]

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 :

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

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

[Marc_27]

Merci corona,


la formule est:

Code :

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

=(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é...

[Philippe Tulliez]

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 :

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

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

[Marc_27]

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


J'ai la formule:

Code :

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

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

et le code:

Code :

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

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...

[Philippe Tulliez]

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

Code :

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

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

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

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 :

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

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

[Marc_27]

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 :

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

.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...

[Philippe Tulliez]

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.

[Marc_27]

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

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?

[Theze]

Bonjour tout le monde,

Marc, essai avec cette ligne :

Code :

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

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é.

[Marc_27]

Merci Theze

ça marche!


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