Formule de mise a jour automatique de calcul

Question

Je dois créer un tableau dans lequel j’ai 2 cellules qui doivent se mettre à jour automatiquement en fonction de la valeur de l’une d’elles. Je m’explique : J’ai un hôtel qui sera composé de 48 chambres avec 2 types de chambres différents : les Suites et les Suites Junior J’ai besoin de créer un tableau qui va me permettre de calculer les coûts en fonction du nombre de Suites ou de Suites Jr. Sur ma ligne des Suites si j’en ai 12 il faut que ma ligne des Suites Jr se mette à jour automatiquement avec 36 ou si je dois avoir 20 Suites Jr, la ligne des Suites doit calculer automatiquement 28. Suite 12 28 Suite Jr + 36 20 La fonction de calcul doit être valable sur les 2 lignes en même temps et faire en sorte que la capacité de 48 ne soit pas dépassée. Auriez vous une idée de la formule à créer ? J'espère que mon explication est assez claire ... En vous remerciant pour l'aide que vous pourrez m'apporter. Cordialement Sophie...

Guitouille · Answer

Désolé d'avance, je suis accro aux macro ! un petit fichier test pour voir si ça colle à vos attentes. Bonne fin de semaie...

Steelson · Answer

Sophie de Antibes, peux-tu nous mettre un bout de fichier excel, cela permettrait d'éclaircir ta demande...

Steelson · Answer

On peut le faire avec un curseur ! Mais je vote aussi pour la solution Guitouille...

Guitouille · Answer

Si je ne dis pas de bêtise, on veux que la somme de ces deux cellules rouges soit égale à 48 à chaque fois que l'on change une des deux valeurs. Pour commencer on va repérer ces cellules, deux moyens de faire ici, soit on leur donne un nom, mais on va retenir leurs numéros de ligne et de colonne ^^ On peut commencer a taper du bon code ! =&gt; ATL + F11 On est maintenant dans le menu VBA On veut exécuter le code quand il y a un changement de valeur dans ces cellules, il faut choisir le bon événement =&gt; on clic sur feuille1 =&gt; on change general par worksheet =&gt; et on prend l’événement Change. Il ne reste plus qu'à taper ce que l'on veut faire Private Sub Worksheet_Change(ByVal Target As Range) If IsNumeric(Target.Value) = True Then If Target.Row = 3 And Target.Column = 7 And Target.Value &lt;= 48 Then Cells(4, 7).Value = 48 - Target.Value ElseIf Target.Row = 4 And Target.Column = 7 And Target.Value &lt;= 48 Then Cells(3, 7).Value = 48 - Target.Value ElseIf Target.Column = 7 And (Target.Row = 3 Or Target.Row = 4) And Target.Value &gt; 48 Then MsgBox ("Capacité dépassée !!!") End If Else MsgBox ("Format !") Target.Select End If End Sub Explications : Quand la valeur d'une cellule change, excel exécutera ce code, on va donc le restreindre avec des If If IsNumeric(Target.Value) = True Then =&gt; Si la nouvelle valeur est un nombre on continu sinon =&gt; petit message ("Format!") ( permet de ne pas faire planter la macro si l'on tape une lettre ou un mot, pour être rigoureux on aurait même du vérifier si c'est un entier, mais un nombre à virgule ne planterait pas la macro à première vue ^^) On vérifie ensuite si il s'agit d'une de nos deux cellules qui a changé If Target.Row = 3 And Target.Column = 7 And Target.Value &lt;= 48 Then =&gt; Si il s'agit de la cellule à la ligne 3 et à la colonne 7 ET que la nouvelle valeur ne dépasse pas 48 alors ... Cells(4, 7).Value = 48 - Target.Value On calcule la deuxième cellule ! On à le même type de code pour le cas ou on changerais la deuxième cellule ElseIf Target.Row = 4 And Target.Column = 7 And Target.Value &lt;= 48 Then Cells(3, 7).Value = 48 - Target.Value Il ne reste plus que le dernier cas, si l'on dépasse la capacité de 48 ElseIf Target.Column = 7 And (Target.Row = 3 Or Target.Row = 4) And Target.Value &gt; 48 Then MsgBox ("Capacité dépassée !!!") End If =&gt; On regarde si la valeur qui change est à la 7eme colonne et à la 3eme OU 4eme ligne et si la valeur est supérieure à 48 petit message "Capacité dépassée !!!" En espérant que ce soit clair...