Bonjour,

j'utilise cette macro :

(qui m'exporte les données supérieure à 2013 de l'onglet 1 vers un autre onglet)


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
Sub test()
 
Dim Année As String
Dim i As Integer
Dim h As Long
 
 
 
 
With Sheets("ADMIN")
 
    For h = 3 To .Range("Y65536").End(xlUp).Row
 
        For i = 1 To Sheets.Count
 
 
            If Year(.Range("Y" & h).Value) >= "2013" Then
            .Rows(h).Copy Destination:=Sheets(i).Range("A" & Sheets(i).Range("A65536").End(xlUp).Row + 1)
            End If
 
        Next i
 
    Next h
 
End With   
 
 
End Sub
par contre cela pose problème ! : cela me copie mes données sur TOUS les onglets, j'en ai 16.

Je voudrais que mes données de l'onglet 1 se copient uniquement sur mon onglet "ANNEE2013" situé en 16ème position.

est-ce possible ?