Discussion :

[jerome.cubi]

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 :

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

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

[Daniel.C]

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

Code :

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

ActiveCell.Offset(-1).Select

au lieu de :

Code :

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

Cells(ActiveCell.Rows - 1).Select

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

Code :

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

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