copie

[al1000]

Bonjour,

je voudrai copier les valeurs r3 à u4:

0:00:00 0:00:00 0:00:00 0:00:00
0 0 0 0

de la feuil 1


en fonction de la date qui est en j8
je vais ouvrir l'onglet correspondant au mois

et je copie les valeurs dans l'onglet du mois
sur la ligne correspondant au jour ( valeur de la cellule j8)

comment ecrire la macro?


a+

 

[JeanMarie]

Re : copie

Bonjour Al1000

Un embryon de code

Sub Macro2()
'Cela commence par des explications claires
End Sub

Autant te dire que je n'ai pas apprécié ta réponse

@+Jean-Marie

 

[al1000]

Re : copie

bonjour,


jean marie: j'ai essayé de decomposer le raisonnement.


1) je voudrai copier les valeurs r3 à u4 dans la feuil 1:

2) en fonction du mois qui est en j8 feuil 1
je vais ouvrir l'onglet correspondant au mois (par exemple l'onglet:"7")

3) je recopie les donnees (les valeurs r3 à u4 dans la feuil 1) sur la ligne correspondant au jour de la valeur de la cellule j8 feuil 1.


est ce plus clair

j'ai aussi joint le fichier

le point 1 est l(objectif

le point 2 et 3 est la demarche.


a+

 

[JeanMarie]

Re : copie

Re...

Essaye ce code

Sub Macro2()
With Worksheets("Feuil1")
    .Range("R3:U4").Copy
    Worksheets(CStr(Month(.Range("J8")))).Range("G4:J6").Offset(Day(.Range("J8") * 2), 0).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
End With
End Sub

@+Jean-Marie

 

[al1000]

Re : copie

bonjour

la macro se bloque ici:


Worksheets(CStr(Month(.Range("J8")))).Range("G4:J6").Offset(Day(.Range("J8") * 2), 0).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

pourquoi?

a+

 

[JeanMarie]

Re : copie

Re....

Quel est le message d'erreur ?

Attention, au nom des feuilles, dans ton exemple tu avais mis des mois numérique...

@+Jean-Marie

 

[al1000]

Re : copie

bonjour,

le mois est 7 ( j'ai donné comme nom pour l'onglet 7 pour juillet)

a+