[Toutes versions] Macro pour sélectionner des lignes selon un critère

[logoyvelines]

Bonjour,
Je viens d'arriver sur ce Forum et je voudrai savoir comment faire pour selectionner des lignes en fonction d'une données presente dans une colonne. Exemple:
j'ai un tableau qui comporte 10 colonnes et un nombre de ligne variable.
Comment faire pour selectionner les lignes de la colonne A à la colonne E qui ont la valeur OUI en colonne G.
Merci d'avanvce pour votre aide car je suis complétement bloqué

[78chris]

Bonjour

Pourquoi ne pas utiliser un filtre automatique et choisir le critère "OUI" pour la colonne G ?

Ou bien je n'ai pas compris la question...

[jfontaine]

Bonjour,

Comme te le propose 78chris, tu peux utiliser le filtre automatique.

Code :

Range("G1").AutoFilter Field:=1, Criteria1:="OUI"

[Daniel.C]

Bonjour,

Pour sélectionner les lignes du tableau sans masquer les autres lignes :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Sub test()
    Dim c As Range, Plage As Range, Plage1 As Range, Result As Range
    Set Plage = Range([G1], Cells(Cells.Rows.Count, 7).End(xlUp))
    Set Plage1 = Plage.Offset(, -6).Resize(, 7)
    For Each c In Plage
        If c.Value = "OUI" Then
            If Result Is Nothing Then
                Set Result = Plage1.Rows(c.Row)
            Else
                Set Result = Union(Result, Plage1.Rows(c.Row))
            End If
        End If
    Next c
    If Not Result Is Nothing Then Result.Select
End Sub