Discussion :

[gperinaud]

Bonjour,

Ce que j'essaye de mettre en place: à partir de la cellule active d'un premier classeur, chercher le contenu dans la première colonne d'un second classeur et activer la cellule correspondante. J'ai donc testé le code suivant:

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
Option Explicit
 
Sub Cherche()
 
Dim Trouve As Range, PlageDeRecherche As Range
Dim Valeur_Cherchee As String, AdresseTrouvee As String, v As Variant
 
v = ActiveCell.Value
Valeur_Cherchee = v
 
Set PlageDeRecherche = Workbooks("NumeroDeux").Worksheets("Output").Columns(1)
Set Trouve = PlageDeRecherche.Cells.Find(what:=v, LookAt:=xlWhole)
 
If Trouve Is Nothing Then
    AdresseTrouvee = v & " n'est pas présent dans " & PlageDeRecherche.Address
Else
    AdresseTrouvee = Trouve.Address
    Workbooks("NumeroDeux").Worksheets("Output").Range(AdresseTrouvee).Activate
 
End If
 
MsgBox AdresseTrouvee
 
Set PlageDeRecherche = Nothing
Set Trouve = Nothing
End Sub

Mais apparaît la Message Box suivante --> Erreur d'exécution '1004': la méthode Activate de la classe Range a échoué
Le problème se situe sur cette ligne du code:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Workbooks("NumeroDeux").Worksheets("Output").Range(AdresseTrouvee).Activate

Merci d'avance pour votre aide précieuse!

[Patrice740]

Bonjour,

Il faut activer la feuille avant d'activer le Range :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
If Trouve Is Nothing Then
    AdresseTrouvee = v & " n'est pas présent dans " & PlageDeRecherche.Address
Else
    AdresseTrouvee = Trouve.Address
    Workbooks("NumeroDeux").Worksheets("Output").Activate
    Workbooks("NumeroDeux").Worksheets("Output").Range(AdresseTrouvee).Activate
End If

[gperinaud]

Merci beaucoup, tout fonctionne!