Recherchev et copier dans une cellule les données

[Florian95]

Bonjour à tous,

Encore un petit projet !
je souhaite réaliser une macro pour qui va copier les données en feuilles FP et qui va la coller dans la feuille variable.

contraintes de l'opération :
- copier la valeur dans la feuille FP et la coller dans la ligne correspondante et ce en fonction de la date.
- copier la valeur sous format numérique sans formule

j'ai tenté avec VLOOKUP mais il n'arrive pas à tenir compte de la date.

Exemple :
- copier la valeur 144 (feuille FP cellule m4) correpondant au cumul des heures trav. (feuille FP cellule F4) et ce pour la date du 01/01/2014 (feuille FP cellule f2)

- coller cette valeur dans la feuille "variables" cellule B4 sous format numérique. Cette valeur est donc dans la ligne 4 (cumul heures trav) et la colonne B (Janvier 2014)


Merci beaucoup de votre aide !

florian

PJ

 

[Robert]

Re : Recherchev et copier dans une cellule les données

Bonjour Florian, bonjour le forum,

Peut-être comme ça :

Sub Macro2()
Dim F As Object 'déclare la variable F (onglet FP)
Dim V As Object 'déclare la variable V (onglet Variables)
Dim M As Byte 'déclare la variable M (onglet Mois)
Dim COL As Byte 'déclare la variable COL (COLonne)

Set F = Sheets("FP") 'définit l'onglet F
Set V = Sheets("Variables") 'définit l'onglet V
M = Month(F.Range("F2").Value) 'définit le mois M
COL = M + 1 'définit la colonne COL
V.Cells(4, COL).Value = F.Range("M4:N4").Value 'récupère la valeur du cumul des heures travaillées
V.Cells(4, COL).NumberFormat = F.Range("M4").NumberFormat 'récupère le format de nombre
V.Cells(5, COL).Value = F.Range("M5:N5").Value 'récupère la valeur du cumul des jour travaillés
V.Cells(5, COL).NumberFormat = F.Range("M5").NumberFormat 'récupère le format de nombre
End Sub

 

[job75]

Re : Recherchev et copier dans une cellule les données

Bonsoir Florian95, Robert,

Juste quelques verres de Médoc ce soir, je ne devrais pas être transparent 😉

La question des formats me paraît très secondaire, formater comme on veut les lignes de destination !!!

Dans le code de la feuille "FP" :

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next 'si n'importe quoi en F2...
With Feuil4 'CodeName de la feuille de destination
.Cells(4, Application.Match([F2], .[1:1], 0)).Resize(2) = [M4].Resize(2).Value
End With
End Sub

La macro s'exécute quand on modifie la feuille.

A+

 

[Florian95]

Re : Recherchev et copier dans une cellule les données

Merci messieurs !

parfait !