XL 2010 Sélectionner les cellules concernées et non la ligne entière

[Romain31]

Bonjour à toutes et tous,

Cette macro recherche les données concernant les USA et sélectionne les lignes correspondantes.
Comment sélectionner uniquement les 4 cellules de chaque ligne et non la ligne entière.
Cirière supplémentaire : le tableau pouvant comporter plus de 4 colonnes.

Grand merci et excellente journée.
Prenez soin de vous.

 

[Hasco]

Bonjour,

Dans le fichier joint, je me suis contenté de rajouté 2 .Resize(,4)

Sub recherche_et_sélection_USA()
    Dim C As Range, lignes As Range

    Dim firstAddress As String

    With Sheets("Feuil1")
        .Activate
        'On précise la colonne de recherche sinon la recherche se fait dans toute la feuille
        With .Range("B:B")

            Set C = .Find(what:="USA", LookAt:=xlWhole)

            If Not C Is Nothing Then
                firstAddress = C.Address
                Set lignes = .Rows(C.Row).Resize(, 4)
                Do
                    Set lignes = Application.Union(lignes, .Rows(C.Row).Resize(, 4))
                    Set C = .FindNext(C)
                Loop While Not C Is Nothing And C.Address <> firstAddress
            End If
        End With
    End With

    If Not lignes Is Nothing Then lignes.Select

End Sub

cordialement

 

[pierrejean]

Bonjour Romain31
A tester:

Edit Salut Roblochon

 

[job75]

Bonjour Romain31, Roblochon, Pierre,

Sans Resize mais avec à la fin :

If Not lignes Is Nothing Then Intersect(lignes, [A:B]).Select

A+

 

[job75]

Avec le filtre automatique c'est plus simple et plus rapide :

Sub recherche_et_sélection_USA()
Sheets("Feuil1").Activate
On Error Resume Next
With [A1].CurrentRegion
    With .Offset(1).Resize(.Rows.Count - 1)
        Union(.Rows(0), .Cells).AutoFilter 2, "USA" 'filtre automatique
        .SpecialCells(xlCellTypeVisible).Select
    End With
    .AutoFilter
End With
End Sub

 

[Romain31]

Bonjour Reblochon, pierrejean et Job75
Merci pour vos réponses qui ont solutionné mon problème.