Bonjour,

Donc je vous explique ce que je veux faire
Ensuite je vous donne ce que j'ai commencé a faire
et je vous dit ou ca ne fonctionne pas

Donc je voudrais rechercher la valeur d'une cellule du classeur 1
EX : Sheets("classeur1").Range("A1").Value = 5
Dans une plage d'un autre classeur ouvert sur le même excel.application

Voici donc 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
17
18
19
20
21
22
23
24
    Windows("classeur1.xls").Activate
 
   recherche = Sheets("Réception (1)").Range("A1").Value
    Windows("classeur2.xls").Activate
    Sheets("liste").Activate
 
    Range("A3").Select
    Selection.End(xlDown).Select
    ligne = ActiveCell.Row
 
    Range("G3:" & "G" & ligne).Select
 
    Selection.Find(What:=recherche, After:=ActiveCell, LookIn:=xlValues, _
        LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
        MatchCase:=False, SearchFormat:=False).Activate
 
    Selection.FindNext(After:=ActiveCell).Activate
    Selection.FindNext(After:=ActiveCell).Activate
    Selection.FindNext(After:=ActiveCell).Activate
    Selection.FindNext(After:=ActiveCell).Activate
    Selection.FindNext(After:=ActiveCell).Activate
    Selection.FindNext(After:=ActiveCell).Activate
 
End Sub
et donc ca bloque a ce niveau la :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
    Selection.Find(What:=recherche, After:=ActiveCell, LookIn:=xlValues, _
        LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
        MatchCase:=False, SearchFormat:=False).Activate
Je ne sais pas du tout comment faire
Merci