Bonjour le forum
comment je peux ranger une liste de nombre onglet base a partir de f8 sur onglet recap sans les cellules vides en vba
Merci de votre aide bon confinement
Bonjour gothc, Le Forum,
1 - Transformer ta plage en tableau structuré ou éventuellement donner un nom
2 - Menu Données, A partir d'un tableau
3 - Supprimer les lignes null en les filtrant
4 - Charger dans
5 - Se positionner dans la feuille Recap
6 - Clic droit sur la requête et charger dans Table, choisir l'endroit où placer les données (cellule B2), et charger
Requête avec le tableau structuré
let
Source = Excel.CurrentWorkbook(){[Name="Tableau1"]}[Content],
#"Lignes filtrées" = Table.SelectRows(Source, each ([Colonne1] <> null))
in
#"Lignes filtrées"
Requête avec le nom z_Plage qui reprend toutes les cellules de la feuille base colonne F lignes 8 à 1020
let
Source = Excel.CurrentWorkbook(){[Name="z_Plage"]}[Content],
#"Lignes filtrées" = Table.SelectRows(Source, each ([Column1] <> null))
in
#"Lignes filtrées"
ça donnera le résultat en pièce jointe.
Cordialement
DanixDB
Sub test()
With Sheets("base").Range("$F$8", Sheets("base").Cells(Rows.Count, "F").End(xlUp))
.AutoFilter Field:=1, Criteria1:=">0"
.Copy Sheets("recap").Cells(3, 2)
.AutoFilter
End With
End Sub
Un grand merci Patrick ça fonctionne super
bonne soirée a toi o plaisir de faire ta rencontre sur Toulon après le confinement mon facebook christophe loubry
sans pose de filtre + nettoyage de la destination :
VB:
Sub test()
Dim pl As Range
With Sheets("recap")
.[B3:B1015].ClearContents
On Error GoTo fin
Set pl = Sheets("base").[F8:F1020].SpecialCells(xlCellTypeConstants)
On Error GoTo 0
If Not pl Is Nothing Then pl.Copy Sheets("recap").[B3]
End With
fin:
End Sub