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>