VBA - Range select

Bonjour,
J'essaye de faire une petite maco qui recherche une valeur dans une ligne, quand la valeur est trouvée il sélectionne la cellule en dessus...je pense que c'est tout simple mais je n'y arrive pas.
Pouvez-vous m'aider, merci tout plein.

Code:

---

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

Sub boucle()   Dim cell As Variant   For Each cell In Range("A2:F2") If cell.Value = 221 Then cell.Select   Next cell   Cells(ActiveCell.Rows - 1).Select   End Sub

---

Ta macro est presque juste. Il aurait fallu écrire :

Code:

---

ActiveCell.Offset(-1).Select

---

au lieu de :

Code:

---

Cells(ActiveCell.Rows - 1).Select

---

ou, pour sortir de la boucle quand l'égalité est trouvée :

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Sub boucle()   Dim cell As Variant   For Each cell In Range("A2:F2") If cell.Value = 221 Then cell.Offset(1).Select Exit For End If Next cell End Sub

---