copier plage de donnee avec condition en vba

Bonjour,

Debutante en vba, je souhaite faire un copier coller d'une plage d'une feuille vers une seconde feuille sur un classeur
Avec comme condition que la valeur de la semaine n'existe pas dans la colonne C

Donc j'ai écris quelque chose pour commencer mais je pense qu'il doit y avoir pas mal d'erreur dans mon code

voila :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25

Sub maj()   Semaine = Range("C7").Value   Set Plage = Sheets("Feuil2").Range("C").Find(Semaine, LookIn:=xlValues, lookat:=xlWhole) If Plage Is Nothing Then Set Plage = Nothing Else   Sheets("Feuil2").Activate Range("A65536").End(xlUp).Offset(1).Select   Sheets("Feuil2").Select ligne = Range("A65536").End(xlUp).Offset(1, 0).Row   With Thisworkbooks .Worksheets("Mouvements_par_site_prod").Range(Cells(7, 1), Cells(22, 4)).Copy .Worksheets("Feuil2").Cells(ligne, 1) With .Worksheets("Feuil2").Cells(ligne, 1).CurrentRegion .Value = .Value End With End With     End Sub

---

Bon j'ai j'ai remrqué qu'il manque un end if

mais la ou ça bloque c'est sur cette ligne

Code:

---

.Worksheets("Mouvements_par_site_prod").Range(Cells(7, 1), Cells(22, 4)).Copy .Worksheets("Feuil2").Cells(ligne, 1)

---

Bonjour,

Dans ton range, tu vas avoir un problème si tu n'es pas sur la bonne feuille. Je m'explique.

Pour ce qui est de relié ton range, pas de problème, il est bien lié à ta worksheets. Par contre, tes cells sont seules.
Lorsque tu utilises "cells" à l'intérieur d'un "range", il faut que tu relis les "cells" au worksheets :

Code:

---

1 2 3 4 5

Dim WsMvt as worksheets set WsMvt = workbooks("TEST").worksheets("Mouvements_par_prod")   WsMvt.Range(WsMvt.Cells(7, 1), WsMvt.Cells(22, 4)).Copy .Worksheets("Feuil2").Cells(ligne, 1)

---

Citation:

---

je pense qu'il doit y avoir pas mal d'erreur dans mon code

---

Quel(s) type(s) d'erreurs ?

Citation:

---

mais la ou ça bloque c'est sur cette ligne

---

Qu'est ce qui bloque ?