Re : Rechercher une cellule et la selectionner
Bonjour,
En fonction de ce que j'ai compris :
Place cette macro dans un module standard ou dans le module de la feuille où l'action se déroule.
'------------------------------------------------------
Sub test()
Dim Trouve As Range, Expression As Variant
Dim Adr As String
Expression = Application.InputBox( _
Prompt:="Ville recherchée?", Type:=2)
If Expression = False Then Exit Sub
If Expression = "" Then Exit Sub
With Worksheets("Feuil1")
Adr = .UsedRange.Address
With .UsedRange
Set Trouve = .Find(What:=Expression, LookIn:=xlValues, _
LookAt:=xlWhole, MatchCase:=False)
End With
If Not Trouve Is Nothing Then
Trouve.Select 'où le traitement que tu veux appliquer
Else
MsgBox "Pas trouvé l'expression : " & Expression
End If
End With
End Sub
'------------------------------------------------------
