Discussion :

[business]

Bonjour,

Un tableau intègre 3 cellules X, Y et Z dans lesquelles je peux saisir un nombre compris entre 0 et 100.
La somme de ces 3 cellules doit faire 100.
L'objectif :
Si un nombre est saisi en X et en Y alors la cellule Z se calcule automatiquement pour que x+y+z =100
Si un nombre est saisi en Y et en Z alors la cellule X se calcule automatiquement pour que x+y+z=100
etc...
Est-ce possible ?

Merci d'avance,

[jfontaine]

Bonjour,

Ci dessous une solution avec les colonnes A B C

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Private Sub Worksheet_Change(ByVal Target As Range)
Dim i As Long
 
i = Target.Row
 
 
'Test si au minimum 2 colonnes de renseignées
If Application.WorksheetFunction.CountA(Range("A" & i & ":C" & i)) = 2 Then
    'Cherche la cellule vide
    If Range("A" & i).Value = "" Then Range("A" & i).Value = 100 - Range("B" & Target.Row).Value - Range("C" & Target.Row).Value
    If Range("B" & i).Value = "" Then Range("B" & i).Value = 100 - Range("A" & Target.Row).Value - Range("C" & Target.Row).Value
    If Range("C" & i).Value = "" Then Range("C" & i).Value = 100 - Range("B" & Target.Row).Value - Range("A" & Target.Row).Value
End If
 
 
End Sub