Selectionner plusieurs lignes

C

crapoto

XLDnaute Nouveau

• 21 Juin 2005

• #2

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

 

Vote positif 0 Vote négatif

T

toto

Guest

• 21 Juin 2005

• #3

Bonjour

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

A bientôt

 

Vote positif 0 Vote négatif

C

crapoto

Guest

• 21 Juin 2005

• #4

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.

 

Vote positif 0 Vote négatif

2passage

XLDnaute Impliqué

• 21 Juin 2005

• #5

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

Code:

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

 

Vote positif 0 Vote négatif

C

crapoto

XLDnaute Nouveau

• 21 Juin 2005

• #6

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

 

Vote positif 0 Vote négatif