Bonjour,

Je souhaite "copier/coller" des données d'une feuille à l'autre sous certaines conditions. Cependant quand j'exécute ma macro toutes les lignes ne se copient pas mais seulement 1.

Ci-dessous mon code
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
26
27
28
29
30
31
32
33
34
35
36
Sub TestV11()
 
Dim Zone1 As Range 'zone de données ds la feuille de base
Dim Nblb As Integer 'compteur de ligne
Dim Zone2 As Range 'zone de données ds la feuille reception
Dim Nbla As Integer 'nbre de ligne dans la feuille reception
Dim Cl As Integer 'compteur de ligne
Dim Cc As Integer 'compteur de champs
Dim valeur As String
valeur = InputBox("Entrée période", "Choix de la période")
 
Set Zone1 = Worksheets("sheet1").[a5].CurrentRegion
Nblb = Zone1.Rows.Count
For Cl = 5 To Nblb
    If Zone1.Cells(Cl, 17) = valeur Then
        If Zone1.Cells(Cl, 24) > 0 Then
 
            'determination du nbre de ligne sur la feuille reception
            Set Zone2 = Worksheets("datas test").[a12].CurrentRegion
            Nbla = Zone2.Rows.Count
 
            'transfert de données
            For Cc = 1 To 30
                Zone2.Cells(Nbla, 1) = Zone1.Cells(Cl, 7)
                Zone2.Cells(Nbla, 2) = Zone1.Cells(Cl, 8)
                Zone2.Cells(Nbla, 5) = Zone1.Cells(Cl, 10)
                Zone2.Cells(Nbla, 7) = Zone1.Cells(Cl, 12)
                Zone2.Cells(Nbla, 15) = Zone1.Cells(Cl, 17)
                Zone2.Cells(Nbla, 11) = Zone1.Cells(Cl, 24)
 
            Next Cc
        End If
    End If
Next Cl
 
End Sub
Merci d'avance