Bonjour chers Foouriiimiiistes de luxe ,

je suis entrain de développer un petit text de code qui permer de remplir deux cellule par leur valeur + une varriable X qui change selon des condition ,
OR en fin de compte rien ne change

Voilà le CODE :

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
21
22
23
24
25
26
27
28
 
 
 
Dim X, Y As Variant
 
Y = WBS.Sheets(1).Range("G" & j + 2).Value
If Y <= 0.3 Then
X = 3
Else
If Y = 0.5 Then
X = 1.5
Else
If Y = 0.75 Or Y = 0.85 Then
X = 1.3
If Y >= 1.25 Then
X = 1.2
End If
End If
End If
End If
 
If IsNumeric(X) Then
WBC.Sheets(i).Range("F3") = X & WBC.Sheets(i).Range("F3").Value
WBC.Sheets(i).Range("F7") = X & WBC.Sheets(i).Range("F7").Value
Else
WBC.Sheets(i).Range("F3") = "Not applicable"
WBC.Sheets(i).Range("F7") = "Not applicable"
End If

Merci d'avance !!!