Problème macro avec If

Bonjour à tous.

Je vous explique mon problème : j'ai crée une macro sous excel 2007 cependant elle ne fonctionne qu'à moitié pour ne pas dire qu'elle ne fonctionne pas. Voici la macro en question :

Code:

---

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

For i = 2 To ActiveSheet.UsedRange.Rows.Count   If 1 <= Range("F" & i).Value <= 3 Then Range("AF" & i).Value = 1 ElseIf 4 <= Range("F" & i).Value <= 6 Then Range("AF" & i).Value = 2 ElseIf 7 <= Range("F" & i).Value <= 9 Then Range("AF" & i).Value = 3 Else Range("AF" & i).Value = 4 End If Next i

---

Le problème est qu'il m'écrit la valeur 1 dans toute mes cellules que ma condition soit entre 1 et 3 ou entre 4 et 6. Je pensais pourtant avoir utilisé la bonne méthode. Si vous avez des idées n'hésitez pas! Merci.

Tu ne dois pas écrire

Code:

---

If 1 <= Range("F" & i).Value <= 3 Then

---

mais plutot

Code:

---

If Range("F" & i).Value <=1 And Range("F" & i).Value <= 3 Then

---

Salut

Ta syntaxe n'est pas correcte

Tu peux utiliser des case

Code:

---

1 2 3 4 5 6 7 8 9 10

select case Valeur case 1 to 3 .... case 4 to 6 ... case 7 to 9 ... case else ... end select

---

-={-_-}=-: Attention. tu as inversé le signe du premier test...

Effectivement ça fonctionne! Merci beaucoup pour votre aide ! :ccool: