Rechercher une cellule et la selectionner

[hassan.zer]

Bonjour à tous,

Je souhaite lancer une recherche sur une feuille de calcul et selectionner la cellule contenant ma recherche
avec du code vba
Voici un exemple,
merci

 

[MichD]

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
'------------------------------------------------------

 

[hassan.zer]

Re : Rechercher une cellule et la selectionner

Merci beaucoup !
C'est exactement ce que je voulai ! youpi