copie

[a10]

bonjour

je voudrai copier par une macro

les valeurs de l'onglet relevés(ils sont dans un autre classeur) mais pour simplifier je l'ai ai mis dans le même classeur que mes résultats)

1/ copie de la cellule b10 à e10

2/ a2 donne l'onglet à ouvrir

3/ a4 doit copier dans la colonne f du jour demandé

comment trouver cetet macro?

 

[Robert]

Re : copie

Bonjour A10, bonjour le forum,

Une macro à adapter à ton cas et à placer dans le classeur source :

Sub Macro1()
Dim ncc As String 'définit la variable ncc (Nom du Classeur Cible)
Dim cs As Workbook 'définit la variable cs (Classeur Source)
Dim cc As Workbook 'définit la variable cc (Classeur Cible)
Dim os As Object 'définit la variable os (Onglet Source)
Dim oc As Object 'définit la variable oc (Onglet Cible)
Dim dest As Range 'définit la variable dest (cellle de DESTination)

ncc = "Cible.xls" 'à adapter à ton cas
Set cs = ThisWorkbook 'définit le classeur source cs
Set os = cs.Sheets("relevés") 'définit l'onglet source os
Set cc = Workbooks(ncc) 'définit le classeur cible cc
Set oc = cc.Sheets(os.Range("A2")) 'définit l'onglet cible oc
Set dest = oc.Columns(5).Find(CStr(Day(os.Range("A4").Value)), , xlValues, xlWhole).Offset(0, 1) 'définit la cellule de destination dest
os.Range("B10:E10").Copy dest 'copy la plage B10:E10 de l'onglet source et la colle dans la cellule de destination
End Sub

Attention, ce code exige que les deux classeurs (Source et Cible) soient ouverts...

 

[a10]

Re : copie

bonjour

je vais essayer de comprendre mais cela semble compliqué.

a+

 

[a10]

Re : copie

Bonjour,

Je n'arrive pas à comprendre la macro et surtout je n'arrive pas à l'adapter.

a+