Excel : Selection de lignes selon sa valeur

Voilà mon souci, j'aimerai selectionner toutes les lignes (et non les cellules) qui ont pour valeur "9" dans la colonne E.

Mon code est le suivant mais en vain... :

Worksheets(1).Activate

Range("E2").Select

For i = 1 To (Range("E65536").End(xlUp).Row)
    If ActiveCell = "9" Then

       ActiveCell.EntireRow.Select
       ActiveCell.Offset(1, 0).Select

    Else

        ActiveCell.Offset(1, 0).Select

    End If

    i = i + 1

Next i

Ca doit etre tout bête mais là....je sature

Merci d'avance.

voici une procédure qui réalise ce que tu demandes ;)
Pour qu'elle fonctionne, il faut qu'il n'y ait pas de lignes vides dans tes données, sinon tu peux reprendre une autre valeur de fin de boucle que la currenregion.rows.count ;)

Sub SelectColEValue9()
Dim resultat As Range
Dim i As Long
Worksheets(1).Activate

Range("E2").Select
For i = 2 To (Range("E2").CurrentRegion.Rows.count)
    If Cells(i, 5).Value = "9" Then
       Set resultat = Range("E2").CurrentRegion.Rows(i)
       Exit For
    End If
Next i
For i = (i+1) To (Range("E2").CurrentRegion.Rows.count)
    If Cells(i, 5).Value = "9" Then
       Set resultat = Union(Range("E2").CurrentRegion.Rows(i), resultat)
    End If
Next i
resultat.Select
End Sub

Super, je te remercie beaucoup !!

J'avais encore essayé sous d'autres formes mais...tjrs rien !!

Merci beaucoup ça marche nikel

de rien

En revanche si on veut chercher un mot...cela ne marche pas !

Est ce que par hasard tu saurais d'où ça vient ?

j'ai testé avec des recherches de string et je ne vois pas de probleme suffit de remplacer les deux occurences de "9" par le string ou le mot

Lut,
Pour rechercher un mot utilise Like à la place de =
If Cells(i, 5).Value = "9" Then
If Cells(i, 5).Value Like "*" & "Toto" & "*" Then

Cordialement, Jean-Paul  
______________________________________________________________________

Le Savoir n'a de valeur que s'il est partagé

Il me marque erreur 91 : Variable objet ou variable bloc With non définie...
Je ne comprends pas. Meme en rajoutant à la fin :

Set Resultat = Nothing


Cela ne change pas grand chose...

Ok no pbr ca marche ! Je me suis embrouillé tout seul avec les boucles...
NO COMENT

Je vous remercie pour votre aide.