Effectuer un relevé de valeurs sur une page précise

Bonjour,

Avec l'aide de Juice dans une autre discussion (https://forum.excel-pratique.com/viewtopic.php?f=2&t=118460), je suis parvenu à un programme permettant de relever des valeurs en fonction d'une référence :

Sub Ch()
Dim Ws As Worksheet
Dim C As Range
Dim R As String
For x = 3 To Range("B" & Rows.Count).End(xlUp).Row
    R = Cells(x, 2)
    If Left(Cells(x, 1), 1) = "0" Then R = Right(Cells(x, 1), Len(Cells(x, 1) - 1))
    For Each Ws In Worksheets
        If Ws.Name <> ActiveSheet.Name Then Set C = Ws.Cells.Find(R)
        If Not C Is Nothing Then Cells(x, 12) = Ws.Cells(C.Row, C.Column + 1)
    Next Ws
Next
End Sub

Donc admettons que la référence AAA1 est présente sur ma page 1, le programme va chercher une case avec la même référence dans mon classeur et va copier la valeur correspondante dans ma page 1.

Le programme fonctionne, mais je viens vers vous pour un programme concernant la récupération des données :

La même référence peut apparaître plusieurs fois dans le classeur avec des valeurs différentes, sauf que je veux uniquement les valeurs venant de la page "Relevé".

For Each Ws In Worksheets

Ainsi que la suite du programme pour faire uniquement la recherche sur ma page "Relevé" au lieu que dans tout le classeur.

J'ai essayé de remplacer cette ligne par une variable contenant ma page :

Page = Worksheets("Relevé")
For Each Ws In Page

Ainsi qu'en mettant ma page "Relevé" comme page active, mais je n'arrive à rien

Pourriez-vous m'aider à localiser la recherche ?

Merci, Devery

Bonjour, si je comprends bien tu n'as plus besoin de parcourir toutes les feuilles, ça te donnera donc ça :

Sub Ch()
Dim C As Range
Dim R As String
For x = 3 To Range("B" & Rows.Count).End(xlUp).Row
    R = Cells(x, 2)
    If Left(Cells(x, 1), 1) = "0" Then R = Right(Cells(x, 1), Len(Cells(x, 1) - 1))
    With Worksheets("Relevé")
        If .Name <> ActiveSheet.Name Then Set C = .Cells.Find(R)
        If Not C Is Nothing Then Cells(x, 12) = .Cells(C.Row, C.Column + 1)
    end with
Next x
End Sub

Merci de me dire si c'est bon

Bonjour Ausecour,

Cela fonctionne parfaitement !

Je savais que c'était une erreur de syntaxe, mais pas moyen de trouver laquelle.

Merci beaucoup pour ta réponse si rapide !

Bonne journée à toi et encore !

De rien

Merci à toi pour ce retour positif! (et d'avoir passé le sujet en résolu, ça nous aide vraiment).

Bonne continuation