Bonjour,

Je cherche à faire une petite macro qui, en cliquant sur un bouton, active la cellule où se trouve le texte saisi dans un InputBox.

Voici mon code :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
Sub Test()
Dim Reponse As String
Dim Trouve As Boolean
 
Reponse = InputBox("Entrer la valeur recherchée", "Module de recherche")
Range("A6:A10000").Select
Trouve = Selection.Find(What:=Reponse, After:=ActiveCell, LookIn:=xlFormulas, _
        LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
        MatchCase:=False, SearchFormat:=False).Activate
If Trouve = True Then
    ActiveCell.Offset(0, 0).Select
Else
    MsgBox ("Valeur non trouvée")
End If
End Sub
Mais cela ne fonctionne pas.
Si quelqu'un a une idée.
Merci

Arnaud