produit en croix

[dysaca]

bonjour

je cherche a faire un produit en croix avec des formules un peut compliquer pour moi
puis-je avoir de l'aide s'il vous plait

je vous envoie un petit fichier joint ou j'explique un peut mieux ce que je veut


merci a ceux qui pourrons m'aider [file name=bois.zip size=2118]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/bois.zip[/file]

 

[mutzik]

Bonjour dysaca

voila une réponse possible

à+
Bertrand [file name=bois_20050522010659.zip size=2199]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/bois_20050522010659.zip[/file]

 

[andré]

Bonjour dysaca et mutzik,

Petite variante (un peu plus court) pour I6 et les cellules en-dessous :

=MAX(G$14;E6*G6)

Ândré.

 

[dysaca]

bon jour

je cherche surtout a changer les chiffres en jaune
pour que le total en orange soit superieur au chiffre en bleu

merci de m'avoir repondu [file name=bois_20050522093916.zip size=2118]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/bois_20050522093916.zip[/file]

 

[andré]

Resalut dysaca,

Veux-tu modifier tous les chiffres en jaune 'et ceux-ci doivent-ils être tous les mêmes ?
Ces chiffres peuvent-ils avoir de décimales ?
Je crains que tu auras une référence circulaire.

Lorsque tu dis 'supérieur à', c'est de combien ?

Ândré.

 

[dysaca]

bonjour andré

modifier tous les chiffres en jaunes mais pas obligatoirement les meme

pas de decimale

superieur de combien ce n'est pas grave du moment qu'il depasse le chiffre en bleu


merci de me repondre


je vous renvoie le fichier avec des petite modif et avec ce que ca doit donner a la fin

[file name=doer.zip size=3133]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/doer.zip[/file]

 

[andré]

Salut dysyca,

Je crains qu'il n'y a pas moyen de le faire par formule.

En effet, les formules doivent se trouver dans les cellules G6, G7, G9 et G10 et ces formules doivent faire référence à leur propre résultat.
Donc référence circulaire.

De plus, il faut nécessairement que les résultats en colonne E soient tous supérieurs à 1, faute de quoi il y a impossibilité totale.

Par macro peut-être, et encore.
Je continue néanmoins à y refléchir.

Dommage.
Ândré.

 

[Hervé]

Bonjour tout le monde

Un début de prémice d'embryon de réponse par macro, en pièce jointe.

Sub Bouton5_QuandClic()
Dim tablo(1 To 4, 1 To 3)
Dim c As Range
Dim i As Byte
Dim bon As Boolean
Dim nombre As Long

bon = False
i = 1
For Each c In Range('e23:e27')
&nbsp; &nbsp; If c.Text <> '' Then
&nbsp; &nbsp; &nbsp; &nbsp; tablo(i, 1) = c
&nbsp; &nbsp; &nbsp; &nbsp; tablo(i, 2) = 1
&nbsp; &nbsp; &nbsp; &nbsp; nombre = nombre + tablo(i, 2)
&nbsp; &nbsp; &nbsp; &nbsp; tablo(i, 3) = tablo(i, 2) * tablo(i, 1)
&nbsp; &nbsp; &nbsp; &nbsp; i = i + 1
&nbsp; &nbsp; End If
Next c


Do While bon <> True
retour:
For i = 1 To UBound(tablo, 1)
&nbsp; &nbsp; If tablo(i, 3) < nombre Then
&nbsp; &nbsp; &nbsp; &nbsp; nombre = nombre - tablo(i, 2)
&nbsp; &nbsp; &nbsp; &nbsp; tablo(i, 2) = tablo(i, 2) + 1
&nbsp; &nbsp; &nbsp; &nbsp; nombre = nombre + tablo(i, 2)
&nbsp; &nbsp; &nbsp; &nbsp; tablo(i, 3) = tablo(i, 2) * tablo(i, 1)
&nbsp; &nbsp; &nbsp; &nbsp; GoTo retour
&nbsp; &nbsp; Else
&nbsp; &nbsp; bon = True
&nbsp; &nbsp; End If
Next i
Loop

i = 1
For Each c In Range('e23:e27')
&nbsp; &nbsp; If c.Text <> '' Then
&nbsp; &nbsp; &nbsp; &nbsp; c.Offset(0, 2) = tablo(i, 2)
&nbsp; &nbsp; &nbsp; &nbsp; i = i + 1
&nbsp; &nbsp; End If
Next c

End Sub

Salut

[file name=doer2.zip size=9403]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/doer2.zip[/file]