Discussion :

[Nenel971]

Bonjour,

Cela fait longtemps, je suis très très rouillé et n'ai jamais été expert.

Je souhaite copier la ligne de la feuille ("TCD"),si la valeur de la colonne C est nulle (=0), sur la feuille ("EXT"), les unes au dessus des autres.
Dans l'exemple joint ,les lignes 3 et 5 doivent être copiées telles quelles, dans la feuille "EXT", sur les lignes 2 et 3.... (on va garder la ligne 1 pour les intitulés)

Je ne souhaite pas le faire manuellement, avec les filtres automatiques et un copier/coller.

Le vrai tableau est autrement plus balèze et confi.



Salutations...

[BENNASR]

bonjour
si j'ai compris t'as besoin de ça :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub TEST()
Dim F1 As Worksheet
Dim F2 As Worksheet
Dim lig As Long
 Application.ScreenUpdating = False
Set F1 = Sheets("TCD")
Set F2 = Sheets("EXT")
lig = F2.Range("A" & Rows.Count).End(xlUp).Row + 1
F1.Range("A1:E" & F1.Range("A" & Rows.Count).End(xlUp).Row).AutoFilter Field:=3, Criteria1:="0"
F1.Range("A2:E" & F1.Range("A" & Rows.Count).End(xlUp).Row).SpecialCells(xlCellTypeVisible).Copy Destination:=F2.Range("A" & lig)
If F1.FilterMode = True Then F1.ShowAllData
 Application.ScreenUpdating = true
End Sub

[Nenel971]

Bonjour bennasr,

Tu as effectivement bien compris et réalisé ma demande, merci beaucoup.

Pour effacer la feuille avant d'y coller les lignes désirées, je me suis permis d'ajouter un :

Worksheets("EXT").Range("2:30000").ClearContents

Je pense qu'il y a plus propre, pour dire : "Effacer les cellules sous la ligne 1".

Je reste preneur de l'info si tu l'as, car je suis encore à l'ouest pour la terminologie.

J'ai également ajouter un petit MsgBox "export généré" pour dire que c'est fait.


Encore mille mercis pour ce retour très rapide.


Nenel

[BENNASR]

bonjour
NB: on efface toutes les données de la feuille EXT
tester

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub TEST()
Dim F1 As Worksheet
Dim F2 As Worksheet
Dim lig As Long
 Application.ScreenUpdating = False
Set F1 = Sheets("TCD")
Set F2 = Sheets("EXT")
lig = F2.Range("A" & Rows.Count).End(xlUp).Row + 1
F1.Range("A1:E" & F1.Range("A" & Rows.Count).End(xlUp).Row).AutoFilter Field:=3, Criteria1:="0"
F2.Cells.ClearContents
F1.Range("A1:E" & F1.Range("A" & Rows.Count).End(xlUp).Row).SpecialCells(xlCellTypeVisible).Copy Destination:=F2.Range("A1")
If F1.FilterMode = True Then F1.ShowAllData
 Application.ScreenUpdating = True
End Sub

[Nenel971]

Un éclaircissement , sur Application.ScreenUpdating....

N'est on pas censé le mettre sur OFF pour optimiser le temps d'opération (même si en l'occurrence c'est pas une opération compliquée) ?

@+

[BENNASR]

c'est juste pour gagner en temps d'exécution