Discussion :

[Doomro]

Bonjour à tous,

Je souhaite effectuer une recherche et récupérer une valeur dans une autre feuille de mon classeur sans activer celle-ci.
J'ai essayé plusieurs méthodes à l'aide d'un With ou non.

Voici le code en question :

Code :

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

1
2
3
4
5
6
Sub test()
    Set Plage = Worksheets(2).Range(Worksheets(2).[A3], Worksheets(2).[A3].Offset(Range("A65536").End(xlUp).Row - 3, 0))
    Set Trouve = Plage.Cells.Find(what:="- Hauteurs", LookAt:=xlWhole)
    nb = Worksheets(2).Trouve.Offset(0, 1).Value
    MsgBox nb
End Sub

J'obtiens une erreur à la ligne nb = car je ne peux pas faire Worksheets(2).Trouve.
Il est nécessaire que toute la recherche se fasse dans la feuille 2 sans que je bouge de ma feuille actuelle.

Merci d'avance et bonne soirée.

[casefayere]

bonjour,
inutile de répéter Worksheets(2), tu l'as déjà prévu

Code :

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

nb = Trouve.Offset(0, 1).Value

[Doomro]

Merci pour ta réponse, mais lorsque je ne le met pas j'ai une autre erreur à la même ligne : 91 Variable objet ou variable bloc With non définie.

[casefayere]

tout dépend comment tes variables sont déclarées, et si tu mettais le code complet.....

Pas de fichier car problèmes sur le site, actuellement

[Doomro]

Voici le code "complet", j'essaye de faire fonctionner ce morceau de code indépendamment pour pouvoir ensuite l'insérer dans un code plus complexe.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
Option Explicit
 
Sub test()
    Dim Plage as Range
    Dim Trouve as Range
    Dim nb as Long
    Set Plage = Worksheets(2).Range(Worksheets(2).[A3], Worksheets(2).[A3].Offset(Range("A65536").End(xlUp).Row - 3, 0))
    Set Trouve = Plage.Cells.Find(what:="- Hauteurs", LookAt:=xlWhole)
    nb = Trouve.Offset(0, 1).Value
    MsgBox nb
End Sub

Bonne soirée.

[casefayere]

je corrige à ma façon, dis-moi car bien sur je ne connais pas le fichier

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub test()
Dim Plage As Range
Dim Trouve As Range
Dim nb As Long 'si tu es sur que c'est un nombre
With Worksheets(2)
  Set Plage = .Range("A3", .Range("A" & .Rows.Count).End(xlUp).Offset(-3, 0))
  Set Trouve = Plage.Cells.Find(what:="- Hauteurs", LookAt:=xlWhole)
  If Not Trouve Is Nothing Then
    nb = Trouve.Offset(0, 1).Value 'doit donner un nombre
    MsgBox nb
  End If
End With
End Sub

[Doomro]

Génial, merci beaucoup !