Pas de résultat dans ma variable

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:

---

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 !!!

Qu'entend-tu par "Rien ne change" ? X ne change pas de valeur ? ça voudrait dire que tu ne rentre dans aucune condition ?

Si oui, essaye de faire un MsgBox sur ta valeur Y déjà pour voir combien ça te renvoie, ça va peut-être t'aider à trouver ton souci :)

Dans un deuxième temps, je te conseille aussi d'utiliser des ElseIf, plutôt que des If imbriqués, ça sera plus lisible :)

Et c'est quoi WBS et WBC ??

Si y est supérieur à 0.3 inférieur à 1.25 différent de 0.5 de 0.75 et de 0.85

X ne vaudra rien

Si tu veux additionner...

Code:

---

1 2 3 4

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

---

Le & n'additionne pas mais concatenne

Quick response !

Merci à vous deux :)

illight

J'ai utilisé

Code:

---

1 2	MsgBox ("X = " & X & " Y = " & Y)

---

et X ne vaut toujours rien :/ .. et malgrés on rentre dans une condition ?

WBC et WBS sont les classeur cible et source enfait c'est un long traitement ,

et le blocage etst à ce niveau , je veux juste un programme pareil qui fais des test par condition tel que celle dans le code et qui renvoi la valeur de F3 et F7 selon la valeur de X :)

EngueEngue ;

Merci également , et c'est trés intelligent de ta part de poser la question mais enfait , la valeur de "F3" par exemple soit :
la valeur de stocké en X + cell déja dans la cellule F3 ,
et pareil pour la cellule F7
est ce que ce code résolve le probléme.. si oui le probléme restera dans la valeur de X ! :(

Code:

---

1 2 3 4

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

---

Le problème vient donc de là:

Code:

---

Y = WBS.Sheets(1).Range("G" & j + 2).Value

---

j ne bouge pas dans ton code...
Alors si j vaut 0 qu'est ce qu'il y a en G2 ?

Il ya dans G2 1,25

mais les condition se faite avec des 1.25 et non plus la virgule est ce que ça qui fais le probléme !!

est ce qu'il y'as une autre structure de code qui pourras me faire la méme chose !


Merci bcp !!

Il te manque un Else dans ton CODE.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

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 Else If Y >= 1.25 Then X = 1.2 End If End If End If End If

---

Ouii ca marche maintenant ; X prend la valeur exacte ,

reste maintenat à changer la valeur de :

Code:

---

WBC.Sheets(i).Range("F7") par X & WBC.Sheets(i).Range("F3").Value

---

et de

Code:

---

WBC.Sheets(i).Range("F7") par X & WBC.Sheets(i).Range("F8").Value

---

elle ne change pas de valeur méme si X vaut 1,2

La réponse à ta question c'est pas la réponse qu'il t'avais déjà faite :

Citation:

---

Envoyé par EngueEngue

Si tu veux additionner...

Code:

---

1 2 3 4

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

---

Le & n'additionne pas mais concatenne

---

?

De là la pertinence d'utiliser des ElseIf comme suggéré par Illight
Ou encore un Select Case

Non , parceque la valeur dans les cellule F3 et F7 sont des text , et moi je veux que la valeur de ces deux cellule soit comme suit :

Exemple;

sie la valeur de F3 = Max

et X vaut 1,2

La valeur de F3 devrais devenir = 1.2MAX

Merci encore et encore une fois !

Marche chez moi

Code:

---

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

Dim X Y = Feuil1.Range("G" & j + 2) 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 Else If Y >= 1.25 Then X = 1.2 End If End If End If End If   If IsNumeric(X) Then Feuil1.Range("F3") = X & Feuil1.Range("F3").Value Feuil1.Range("F7") = X & Feuil1.Range("F7").Value Else Feuil1.Range("F3") = "Not applicable" Feuil1.Range("F7") = "Not applicable" End If

---

Yeeeeeeeeees !!! Tu est top toi .. merci beaucoup .. Chef !

La shokrane allaouajib maalem