Discussion :

[lolonico1974]

Bonjour à vous tous,

J'ai besoin de votre aide. Vous trouverez ci joint mon fichier test pour comprendre mon problème.

J'ai besoins de créer une macro qui me permette de réaliser la procédure suivante :

Dans la feuille "Liste générale", il faut que je recopie les colonnes A, C, D et E dans la feuille "Import Valeo" mais sans recopier les cellules de la colonne C "vides".

En effet, à l'heure actuelle je réalise cette manipulation manuellement et le problème c'est que j'ai plus de 2.000 lignes. Cette étape, je dois la réaliser pour mes 4 fournisseurs.

Vous trouverez dans la feuille "Résultat", le résultat que je voudrais avec cette macro.

D'avance merci pour votre aide.

[JPierreM]

Bonsoir,

Je propose le code suivant

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
Sub sc()
 
With Worksheets("Liste générale")
    Set plage1 = .Range(.Cells(4, 1), .Cells(4, 1).End(xlDown)).Resize(, 5)
    'plage1.Select
End With
 
With plage1
    .AutoFilter
    .AutoFilter Field:=3, Criteria1:="<>"
End With
 
Set plage2 = plage1.SpecialCells(xlCellTypeVisible)
plage2.Copy
 
Worksheets("Import Valeo").Paste
 
End Sub

Bon courage

[lolonico1974]

Bonjour et merci pour votre aide.

Cela va me permettre d'avancer dans mes macros. J'aurai dû y penser à l'autoFilter.

Je n'ai plus qu'à rajouter dans ma macro pour supprimer le filtre :

Code :

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

1
2
3
4
 
With plage1
    Selection.AutoFilter
End With

Encore merci pour votre aide.