Récupérer la valeur qui se trouve à quelques cellules de celles trouvées

[nougitch]

Bonjour,

Je récupère les cours de Bourse via l'option "Données externes" dans une feuille appelée "Récup. données".

Je souhaite que dans ma feuille "Tests", à côté du RIC (code de la valeur), apparaisse le cours de Bourse.
Pour cela, je fais une recherche du RIC sur la feuille "Récup. données".
J'arrive à retrouver le RIC, mais je ne sais pas comment lui dire de se décaler 4 cellules sur la droite et de me copier la valeur de cette case dans la feuille "Tests".

Voici mon ébauche.
Merci par avance pour votre aide.

Sub recuperation_cours()

Dim ric
Dim cel
ric = "MCD"
With Sheets("Récup. données").Range("A1:Z100")
    Set c = .Find(ric, LookIn:=xlValues)
    If Not c Is Nothing Then
        MsgBox ("trouvé en " & c)
        cel = Sheets("Récup. données").Range(c).Offset(2, 2)
        Sheets("Récup. données").Range(cel).Copy Destination:=Sheets("Tests").Range("C3")
    Else
        MsgBox ("Erreur !!!")
    End If
End With

End Sub

 

[Hervé]

Re : Récupérer la valeur qui se trouve à quelques cellules de celles trouvées

bonjour

à essayer :

Sub recuperation_cours()
Dim c As Range
Dim ric As String
Dim cel As Range
ric = "MCD"
With Sheets("Récup. données")
        Set c = .Range("A1:Z100").Find(ric, LookIn:=xlValues)
            If Not c Is Nothing Then
                MsgBox ("trouvé en " & c)
                Set cel = c.Offset(2, 2)
                cel.Copy Destination:=Sheets("Tests").Range("C3")
            Else
            MsgBox ("Erreur !!!")
        End If
End With

End Sub

salut

 

[nougitch]

Re : Récupérer la valeur qui se trouve à quelques cellules de celles trouvées

Merci beaucoup Hervé, c'est parfait comme ça !
++