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 : Sélectionner tout - Visualiser dans une fenêtre à part
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