selection de ligne en fonction du contenu

[Amaury11100]

Bonjour,
Dans le fichier joins, j'aimerai bien que cela selectionne automatiquement les lignes où se trouvent "y"
Merci D'avance.
Amaury

 

[Spitnolan08]

Re : selection de ligne en fonction du contenu

Bonjour,

Tes explications sont très succintes. Tu peux par exemple utiliser, à placer dans ThisWorkbook :

Private Sub Workbook_Open()
Dim Plage As Range
Dim Cel As Range

With Sheets(1)
    Set Plage = .Range("A1:A65500").Find("y")
    For Each Cel In .Range("A1:A" & .Range("A65500").End(xlUp).Row)
        If Cel.Value = "y" Then Set Plage = Union(Plage, Cel)
    Next
    Plage.Select
End With
End Sub

Cordialement

 

[Amaury11100]

Re : selection de ligne en fonction du contenu

Est-ce que c'est possible que cela sélectionne les lignes entières ?

 

[Spitnolan08]

Re : selection de ligne en fonction du contenu

Re,

Oui, bien sûr, il suffit de remplacer :

Plage.Select

par

Plage.EntireRow.Select

Cordialement

 

[Amaury11100]

Re : selection de ligne en fonction du contenu

Re,

Oui, bien sûr, il suffit de remplacer :

Plage.Select

par

Plage.EntireRow.Select

Cordialement

Impeccable, merci beaucoup.
Bonne journée.

Amaury.

 

[Spitnolan08]

Re : selection de ligne en fonction du contenu

Re,

Juste deux détails que j'ai omis :
1/ tes lettres n'ont pas besoin d'être classées. Tu peux avoir de x mélangés avec des y des z.... sans qu'ils soient contigus.
2/ Pour éviter un bug s'il n'y a pas de "y" ajoute avant l'instruction

Plage.EntireRow.Select

celle ci :

On Error Resume Next

Cordialement