Discussion :

[sharox]

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

[parmi]

Bonjour, tu pourrais essayer ainsi en changeant les noms des classeurs et des feuilles au besoin

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
Sub Rechercher()
    Dim Valeur As Long
    Dim Recherche As Range
    Dim CurBook As Workbook, DataBook As Workbook
 
    Set CurBook = ActiveWorkbook
    Valeur = Range("A1")
 
    Windows("Classeur5").Activate  'peut prendre l'extension
    Set DataBook = ActiveWorkbook
 
    'Changer Activesheet au besoin
    Set Recherche = DataBook.ActiveSheet.Columns("G").Find(Valeur, LookIn:=xlValues, LookAt:=xlWhole)
    If Not Recherche Is Nothing Then
        MsgBox "La valeur a été trouvée à la ligne " & Recherche.Row
    End If
 
'    DataBook.Close False  'si nécessaire
 
    'Libérer la mémoire
    Set DataBook = Nothing
    Set CurBook = Nothing
    Set Recherche = Nothing
End Sub

[sharox]

pas bête oui
Merci beaucoup j'ai réussi