niacniac
Nouveau membre
Bonjour,
Je viens de découvrir cet agréable forum dans le but initial de trouver une solution un problème de macro, que j'ai réussi à bidouiller pour que ça marche.
Le problème, c'est qu'avec avec ma bidouille, je ne peux pas faire transparaitre ma formule au niveau de ma feuille de résultat. Il y a trop de guillemet et il comprend rien.
Donc, existe-il une autre possibilité de sélectionner les cellules dans différentes pages sans passer par sheet("benza").cell(valeurvariable,valeurfix) afin de faire sauter tous les guillemets.
Voici mon code:
For nbcalcul = 1 To nombrecase
Cells(2, nbcalcul + 9).Select
Cells(2, nbcalcul + 9) = Sheets("benza").Cells(nbcalcul + 14, 3).Value
Cells(3, nbcalcul + 9).Select
ActiveCell.FormulaR1C1 = (Sheets("Benza").Cells(nbcalcul + 14, 9) / (Sheets("Benza").Cells(nbcalcul + 14, 9) + Sheets("ethylcya").Cells(nbcalcul + 14, 9) + Sheets("produit").Cells(nbcalcul + 14, 9) + Sheets("produit").Cells(nbcalcul + 14, 9) / Sheets("produit").Cells(7, 9) * 18) * (Cells(12, 2) + Cells(13, 2))) / Cells(12, 4)
Cells(4, nbcalcul + 9).Select
ActiveCell.FormulaR1C1 = (Sheets("ethylcya").Cells(nbcalcul + 14, 9) / (Sheets("benza").Cells(nbcalcul + 14, 9) + Sheets("ethylcya").Cells(nbcalcul + 14, 9) + Sheets("produit").Cells(nbcalcul + 14, 9) + Sheets("produit").Cells(nbcalcul + 14, 9) / Sheets("produit").Cells(7, 9) * 18) * (Cells(12, 2) + Cells(13, 2))) / Cells(12, 4)
Cells(5, nbcalcul + 9).Select
ActiveCell.FormulaR1C1 = (Sheets("produit").Cells(nbcalcul + 14, 9) / (Sheets("benza").Cells(nbcalcul + 14, 9) + Sheets("ethylcya").Cells(nbcalcul + 14, 9) + Sheets("produit").Cells(nbcalcul + 14, 9) + Sheets("produit").Cells(nbcalcul + 14, 9) / Sheets("produit").Cells(7, 9) * 18) * (Cells(12, 2) + Cells(13, 2))) / Cells(12, 4)
Cells(6, nbcalcul + 9).Select
Cells(6, nbcalcul + 9) = Cells(5, nbcalcul + 9).Value
Cells(7, nbcalcul + 9).Select
ActiveCell.FormulaR1C1 = Cells(3, nbcalcul + 9) * Cells(12, 4) + Cells(4, nbcalcul + 9) * Cells(13, 4) + Cells(5, nbcalcul + 9) * Cells(12, 10) + Cells(6, nbcalcul + 9) * 18
Cells(8, nbcalcul + 9).Select
ActiveCell.FormulaR1C1 = Cells(3, nbcalcul + 9) + Cells(4, nbcalcul + 9) + Cells(5, nbcalcul + 9) + Cells(6, nbcalcul + 9)
Next
Merci
Je viens de découvrir cet agréable forum dans le but initial de trouver une solution un problème de macro, que j'ai réussi à bidouiller pour que ça marche.
Le problème, c'est qu'avec avec ma bidouille, je ne peux pas faire transparaitre ma formule au niveau de ma feuille de résultat. Il y a trop de guillemet et il comprend rien.
Donc, existe-il une autre possibilité de sélectionner les cellules dans différentes pages sans passer par sheet("benza").cell(valeurvariable,valeurfix) afin de faire sauter tous les guillemets.
Voici mon code:
For nbcalcul = 1 To nombrecase
Cells(2, nbcalcul + 9).Select
Cells(2, nbcalcul + 9) = Sheets("benza").Cells(nbcalcul + 14, 3).Value
Cells(3, nbcalcul + 9).Select
ActiveCell.FormulaR1C1 = (Sheets("Benza").Cells(nbcalcul + 14, 9) / (Sheets("Benza").Cells(nbcalcul + 14, 9) + Sheets("ethylcya").Cells(nbcalcul + 14, 9) + Sheets("produit").Cells(nbcalcul + 14, 9) + Sheets("produit").Cells(nbcalcul + 14, 9) / Sheets("produit").Cells(7, 9) * 18) * (Cells(12, 2) + Cells(13, 2))) / Cells(12, 4)
Cells(4, nbcalcul + 9).Select
ActiveCell.FormulaR1C1 = (Sheets("ethylcya").Cells(nbcalcul + 14, 9) / (Sheets("benza").Cells(nbcalcul + 14, 9) + Sheets("ethylcya").Cells(nbcalcul + 14, 9) + Sheets("produit").Cells(nbcalcul + 14, 9) + Sheets("produit").Cells(nbcalcul + 14, 9) / Sheets("produit").Cells(7, 9) * 18) * (Cells(12, 2) + Cells(13, 2))) / Cells(12, 4)
Cells(5, nbcalcul + 9).Select
ActiveCell.FormulaR1C1 = (Sheets("produit").Cells(nbcalcul + 14, 9) / (Sheets("benza").Cells(nbcalcul + 14, 9) + Sheets("ethylcya").Cells(nbcalcul + 14, 9) + Sheets("produit").Cells(nbcalcul + 14, 9) + Sheets("produit").Cells(nbcalcul + 14, 9) / Sheets("produit").Cells(7, 9) * 18) * (Cells(12, 2) + Cells(13, 2))) / Cells(12, 4)
Cells(6, nbcalcul + 9).Select
Cells(6, nbcalcul + 9) = Cells(5, nbcalcul + 9).Value
Cells(7, nbcalcul + 9).Select
ActiveCell.FormulaR1C1 = Cells(3, nbcalcul + 9) * Cells(12, 4) + Cells(4, nbcalcul + 9) * Cells(13, 4) + Cells(5, nbcalcul + 9) * Cells(12, 10) + Cells(6, nbcalcul + 9) * 18
Cells(8, nbcalcul + 9).Select
ActiveCell.FormulaR1C1 = Cells(3, nbcalcul + 9) + Cells(4, nbcalcul + 9) + Cells(5, nbcalcul + 9) + Cells(6, nbcalcul + 9)
Next
Merci