Sélection automatique sur recherche

[ixelo]

Bonsoir à tous.

Une petit blocage (pour moi)qui n'en sera certainement pas un pour vous.

Sur le fichier joint (exemple), je fais une recherche par macro dans la colonne A.
Lorsque je trouve ma recherche (exemple:'C')
je voudrais sélectionner de façon automatique toutes les cellules (colonnes a,b,c,d) qui ont 'C' recherche en colonne A.

Excel2000

Merci a vous.

 

[Charly2]

Bonsoir ixelo 🙂

Comme tu n'as pas réussi à joindre ton fichier, je ne peux que 'supputer', supputerai-je à tort ? C'est toi qui le dira après avoir lu la procédure que je te propose :

Option Explicit

Sub RechercheColA()
'
Dim Cell As Range
Dim Plage As Range
Dim PremAdresse$
'
  With ActiveSheet.Range('A:A')
    Set Cell = .Find(what:='C', LookIn:=xlValues, lookat:=xlWhole)
    If Not Cell Is Nothing Then
      PremAdresse = Cell.Address
      Set Plage = Range(Cells(Cell.Row, 1), Cells(Cell.Row, 4))
      Set Cell = .FindNext(Cell)
      Do While Not Cell Is Nothing And PremAdresse ‹› Cell.Address
        Set Plage = Union(Plage, Range(Cells(Cell.Row, 1), Cells(Cell.Row, 4)))
        Set Cell = .FindNext(Cell)
      Loop
      Plage.Select
    End If
  End With
End Sub

En cas de copier/coller, remplacer les pseudos caractères ‹› par leur équivalent clavier...

En espérant que cela réponde à ta demande :unsure:

A+ 😉

 

[ixelo]

Merci Charly

Même sans fichier joint tu as trouvé la solution.

Vraiment épaté.

Bon week end

 

[ixelo]

Merci Charly

Même sans fichier joint tu as trouvé la solution.

Vraiment épaté.

Bon week end