copie

JeanMarie

XLDnaute Barbatruc

• 12 Juillet 2009

• #2

Re : copie

Bonjour Al1000

Un embryon de code

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

 

Dernière édition: 12 Juillet 2009

Vote positif 0 Vote négatif

A

al1000

XLDnaute Impliqué

• 12 Juillet 2009

• #3

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+

 

Vote positif 0 Vote négatif

JeanMarie

XLDnaute Barbatruc

• 12 Juillet 2009

• #4

Re : copie

Re...

Essaye ce code

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

 

Vote positif 0 Vote négatif

A

al1000

XLDnaute Impliqué

• 12 Juillet 2009

• #5

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+

 

Vote positif 0 Vote négatif

JeanMarie

XLDnaute Barbatruc

• 12 Juillet 2009

• #6

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

 

Vote positif 0 Vote négatif

A

al1000

XLDnaute Impliqué

• 13 Juillet 2009

• #7

Re : copie

bonjour,

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

a+

 

Vote positif 0 Vote négatif