Discussion :

[Caïndymion]

Bonjour,

J'ai besoin d'extraire les données d'un tableau de la feuille Tri à la feuille TEST, en supprimant les lignes vides.

Je ne dois pas copier la ligne entière car j'ai des formules à partir de la colonne P sur ma feuille TEST.

Voici ce que j'ai fait, mais cela ne fonctionne 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
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
Sub Transfert()
 
Set OngletSource = Worksheets("Tri")
Set OngletDestination = Worksheets("TEST")
Dim LigneSource As Long
Dim LigneDestination As Long
 
For LigneSource = 4 To OngletSource.Range("A" & Rows.Count).End(xlUp).Row 'Selection du tableau à partir de la cellule A4
 
    If Application.CountA(Rows(LigneSource)) > 0 Then
 
        'Copie de la ligne entière si non vide sur la feuille "TEST"
        Rows(LigneSource).Copy LigneDestination:=OngletDestination.Rows(OngletDestination.Range("A" & Rows.Count).End(xlUp).Row)
 
    End If
 
Next LigneSource
 
    Range("A3").Select 'Selectionne la cellule A3
 
    With OngletDestination
' dernière ligne du tableau copié, fait l'hypothèse que la dernière ligne de la colonne A
' sera la dernière ligne pour toutes les colonnes
dl = .Range("A" & .Rows.Count).End(xlUp).Row
 
' on passe en revue chaque ligne à partir de la fin
For i = dl To 1 Step -1
 
' si on trouve une ligne vide, on la supprime
' on fait l'hypothèse que si la cellule en colonne A est vide, la ligne est vide
If .Cells(i, 1) = "" Then .Rows(i).Delete
Next i
End With
 
End Sub

<config>Windows / Firefox 74.0</config>

[Philippe Tulliez]

Comme il s'agit d'exportation de données suivant conditions, je ne peux que te conseiller la méthode AdvancedFilter de l'objet Range (Filtre avancé d'excel)
A lire éventuellement Les filtres avancés ou élaborés dans Excel

Cependant il est également possible, suivant ta version d'Office, de le faire je pense avec PowerQuery mais n'ayant pas encore suffisamment d'expérience sur ce produit je me garderai bien de tout conseils

[Caïndymion]

Bonjour,

Je ne connaissais pas cette notion de filtre avancé.

Par contre ce qui me gène c'est de devoir mettre des informations en plus sur ma page alors qu'elle ne doit contenir qu'un tableau.
C'est possible de mettre des references d'une autre feuille ?

[Philippe Tulliez]

Bonjour,
Expliqué dans le tutoriel. Les zones des données, des critères et s'il le faut celle servant à l'exportation peuvent être sur la même feuille ou dans des feuilles séparées et ce dans le même classeur ou dans d'autres.