Discussion :

[Jakalop]

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

[fring]

Bonjour,

Tu fais une recherche dans les formules contenues dans les cellules et non sur les valeurs --> LookIn:=xlFormulas

[le petit nicolas]

c'est le "Activate" qui fait hurler la bête, car Activate ne renvoie aucune valeur booléenne (Dim Trouve as boolean)

Find renvoie une cellule, c'est à dire un objet Range
si Find ne trouve rien, cet objet Range est égal à Nothing. Si tu essaye de le selectionner (Activate) ca entraine une erreur
si Find trouve quelque chose, tu peux alors le selectionner

de plus la remarque de Fring est judicieuse

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
17
18
19
 
Sub Test()
Dim Reponse As String
Dim Trouve As Range ' <--- MODIF
 
Reponse = InputBox("Entrer la valeur recherchée", "Module de recherche")
Range("A6:A10000").Select
Trouve = Selection.Find(What:=Reponse, After:=ActiveCell, LookIn:=xlvalues, _
        LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
        MatchCase:=False, SearchFormat:=False).Activate
 
If Trouve Is Nothing Then ' <--- MODIF
    'PAS TROUVE
    MsgBox ("Valeur non trouvée")
Else
   ' TROUVE
    Trouve.Select
End If
End Sub