Discussion :

[jenifer699]

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 ?

[gFZT82]

Bonjour,

As-tu essayé avec

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
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
            If Year(.Range("Y" & h).Value) >= "2013" Then
                .Rows(h).Copy Destination:=Sheets("ANNEE2013").Range("A" & Sheets("ANNEE2013").Range("A65536").End(xlUp).Row + 1)
            End If
        Next h
    End With
End Sub

Cordialement.

[jenifer699]

Bonjour,

merci de votre réponse.

Malheureusement j'ai déja testé cela et cela me copie 16 fois chaque ligne

[gFZT82]

Hummm, je doute !
J'ai commenté le code pour que tu vois ce qu'il réalise pas à pas.

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
Sub test()
Dim Année As String
Dim i As Integer
Dim h As Long
    With Sheets("ADMIN")
        'Dans la feuille "ADMIN", on balaye les cellules de la colonne Y, de la ligne 3 à la dernière ligne renseignée.
        For h = 3 To .Range("Y65536").End(xlUp).Row
            'Si l'année relevée dans la cellule est supérieure ou égale à 2013
            If Year(.Range("Y" & h).Value) >= "2013" Then
                'alors, on copie la ligne et on la colle dans la feuille "ANNEE2013" sur la première ligne vide.
                .Rows(h).Copy Destination:=Sheets("ANNEE2013").Range("A" & Sheets("ANNEE2013").Range("A65536").End(xlUp).Row + 1)
            End If
        Next h
    End With
End Sub

Cordialement.

[jenifer699]

Ca marche parfaitement !!

Merci !!!!