Discussion :

[Bisbis27]

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

[Bisbis27]

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

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Trystan441]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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)

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

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

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

Qu'est ce qui bloque ?