Discussion :

[kyros21]

Bonjour a tous, je pense que je ne m'y prends pas bien, mais j'ai quelques soucis avec cette formule ->

Code :

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

 Sheets("Top20 répartition h MO").Cells(30, variable2).Formula = " =" & coutpompe & "-" & Worksheets("Top20 répartition h MO").Cells(31, variable2).Address & "-" & Worksheets("Top20 répartition h MO").Cells(29, variable2).Address & ""

en fait au second =, il y a un espace juste avant le egal et juste apres les guillements, que le vba m'oblige a mettre sinon la formule ne marche pas, et du coup, la formule apparait brute dans mon tableur, et non pas le resultat, comment remedier à cela?

Merci

[Theze]

Bonsoir,

De cette façon :

Code :

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

1
2
 
Sheets("Top20 répartition h MO").Cells(30, variable2).Formula = "=" & coutpompe & "-" & Worksheets("Top20 répartition h MO").Cells(31, variable2).Address & "-" & Worksheets("Top20 répartition h MO").Cells(29, variable2).Address

Hervé.

[kyros21]

En fait, la formule me retourne toujours une erreur incompatibilité de type, je ne comprends pas d'ou cela vient....les chiffres de coutpompe peuvent etre à virgules, mais j'ai essayé de les multiplier par 100 pour enlever toute virgule, mais sa ne marche quand meme...

Code :

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

Workbooks(Txt2).Sheets(typetube).Cells(30, colonne1).Formula = "=" & coutpompe / 100 & "-" & Workbooks(Txt2).Sheets(typetube).Cells(31, colonne1).Address & "-" & Workbooks(Txt2).Sheets(typetube).Cells(29, colonne1).Address

coutpompe fonctionne très bien,et provient d'ici :

Code :

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

coutpompe = 100 * Evaluate("INDEX(" & Workbooks(variable11).ActiveSheet.Name & "!J1:J65536,MAX(IF(NOT(ISERR(SEARCH(""habille""," & Workbooks(variable11).ActiveSheet.Name & "!B2:B65536)))*NOT(ISERR(SEARCH(""pompe""," & Workbooks(variable11).ActiveSheet.Name & "!D2:D65536)))>0,ROW(" & Workbooks(variable11).ActiveSheet.Name & "!B2:B65536))))")

merci encore pour votre aide

[Theze]

Bonsoir,

Je n'ai pas regardé plus loin mais

Code :

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

1
2
 
Workbooks(Txt2)

ne devrait il pas être écrit de la façon suivante ?

Code :

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

1
2
 
Workbooks(Txt2.xls)

Hervé.

[ZebreLoup]

Est-ce que tu arrives à voir la formule créée dans les espions ? C'est pour savoir si le problème est au niveau de la création de la formule ou de son application dans la cellule.

@Theze : Txt2 est une variable, à la rigueur, ce serait Workbooks("Txt2.xls")

[kyros21]

non car Txt2 est une variable, qui renvoi bien un nom en .xls ,

vous ne pouviez pas savoir ,

[ZebreLoup]

Et tu as vu ma question sur le contenu de la formule (au format "texte" on va dire) avant d'essayer de l'appliquer à la cellule ?

Tu pourrais faire comme ça pour voir à quelle étape est l'erreur sinon :

Code :

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

1
2
3
Dim formulaString As String
formulaString = "=" & coutpompe / 100 & "-" & Workbooks(Txt2).Sheets(typetube).Cells(31, colonne1).Address & "-" & Workbooks(Txt2).Sheets(typetube).Cells(29, colonne1).Address
Workbooks(Txt2).Sheets(typetube).Cells(30, colonne1).Formula = formulaString

Et dernière remarque, j'ai vu que avais posé pas mal de questions de ce genre récemment sur le forum. Pour ma part je trouve que travailler avec les formules dans le code est assez dangereux. Entre les problème de Formula, FormulaLocal... et les messages d'erreur pas très explicites, c'est pas évident. Sur tout ce que j'ai fait jusqu'à maintenant, j'ai vraiment très rarement eu besoin de la faire. Soit j'avais des formules que j'avais entrées dans la feuille directement, soit je faisais mes calculs dans le code et affichait le résultat. Tu es sûr qu'il n'y a pas un problème de conception sur ton classeur ?