Discussion :

[kstorfou]

Bonjour,
plutot que d'appliquer ce code pour chaque cellule, je voudrais le faire juste à la premiere pour ensuite "étirer vers le bas"
Quelqu'un pourrait-il me dire comment mettre plusieurs conditions dans une formule pour retranscrire le code suivant dans une seule formule:

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
17
18
19
20
ts = 15    
k = 0
Do While Not (IsEmpty(.Cells(34 + k, 1)))
 
   conso_com = .Cells(34 + k, a).Value
   tr = .Range("B" & 34 + k).Value
   tn = .Range("C" & 34 + k).Value
   grd = .Cells(34 + k, 4).Value
 
   If tr < ts And tn < ts Then
       .Cells(34 + k, a + 1).Value = conso_com * (1 - grd * (tn - tr) / 100)
   ElseIf tr < ts And tn >= ts Then
       .Cells(34 + k, a + 1).Value = conso_com * (1 - grd * (ts - tr) / 100)
   ElseIf tn < ts And tr >= ts Then
       .Cells(24 + k, a + 1).Value = conso_com * (1 - grd * (tn - ts) / 100)
   ElseIf tn >= ts And tr >= ts Then
       .Cells(24 + k, a + 1).Value = conso_
   End 
   k = k + 1
Loop

Merci de votre aide !

[kstorfou]

en me creusant un peu le crane j'ai fini par trouver:

Code :

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

1
2
3
4
5
6
7
a = .Range("E33").End(xlToRight).Column
p = .Range("A65536").End(xlUp).Row
 
    ts = 15
 
    .Cells(34, a + 1).Value = "=IF(AND(RC2<" & ts & ",RC3<" & ts & "),RC[-1]*(1-RC4*(RC3-RC2)/100),IF(AND(RC2<" & ts & ",RC3>=" & ts & "),RC[-1]*(1-RC4*(" & ts & "-RC2)/100),IF(AND(RC3<" & ts & ",RC2>=" & ts & "),RC[-1]*(1-RC4*(RC3-" & ts & ")/100),IF(AND(RC3>=" & ts & ",RC2>=" & ts & "),RC[-1]))))"
    Range(.Cells(34, a + 1), .Cells(p, a + 1)).FillDown