Selectionner plusieurs lignes

[crapoto]

Bonjours le forums

J'ai une question (toute simple surement pour vous), je voudrait selectionner toutes les lignes qui comporte le chiffre 10 en A:A.

J'ai écrit un code tout simple, qui ne selectionne qu'une ligne, ce qui est normal qu'en on lis le code. Je trouve pas le petit truc pour selectionner plusieurs lignes.
Si quelqu'un pouvait me donner un petit coup de pouce.


Sub dix()

For Each i In Range(('A1:') & Range('A65536').End(xlUp).Address)
If i.Value = 10 Then i.EntireRow.Select
Next

End Sub


un grand merci

 

[crapoto]

J'ai éssayer ça qui est plus clair, mais qui donne la même chose


Sub dix()

For i = 1 To Range('A65536').End(xlUp).Row
If Range('a' & i).Value = 10 Then Range('a' & i).EntireRow.Select

Next
End Sub

 

[toto]

Bonjour

petite question, que veux-tu faire après avoir sélectionné tes lignes ?

A bientôt

 

[crapoto]

Bonjours
c'est juste pour les reperées dans la feuilles,
je ne veux pas changer ni le contenu, ni les attributs ou mise en forme.

 

[2passage]

Bonjour,

finallement, l'inspiration est venue.. voici le code à coller sur un bouton : il parcours la selection active et selectionne les lignes ou An = 10

Private Sub CommandButton1_Click()
Dim selstr As String
For Each ligne In ActiveWindow.RangeSelection.Rows
If Cells(ligne.Row, 1).Value = 10 Then
    If selstr <> '' Then
        selstr = selstr & ',' & ligne.Row & ':' & ligne.Row
    Else
        selstr = ligne.Row & ':' & ligne.Row
    End If
End If
Next
Range(selstr).Select
End Sub

enjoy

 

[crapoto]

Salut,
Merci de votre aide, j'aurais jamais trouver tout seul
A bientot