Recherche dans colonne

[Romain]

Bonjour à tous,

Le code suivant me permet de rechercher un mot dans une feuille grâce à la variable (value) que j'ai déclarée précédemment - puis de sélectionner les lignes contenant le terme cherché. Hors, je souhaiterais que la recherche s'effectue uniquement sur la colonne F ou la plage F3:F1000.
J'ai tenté de modifier "With Cells" sans résultat.
Un grand merci aux spécialistes de la question.

Romain


Sheets("Base").Select

With Cells
'voir l'aide pour les differentes options de find
Set c = .Find(Value, , xlValues, xlPart, xlByRows, xlNext, False)
If Not c Is Nothing Then
firstAddress = c.Address
Set lignes = Rows(c.Row)
Do
Set lignes = Application.Union(lignes, Rows(c.Row))
Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Address <> firstAddress
End If
End With
lignes.Select

 

[Pascal76]

bonjour

Essaies en remplaçant

with cells

par

with Range("F3:F1000")

Sinon à ta place je n'utiliserais pas le nom "value" comme nom de variable c'est un nom utilisé par VBA

Bonne journée

Pascal

 

[Robert]

Salut Romain, salut le forum,

Commence la macro comme ça :

Sheets("Base").Select
With Range("F3:F1000")

À plus,

Robert

 

[Romain]

Merci Pascal,

C'est impreccable.
Pour le nom de la variable, tu as raison et je vais l'éviter dans l'avenir.

Bonne journée

Romain