Bonjour,
Je cherche à ouvrir une inputbox pour rechercher un mot dans plusieurs feuilles d'un classeur.

Mon code ne me renvoie rien du tout après l'avoir trituré 1H.

Le 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
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
Sub MaRECH()
'
' MaRECH Macro
'
 
'
Dim MaRecherche As String
 
MaRecherche = InputBox(MaRecherche, "Qui?")
 
 
 
    Dim i As Integer
 
    i = 6
    While i <= 64
 
    Worksheets(i).Activate
    Range("A1:A100").Select
 
    With Selection
 
 
 
    Set MotTrouvé = .Cells.Find(What:=MaRecherche, LookIn:=xlValues, LookAt:=xlPart) ', SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False)
 
 
 
    If Not MotTrouvé Is Nothing Then
 
    MsgBox MoTrouvé
 
        MotTrouvé.Select
 
        Exit Sub
 
        End If
 
 
    End With
 
    i = i + 1
 
    Wend
End Sub
L'objet de la recherche est un mot issu d'une formule.

Si quelqu'un peut me débloquer, MERIC!!!!!!!!!!!!!!!!!