macro de copie de données soumise à condition

[sebascel]

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]

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

Bonsoir,

Un petit essai:

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]

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

Bonjour sebascel

Essayez ceci :

[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]

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