XL 2016 ranger une liste de nombre vba

[gothc]

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

 

[patricktoulon]

bonjour
avec la simple copie après filtre des vides qui aura pour effet de te supprimer les lignes vide dans recap
Autofilter 😉

 

[gothc]

je cherche une solution vba patrick tu habites toulon comme moi 🙂

 

[patricktoulon]

a bon ou ca

 

[gothc]

centre ville

 

[Danixdb]

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

 

[patricktoulon]

toulon west pas loin rivière couverte

 

[patricktoulon]

re

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

 

[gothc]

Merci Patrick je fais le test

 

[gothc]

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

 

[eriiic]

Bonjour à tous,

sans pose de filtre + nettoyage de la destination :

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

 

[gothc]

Merci eriiic