selection automatique de cellules en VBA

Option Explicit

Sub TheInfoFinder()
Dim Plage As Range
Dim Cell As Range
Dim SearchString As String

SearchString = Sheets('Test').Range('A1')

With Sheets('résultat')
    Set Plage = .Range('A1:A' & .Range('A65536').End(xlUp).Row)
    .Activate
End With

For Each Cell In Plage
    If Cell.Text = SearchString Then
    ActiveWindow.ScrollRow = Cell.Row
    Range(Cell.Offset(1, 0), Cell.Offset(3, 0)).Select
   
    'Un Message pour faire zoli
    MsgBox Cell & vbCrLf & Cell.Offset(1, 0) & vbCrLf & _
            Cell.Offset(2, 0) & vbCrLf & Cell.Offset(3, 0), vbInformation
   
    End If
Next
End Sub

Cliquez pour agrandir...