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!