Copier cellule en fonction d'une position précise VBA

Bonjour,

J'ai besoin de copier des cellules d'une feuille à l'autre en fonction de sélection de ma macro :

Dim O_Cell As Object
Dim C_UI As String

        C_UI = Sheets("CALCUL PSI9").Range("N16") 'valeur à chercher
        Application.Goto Reference:=Sheets("TABLEAU HISTORIQUE").Range("A1:J1000") ' "UI" est le nom de la zone de recherche
        Set O_Cell = Selection.Find(C_UI) ' recherche de la valeur
        If Not O_Cell Is Nothing Then 'si l'objet O_Cell contient les coordonnées de la cellule
                O_Cell.Select ' sélection de la cellule
        End If

En gros mes copies doivent se faire en fonction de la position de ma cellule sélectionnée.

Exemple : Ma macro m'indique la cellule D7 feuil1, du coup je dois copier la valeur qui se trouve en M6 sur feuille2 sur la cellule qui se trouve à -3 en Y et -2 en X sur ma feuil1 (B10). Cette copie doit se faire aussi avec d'autre cellule mais tjr en partant du point de départ D7 (la valeur que ma macro trouve)

MERCI!

VBA UNIQUEMENT!

Salut vaffancolor,

même si je saisis un peu le topo, c'est tellement imprécis que tu ne dois pas t'étonner de ne pas avoir de réponse!!!

Fais-nous des feuilles-exemples (départ-résultat souhaité), règles à suivre...

A+

Bonjour,

En attendant un complément d'informations, regarde ceci :

Public Sub XXX()
Dim O_Cell As Range, C_UI As String
    C_UI = Sheets("CALCUL PSI9").Range("N16")
    With Sheets("TABLEAU HISTORIQUE").Range("A1:J1000")
    Set O_Cell = .Find(what:=C_UI, LookIn:=xlValues, lookat:=xlWhole)
    If Not O_Cell Is Nothing Then
        O_Cell.Select
    End If
End Sub
Rechercher des sujets similaires à "copier fonction position precise vba"