Discussion :

[Ropie94]

Bonjour a tous,

voila ma situation;
dans mon classeur j ai une feuille avec mes hypotheses et une feuille de resultats.

Je souhaite que la premiere cellule de ma plage dans ma feuille de resultat soit egale a :
la premiere cellule * la 2eme cellule de ma plage dans ma feuille d'hypotheses.

De plus je souhaite que lorsque je modifie la valeur de mes hypothese le resultat se mette a jour automatiquement sans a avoir executer la macro une nouvelle fois.

Quelqu'un aurait il une idée?

Merci d'avance a tout le monde

[zandru]

Pourquoi utiliser VBA ?

Il suffit d'écrire dans ta cellule resultat :

=HYPOTHESE!A1*HYPOTHESE!A2

Cet exemple suppose que les cellules d'hypothèse sont les A1 et A2 de la feuille "HYPOTHESE".
A toi d'adapter !

[Ropie94]

merci pour la reponse.

Mais en fait j utilise vba pour ajouté des tableaux dans mes hypotheses. Chaque fois qu un tableau est créé, cela introduit une nouvelle feuille avec un tableau de resultats.

Je cherche donc a mettre en relation les deux tableaux.. Par example
1er cellule * 2eme cellule dans mon tableau qui se trouve dans mes hypothese = 1 er ecellule dans mon tableaux de resultats.

Saurais tu comment faire?

Merci

[zandru]

Dans ce cas, tu peux insérer la formule dynamiquement via vba, à la création du tableau.

par exemple :

Code :

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

resultat.cells(1,1).FormulaLocal = "=HYPOTHESE!A1*HYPOTHESE!A2"

[Ropie94]

merci encore de ta reponse j ai essayé et ca marche
un dernier petit problem:
quand j'essaye:

code:

Code :

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

1
2
3
4
5
6
7
oRow1 = MyRange1.Row
oCol1 = MyRange1.Column
 
oRow2 = MyRange2.Row
oCol2 = MyRange2.Column
 
Cells(oRow2, oCol2).Offset(9, 2).FormulaLocal = "=Assumptions! Cells(oRow1, oCol1).Offset(3, 8)"

cela ne marche plus

Aurais tu une derniere astuce pour me debloquer??

Merci beaucoup

[Krovax]

Bonjour
Quand tu utilises formulalocal ca revient a taper directment dans la barre de formule excel, essaye de taper cells(1,2) ou offset tu verra qu'il n'aime pas

Code :

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

Cells(oRow2, oCol2).Offset(9, 2).FormulaLocal = "=Assumptions!" & Cells(oRow1, oCol1).Offset(3, 8).address

La tu ecris dans la barre de titre "=Assumptions!" directement suivit de l'adresse de Cells(oRow1, oCol1).Offset(3, 8)