macro de copie de données soumise à condition

sebascel · 24 Avril 2010

Bonjour

Je commence par m’excuser pour les explications un peu confuses de la description de mon problème.
En faite, je souhaite créer une feuille de saisie de données indiquant la semaine de la saisie et en pages 2 un "calendrier" répertoriant" les résultats par semaine
J'ai pour l'instant réussit à faire la copie des données intéressantes dans la deuxième page mais je n'arrive toujours pas à copier mes données dans les bonnes colonnes c'est-à-dire en dessous de la colonne correspondant a la semaine. En effet si je change la semaine de la feuille 1 quand j’’effectue ma copie j’écrase automatiquement les données que j’avais entrée précédemment au lieu de les copier dans une autre colonne.
Pouvez-vous m’aider s’il vous plait ??

merci d'avance

mth · 24 Avril 2010

Re : macro de copie de données soumise à condition

Bonsoir,

Un petit essai:

Code:

Sub Extract_OnClic()
 
Sheets("Data").Range("C75:C87").Copy
Sheets("semaines").Range("AZ5").End(xlToLeft).Offset(0, 1).PasteSpecial Paste:=xlValues
Application.CutCopyMode = False
End Sub

@ +

Edit: bonsoir Roger, bien plus pro évidement, merci et bonne nuit 🙂
m

ROGER2327 · 24 Avril 2010

Re : macro de copie de données soumise à condition

Bonjour sebascel

Essayez ceci :

Code:

[COLOR="DarkSlateGray"][B]Sub Extract_OnClic()
Dim c
   Worksheets("data").Range("C75:C87").Copy
   With Worksheets("semaines")
      .Activate
      Set c = .Range("D4:AK4").Find(What:=Worksheets("data").Range("C2").Value, _
         LookIn:=xlFormulas, LookAt:=xlWhole, SearchOrder:=xlByRows, _
         SearchDirection:=xlNext, MatchCase:=True, SearchFormat:=False)
      If Not c Is Nothing Then c.Offset(1, 0).PasteSpecial Paste:=xlValues, Transpose:=False
   End With
   Application.CutCopyMode = False
End Sub[/B][/COLOR]

ROGER2327
#3328

sebascel · 25 Avril 2010

Re : macro de copie de données soumise à condition

Merci beaucoup a vous deux je viens d'essayer et c'est tout simplement parfait!!!

et encore une fois merci beaucoup

macro de copie de données soumise à condition

sebascel

XLDnaute Nouveau

Pièces jointes

mth

XLDnaute Barbatruc

ROGER2327

XLDnaute Barbatruc

sebascel

XLDnaute Nouveau

Discussions similaires

macro de copie de données soumise à condition

sebascel

XLDnaute Nouveau

Pièces jointes

mth

XLDnaute Barbatruc

ROGER2327

XLDnaute Barbatruc

sebascel

XLDnaute Nouveau

Discussions similaires

Privacy & Transparency

Privacy & Transparency